source: JEM-EUSO/esaf_lal/tags/v1_r0/esaf/packages/simulation/externals/slast/include/lowtran.inc @ 117

Last change on this file since 117 was 117, checked in by moretto, 11 years ago

ESAF version compilable on mac OS
File size: 2.0 KB
Line 
1      INTEGER  MODEL,ITYPE,IEMSCT,IMULT,M1,M2,M3,M4,M5,M6,MDEF,IRD1,IRD2
2      INTEGER  IM,NOPRT,IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,IREG,IREGC
3      INTEGER  LEN,IRPT,KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO
4      REAL TBOUND,SALB,CTHIK,CALT,CEXT,ALTB 
5      REAL VIS,WSS,WHH,RAINRT,GNDALT
6      REAL H1,H2,ANGLE,RANGE,BETA,RE
7      REAL V1,V2,DV
8*
9      INTEGER  EMODEL,EITYPE,EIEMSCT,EIMULT,EM1,EM2,EM3,EM4,EM5,EM6,
10     +     EMDEF,EIRD1,EIRD2
11      INTEGER  EIM,ENOPRT,EIHAZE,EISEASN,EIVULCN,EICSTL,EICLD,EIVSA,
12     +     EIREG,EIREGC
13      INTEGER  ELEN,EIRPT,EKMAX,EM,EIKMAX,ENL,EML,EIKLO,EISSGEO
14      REAL ETBOUND,ESALB,ECTHIK,ECALT,ECEXT,EALTB 
15      REAL EVIS,EWSS,EWHH,ERAINRT,EGNDALT
16      REAL EH1,EH2,EANGLE,ERANGE,EBETA,ERE
17      REAL EV1,EV2,EDV
18*
19      COMMON /CARD1/ MODEL,ITYPE,IEMSCT,M1,M2,M3,IM,NOPRT,TBOUND,SALB
20      COMMON /CARD1A/ M4,M5,M6,MDEF,IRD1,IRD2                         
21      COMMON /CARD2/ IHAZE,ISEASN,IVULCN,ICSTL,ICLD,IVSA,VIS,WSS,WHH,
22     1    RAINRT
23      COMMON /CARD2ADD/GNDALT
24      COMMON /CARD2A/ CTHIK,CALT,CEXT                                 
25      COMMON /CARD2D/ IREG(4),ALTB(4),IREGC(4)                       
26      COMMON /CARD3/ H1,H2,ANGLE,RANGE,BETA,RE,LEN                   
27      COMMON /CARD4/ V1,V2,DV
28      COMMON /CARD5/IRPT
29      COMMON /CNTRL/ KMAX,M,IKMAX,NL,ML,IKLO,ISSGEO,IMULT
30*
31      COMMON /ECARD1/ EMODEL,EITYPE,EIEMSCT,EM1,EM2,EM3,EIM,ENOPRT,
32     +     ETBOUND,ESALB
33      COMMON /ECARD1A/ EM4,EM5,EM6,EMDEF,EIRD1,EIRD2                         
34      COMMON /ECARD2/ EIHAZE,EISEASN,EIVULCN,EICSTL,EICLD,EIVSA,EVIS,
35     +     EWSS,EWHH,ERAINRT
36      COMMON /ECARD2ADD/EGNDALT
37      COMMON /ECARD2A/ ECTHIK,ECALT,ECEXT                                 
38      COMMON /ECARD2D/ EIREG(4),EALTB(4),EIREGC(4)                       
39      COMMON /ECARD3/ EH1,EH2,EANGLE,ERANGE,EBETA,ERE,ELEN                   
40      COMMON /ECARD4/ EV1,EV2,EDV
41      COMMON /ECARD5/EIRPT
42      COMMON /CNTRL/ EKMAX,EM,EIKMAX,ENL,EML,EIKLO,EISSGEO,EIMULT
Note: See TracBrowser for help on using the repository browser.