Gabriele Cosmo
8 lines
495 B
PHP
8 lines
495 B
PHP
|
|
PARAMETER (NBIN= 500)
|
|
COMMON/CELOSS/ SEL1(NBIN), SEL1C(NBIN), SER1(NBIN), SER1C(NBIN),
|
|
+ SEL2(NBIN), SEL2C(NBIN), SER2(NBIN), SER2C(NBIN),
|
|
+ DEDL(NBIN), DEDR(NBIN) ,
|
|
+ STRCH,STRCH1,STRCH2,STRNE,STRNE1,STRNE2,
|
|
+ EDEPCH,EDEPNE
|