Gabriele Cosmo
19 lines
700 B
PHP
19 lines
700 B
PHP
|
|
COMMON/EDEPO/EDEP,SEDEP,SEDEP2
|
|
+ ,DEEM,STMA,STMI,RMAX
|
|
+ ,anbstep,sstep,s2step,anch,anne
|
|
+ ,anele,anpos,sanele,sanpos
|
|
+ ,sanch,sanch2,sanne,sanne2
|
|
+ ,tra,ref,stra,sref
|
|
+ ,nth0
|
|
+ ,NHI1,HIS1(2),NHI2 ,HIS2(2),NHI3,HIS3(2),NHI4,HIS4(2)
|
|
+ ,NHI5,HIS5(2),NHI6 ,HIS6(2),NHI7,HIS7(2),NHI8,HIS8(2)
|
|
+ ,NHI9,HIS9(2),NHI10,HIS10(2)
|
|
COMMON/PLOTS/NAME
|
|
CHARACTER*25 NAME
|
|
COMMON/GEOMAT/MATWLD,XWORLD,YZWORL,FieldW,
|
|
+ MATABS,XABSOR,YZABSO,FieldA,
|
|
+ XPOSAB,X1ABSO,X2ABSO,
|
|
+ XVERT ,YVERT ,ZVERT
|
|
|