source: trunk/pgm03/bdata.f @ 1

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