source: PSPA/parmelaPSPA/trunk/file.f @ 476

c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
c     system dependant                                                 *
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
      subroutine ouvrir(lonnom, work_path)

C **********************************************
C BUT :   glm
C ----
C       work_path: PATH des fichiers a ouvrir
C       lonnom  : longueur de la chaine precedente
C **********************************************



c
      include 'ucom.h'
      include 'debug.h'
      include 'flagcom.h'

      character*256 nomfic
      character*256  work_path
      character*256  nomf
      integer  lonnom

c
c------------------------- open --------------------------------------
c Partie transferee dans le main 14/09/00
c      open(unit=nin,file='parmin',status='old',
c     *     access='sequential',form='formatted')
c      idebug=0
c      if(idebug.eq.0) then
c         open(unit=nnout,status='scratch',
c     *        access='sequential',form='formatted')
c      else
c         open(unit=nnout,file='parmint',status='new',
c     *        access='sequential',form='formatted')
c      endif
c-----------------------------------------------------------------------
c open modifie le 14/11/2007 pour utilisation sous Linux
c declaration des gros fichiers sur le disque tmp de la machine et non du
c cluster
c
      open(unit=nav,access='sequential',
     *     form='formatted',status='scratch')

      nomf = nomfic(work_path(1:lonnom),'parmdesz')
      print *, ' parmela file : fichier desz : ', nomf


      open(unit=ndes1,file=nomf,form='formatted',
     *     status='unknown')
      open(unit=ndes2,file='/tmp/parmdest',form='unformatted',
     *     status='unknown')
      open(unit=nemit,access='sequential',
     *     form='formatted',status='scratch')
      open(unit=ndiag,form='formatted',status='scratch')
      open(unit=nsemit,file='/tmp/parmemit2',form='unformatted',
     *     status='unknown')
      open(unit=nsnap,file='/tmp/parmsnap',form='unformatted',
     *     status='unknown')
c--------------------------------------------------------------------------
      return
      end
c*********************************************************************
c     vax version
      subroutine orest1(i)
c
      include 'ucom.h'
c
      character*1 kfic1
      character*36 bmnom1
      write(kfic1,8337)i
 8337 format(i1)
      bmnom1='savecor'//kfic1
      open (unit=nsav,file=bmnom1,access='sequential',
     *      form='unformatted',status='old')
      return
      end
c*********************************************************************
c     vax version
      subroutine orest2
c
      include 'ucom.h'
c
      open (unit=nsav,file='/tmp/savecor',access='sequential',
     *      form='unformatted',status='old')
      return
      end
c*********************************************************************
c     vax version
      subroutine osave1(i)
c
      include 'ucom.h'
c
      character*1 kfic2
      character*36 bmnom2
      write(kfic2,8338)i
 8338 format(i1)
      bmnom2='savecor'//kfic2
      open (unit=nsav,file='/tmp/bmnom2',access='sequential',
     *      form='unformatted',status='new')
      return
      end
c*********************************************************************
c     vax version
      subroutine inscgrid(fexist) !02/92
      logical fexist
      inquire(file='scgrid',exist=fexist)
      return
      end
c*********************************************************************
c     vax version
c     file back pour le back bombardment
      subroutine opeback(iope)
c
      include 'ucom.h'
c
      if(iope.eq.1) then
      open(unit=nback,file='parmback',status='new',form='unformatted')
      open(unit=nback1,file='parmback1',status='new',form='unformatted')
      else
      open(unit=nback1,file='parmback1',status='new',form='unformatted')
      endif
      return
      end
c*********************************************************************
c     vax version
      subroutine appendparm
c
      include 'ucom.h'
c
      character*1 k(80)
      integer bmout
c---------------------------------------------------------------------
      bmout=90
      open(unit=bmout,file='parmout',access='sequential',
     *     status='unknown',form='formatted')
      rewind(nnout)
      rewind(nemit)
      rewind(nav)
      rewind(ndiag)
 100  format(80a1)
 10   continue
      read(nnout,100,end=20) (k(i),i=1,80)
      write(bmout,100) (k(i),i=1,80)
      go to 10
 20   continue 
      read(nemit,100,end=30) (k(i),i=1,80)
      write(bmout,100) (k(i),i=1,80)
      go to 20
 30   continue
      read(nav,100,end=40) (k(i),i=1,80)
      write(bmout,100) (k(i),i=1,80)
      go to 30
 40   continue
      read(ndiag,100,end=50) (k(i),i=1,80)
      write(bmout,100) (k(i),i=1,80)      
      go to 40
 50   continue
c-----------------------------------------------------------------------
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*