| 1 | C CETTE OPTION PERMET D'AFFECTER A LA BANQUE UN NUMERO DE VERSION |
|---|
| 2 | C EN METTANT LL3=VERS |
|---|
| 3 | C CETTE OPTION INITIALISE LES PISTES DISPONIBLES DE LA BANQUE |
|---|
| 4 | C EN ECRIVANT DES RECORDS COMMEMCANT PAR KB,LONGR,MAX,N52 |
|---|
| 5 | C QUI SERVIRONT AU STOCKAGE DES INFORMATIONS UTILISATEURS |
|---|
| 6 | C |
|---|
| 7 | C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * |
|---|
| 8 | C |
|---|
| 9 | C LAST MODIF : 06.05.1991 PASSAGE DE 40 MOLECULES A 75 DANS LES COMMON |
|---|
| 10 | C |
|---|
| 11 | C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * |
|---|
| 12 | subroutine init(iuni,isor,pgm,vers) |
|---|
| 13 | C |
|---|
| 14 | logical*1 qqq |
|---|
| 15 | integer vers |
|---|
| 16 | character*7 form,bin |
|---|
| 17 | character*3 pgm,modif,mpgx |
|---|
| 18 | C |
|---|
| 19 | common/p4/ nmol,knmol,ksot,kksot,ntab,nhist,kp,lre,form,bin,modif |
|---|
| 20 | common/p8/ npgx,nfff,mpgx,qqq(75) |
|---|
| 21 | C |
|---|
| 22 | nfff=1 |
|---|
| 23 | call pgeisa(0.,99999.) |
|---|
| 24 | read (iuni,rec=1) |
|---|
| 25 | &aa1,aa2,anu,n203,nbraie,nbmol,iecr,ifin,ll1,ll2,ll3,ll4 |
|---|
| 26 | if(ll1.eq.0.or.ll2.eq.0) go to 50 |
|---|
| 27 | write(isor,1000) pgm,pgm,vers |
|---|
| 28 | 1000 format(1x,17('*'),98x,17('*')/1x,'* geisa geisa *', |
|---|
| 29 | &31x,' spectroscopic data bank ',32x, |
|---|
| 30 | &'* geisa geisa *'/' *',6x,a3,6x,'*',98x,'*',6x,a3,6x,'*'/ |
|---|
| 31 | &' * geisa geisa *',26x,15x,'*** GEISA',i2.2,' ***',16x, |
|---|
| 32 | & 26x,'* geisa geisa *'/1x,17('*'),98x,17('*')/ |
|---|
| 33 | & 1x,38x,'management and study of atmospheric spectroscopic |
|---|
| 34 | &informations') |
|---|
| 35 | write(isor,2000) |
|---|
| 36 | 2000 format(//1x,45x,'initialisation of the user environment '//) |
|---|
| 37 | ll3=vers |
|---|
| 38 | ll4=0 |
|---|
| 39 | write(iuni,rec=1) |
|---|
| 40 | &aa1,aa2,anu,n203,nbraie,nbmol,iecr,ifin,ll1,ll2,ll3,ll4 |
|---|
| 41 | kb=0 |
|---|
| 42 | iiii=ifin+ll1+ll2 |
|---|
| 43 | nxx=32+nmol |
|---|
| 44 | C 4 MOTS DE DEBUT DE RECORD |
|---|
| 45 | C |
|---|
| 46 | longr=int(6217./nxx)*nxx |
|---|
| 47 | C |
|---|
| 48 | C KB+1 ADRESSE DU 1ER OCTET DISPONIBLE SUR LA PISTE |
|---|
| 49 | C LONGR=LONGUEUR DISPONIBLE SUR LA PISTE EN OCTETS |
|---|
| 50 | C MAX=NOMBRE DE PISTES RESERVEES POUR CES INFORMATIONS |
|---|
| 51 | C NXX=32+NMOL LONGUEUR EN OCTETS DES INFORMATIONS UTILISATEURS |
|---|
| 52 | C |
|---|
| 53 | do 10 i=iiii,iplace |
|---|
| 54 | write(iuni,rec=i ) kb,longr,max,nxx |
|---|
| 55 | 10 continue |
|---|
| 56 | write(isor,3000) nbraie,aa1,aa2 |
|---|
| 57 | 3000 format(///' total number of transitions : ',i7// |
|---|
| 58 | &' first transition : ',f12.6/ |
|---|
| 59 | &' last transition : ',f12.6/) |
|---|
| 60 | ifi1=ifin-1 |
|---|
| 61 | write(isor,3100) ifi1 |
|---|
| 62 | 3100 format(/1x,'the data are contained form records 1 to',i6/) |
|---|
| 63 | write(isor,3200) ll1,ll2 |
|---|
| 64 | 3200 format(/1x,'the trs informations used ',i5,' records'/ |
|---|
| 65 | &1x,'the anl informations used ',i5,' records'/) |
|---|
| 66 | return |
|---|
| 67 | 50 continue |
|---|
| 68 | write(isor,5000) pgm |
|---|
| 69 | 5000 format(///' *',a3,'* used options trs and anl by coding parameter: |
|---|
| 70 | & modif=oui before this initialisation'///) |
|---|
| 71 | return |
|---|
| 72 | end |
|---|
