1 | C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * |
---|
2 | C INITIALISATION DES CONSTANTES DU PROGRAMME * |
---|
3 | C |
---|
4 | C NBI(I)=NB MAX DE TRANSITIONS # PREVUS POUR LA MOLECULE I DANS P |
---|
5 | C NBT(I)=NOMBRE D'OCTETS DEFINISSANT LA TRANSITION DE LA MOLECULE I |
---|
6 | C LE TABLEAU NBI EST A METTRE A JOUR CHAQUE FOIS QUE LA BANQUE |
---|
7 | C EST MODIFIEE SOMME(NBT/4 + 1 + 7)*NBI=300000 (A CETTE DATE) |
---|
8 | C PREVOIR DIMENSION P=KP>=300000 |
---|
9 | C PLACE OCCUPEE DANS P PAR UNE TRANSITION DONNEE : |
---|
10 | C (NBT+3)/4 MOTS + 7 MOTS DEFINIS PLUS LOIN |
---|
11 | C |
---|
12 | C M.a J. du 01.12.1996 ajout de nouvelles molecules & isotopes |
---|
13 | C M.a J. du 17.01.1997 ajout des isotopes 623,634 et 722 a OCS |
---|
14 | C M.a J. du 11.03.1997 correction de v(2) en double precision dans fmc |
---|
15 | C M.a J. du 18.04.1997 correction de la dimension de kp: 300000 |
---|
16 | C Modified by A. Chursin (15/10/2000): ajout d'isotope 172 a H2O |
---|
17 | C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * |
---|
18 | block data |
---|
19 | C |
---|
20 | character*132 fnt |
---|
21 | character*112 fml |
---|
22 | character*80 fmc |
---|
23 | character*44 fmt |
---|
24 | character*9 trs1,trs2 |
---|
25 | character*7 form,bin |
---|
26 | character*6 fff |
---|
27 | character*4 code,ctlg,mole,blanc |
---|
28 | character*3 pgm,ianl,iext,itrs,ilst,icop,info,icre, |
---|
29 | & oui,iopt,liste,iasr,remp,supp,ajou,modif,trans |
---|
30 | character*2 icod,ikod |
---|
31 | integer vers |
---|
32 | real nu1,nu2 |
---|
33 | C |
---|
34 | common/p1/ nu1,nu2,dnu,nbclas,khist,kanal,vers,mode,liste |
---|
35 | common/p2/ mole(75),isot(100),nbi(75),nbt(75),iopt,ctlg,trans, |
---|
36 | & trs1,trs2 |
---|
37 | common/p3/ imole,iran,ival,pgm,ianl,iext,itrs,ilst,icop,info,icre |
---|
38 | common/p4/ nmol,knmol,ksot,kksot,ntab,nhist,kp,lre,form,bin,modif |
---|
39 | common/p5/ code(75),nn(150),nq(150),ikod(18),icod(18),jdeb(75) |
---|
40 | common/p6/ iasr,remp,supp,ajou,imp8,imp9,in40,in41,in42,in43,n97 |
---|
41 | common/p7/ iremp,isupp,iajou |
---|
42 | common/ffff/ fml,fmc,fmt,fnt,fff |
---|
43 | common/inteh/ incr,pas1,pmax |
---|
44 | common/entsor/iuni,juni,kuni,ient,isor,iper,nresv,maxx,blanc,oui |
---|
45 | C |
---|
46 | C FORMAT IMAGES CARTES (F10.3,E10.3,F5.3,F10.3,8A4,2A3,I4,I3) |
---|
47 | C SI NU1 ET NU2 OMIS (F10.6,E10.3,F5.3,F10.3,8A4,2A3,I4,I3) |
---|
48 | C FFF FORMAT FICHIER BINAIRE |
---|
49 | C |
---|
50 | data fml/'( 1x,1h|,f10. 6 ,1h|,1pd10.3,1h|,0pf5.3,1h|,f10.3,1h|,9 |
---|
51 | &a4,1h|,f3.2,1h|,i3,1h|,i2,1h|,a3,1h|,a35,1h|,i7)'/ |
---|
52 | data fmc/'(f10. 6 ,d10.3,f5.3,f10.3,9a4,f4.2,i4,i3,a3,i2,i1,e10.3, |
---|
53 | &f5.4,f8.6,i3,i6)'/ |
---|
54 | data fmt/'(48x,a4,a2, (i3,a1))'/ |
---|
55 | data fnt/'(2h |,f10. 3,1h|,1pe10.3,1h|,0pf6.3,1h|,f10.3,1h|,9a4,1h |
---|
56 | &|,f3.2,1h|,i4,1h|,i3,1h|,a3,1h*,f10. 3,1h|,1pe10.3,1h|,0pf6.3,1h|,, |
---|
57 | &f10.3,1h|)'/,fff/'(29a4)'/ |
---|
58 | data ianl,iext,itrs,ilst,iasr/'anl','ext','trs','lst','asr'/ |
---|
59 | data icop,info/'cop' ,'inf'/ ,icre /'cre'/ |
---|
60 | data ntab,nmol,nhist,kp,ksot/1000,42,50,300000,100/ |
---|
61 | data form,bin,blanc,oui/'formate','binaire',' ','oui'/ |
---|
62 | CBB pas d initialisation de iuni,kuni |
---|
63 | CBB data ient,isor,iper/5,6,7/,iuni,kuni,nresv/01,02,100/ |
---|
64 | data ient,isor,iper/5,6,7/,nresv/100/ |
---|
65 | data imp8,imp9,in40,in41,in42,in43/8,9,40,41,42,43/ |
---|
66 | data iremp,isupp,iajou/44,45,46/ |
---|
67 | data maxx,lre,n97/600,1555,97/ |
---|
68 | C92 data nbi |
---|
69 | c & /200,650,100,2*200,8*90,150,4*90,100,7*40,100,4*40,9*20,2*50, |
---|
70 | c & 33*0/ |
---|
71 | data nbi |
---|
72 | & /150,750,120,180,150,60,20,300,20,20,50,10,15,250,3*20,10, |
---|
73 | CRA-NIC 0502 & /150,650,120,180,150,60,20,300,20,20,50,10,15,250,3*20,10, |
---|
74 | & 15,170,20,10,3*15,5,50,3*10,25,10,5,10,5,35,5,10,4*5,33*0/ |
---|
75 | data nbt/6,10,6,8,2,16,4,16,6,6,10,10,16,16,2,2,2,2,16,8,12,5*16, |
---|
76 | & 8,12,14,12,12,6,2,16,12,6,12,12,16,12,6,16,33*0/ |
---|
77 | data code/'h2o','co2','o3','n2o','co','ch4','o2','no','so2','no2', |
---|
78 | &'nh3','ph3','hno3','oh','hf','hcl','hbr','hi','clo','ocs','h2co', |
---|
79 | & 'c2h6','ch3d','c2h2','c2h4','geh4','hcn','c3h8','c2n2','c4h2', |
---|
80 | & 'hc3n','hocl','n2','ch3c','h2o2','h2s','hcoo','cof2','sf6', |
---|
81 | & 'c3h4','ho2','clon',33*' '/ |
---|
82 | data nn |
---|
83 | CRA-NIC 0502 & /5,161,162,171,181,182, 9,626,627,628,636,637,638,728,828,838, |
---|
84 | & /6,161,162,171,181,182,172, |
---|
85 | & 9,626,627,628,636,637,638,728,828,838, |
---|
86 | & 5,666,668,686,667,676, 5,446,447,448,456,546, |
---|
87 | & 6,26,36,28,27,38,37, 2,211,311, 3,66,67,68, 3,46,48,56, |
---|
88 | & 2,626,646, 1,646, 2,411,511, 1,131, 1,146, 3,61,62,81, |
---|
89 | & 1,19, 2,15,17, 2,11,19, 1,17, 2,56,76, |
---|
90 | & 7,622,624,632,623,822,634,722, |
---|
91 | & 3,126,128,136, 2,226,236, 1,212, 2,221,231, 2,211,311, 1,411, |
---|
92 | & 3,124,125,134, 1,221, 1,224, 1,211, 1,124, 2,165,167, |
---|
93 | & 1,44, 2,215,217, 1,166, 3,121,141,131, 1,261, 1,269, |
---|
94 | & 1,29, 1,341, 1,166, 2,564,764, 10*0/ |
---|
95 | c & 1,29, 1,341, 1,166, 2,564,764, 13*0/ |
---|
96 | data nq/2,'V1,V','2,V3', 4,'V1,V','2,L2',',V3,','R', |
---|
97 | & 2,'V1,V','2,V3', 3,'V1,V','2,L2',',V3', 1,'V', |
---|
98 | & 6,'V1,V','2,L2',',V3,','L3,V','4,L4',',L', 1,'V', |
---|
99 | & 1,'V', 2,'V1,V','2,V3', 2,'V1,V','2,V3', 4,'V1,V','2,V3', |
---|
100 | & ',V4,','S', 3,'V1,V','2,V3',',V4', 1,'XVY', |
---|
101 | & 1,'V', 1,'V', 1,'V', 1,'V', 1,'V',1,'V', 3,'V1,V','2,L2', |
---|
102 | & ',V3', 5,'V1,V','2,V3',',V4,','V5,V','6', |
---|
103 | & 3,'XVY+','X1V1','Y1', 1,'XVY', |
---|
104 | & 6,'V1,V','2,V3',',V4,','L4,V','5,L5',',L' , |
---|
105 | & 1,'XVY', 6,'V1,V','2,L2',',V3,','L3,V','4,L4', |
---|
106 | &',L', 3,'V1,V','2,L2',',V3', 1,'XVY', 5,'V1,V','2,V3', |
---|
107 | &',V4,','L4,V','5,L5', 1,'XVY', 3,'V5,V','6,V7',',L,S', |
---|
108 | & 2,'V1,V','2,V3', 1,'V', 1,'XVY', 5,'V1,V','2,V3',',V4,','V5,V', |
---|
109 | &'6', 2,'V1,V','2,V3', 1,'XVY', 5,'V1,V','2,V3',',V4,','V5,V','6', |
---|
110 | & 1,'XVY', 1,'XVY', 2,'V1,V','2,V3', 3,'XYV+','X1V1','Y1', 8*0/ |
---|
111 | data icod/' 1',' 2',' 3',' 4',' 5',' 6',' 7',' 8',' 9','10','11', |
---|
112 | & '12','13','14','15','16','17','18'/ |
---|
113 | data ikod /18*' '/,imole,iran,ival/3*0/ |
---|
114 | data incr,pas1,pmax/31,0.1,1.e-18/,iopt,ctlg/'opt','ctlg'/ |
---|
115 | end |
---|