C     CETTE OPTION PERMET D'AFFECTER A LA BANQUE UN NUMERO DE VERSION
C     EN METTANT LL3=VERS
C     CETTE OPTION INITIALISE LES PISTES DISPONIBLES DE LA BANQUE
C     EN ECRIVANT DES RECORDS COMMEMCANT PAR KB,LONGR,MAX,N52
C     QUI SERVIRONT AU STOCKAGE DES INFORMATIONS UTILISATEURS
C       
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
C       
C LAST MODIF : 06.05.1991 PASSAGE DE 40 MOLECULES A 75 DANS LES COMMON
C       
C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *
      subroutine init(iuni,isor,pgm,vers)
C       
      logical*1 qqq
      integer vers
      character*7   form,bin
      character*3   pgm,modif,mpgx
C       
      common/p4/ nmol,knmol,ksot,kksot,ntab,nhist,kp,lre,form,bin,modif
      common/p8/ npgx,nfff,mpgx,qqq(75)
C       
      nfff=1
      call pgeisa(0.,99999.)
      read (iuni,rec=1)
     &aa1,aa2,anu,n203,nbraie,nbmol,iecr,ifin,ll1,ll2,ll3,ll4
      if(ll1.eq.0.or.ll2.eq.0) go to 50
      write(isor,1000)  pgm,pgm,vers
1000  format(1x,17('*'),98x,17('*')/1x,'* geisa   geisa *',
     &31x,'      spectroscopic data bank      ',32x,
     &'* geisa   geisa *'/' *',6x,a3,6x,'*',98x,'*',6x,a3,6x,'*'/
     &' * geisa   geisa *',26x,15x,'*** GEISA',i2.2,' ***',16x,
     &      26x,'* geisa   geisa *'/1x,17('*'),98x,17('*')/
     &       1x,38x,'management and study of atmospheric spectroscopic
     &informations')
      write(isor,2000)
2000  format(//1x,45x,'initialisation of the user environment  '//)
      ll3=vers
      ll4=0
      write(iuni,rec=1)
     &aa1,aa2,anu,n203,nbraie,nbmol,iecr,ifin,ll1,ll2,ll3,ll4
      kb=0
      iiii=ifin+ll1+ll2
      nxx=32+nmol
C     4 MOTS DE DEBUT DE RECORD
C       
      longr=int(6217./nxx)*nxx
C       
C     KB+1 ADRESSE DU 1ER OCTET DISPONIBLE SUR LA PISTE
C     LONGR=LONGUEUR DISPONIBLE SUR LA PISTE EN OCTETS
C     MAX=NOMBRE DE PISTES RESERVEES POUR CES INFORMATIONS
C     NXX=32+NMOL LONGUEUR EN OCTETS DES INFORMATIONS UTILISATEURS
C       
      do 10 i=iiii,iplace
      write(iuni,rec=i   ) kb,longr,max,nxx
10    continue
      write(isor,3000) nbraie,aa1,aa2
3000  format(///' total number of transitions : ',i7//
     &'   first  transition : ',f12.6/
     &'   last   transition : ',f12.6/)
      ifi1=ifin-1
      write(isor,3100) ifi1
3100  format(/1x,'the data are contained form records 1 to',i6/)
      write(isor,3200) ll1,ll2
3200  format(/1x,'the trs informations used  ',i5,' records'/
     &1x,'the anl informations used  ',i5,' records'/)
      return
50    continue
      write(isor,5000) pgm
5000  format(///' *',a3,'* used options trs and anl by coding parameter:
     & modif=oui before this initialisation'///)
      return
      end