8 lines
334 B
Text
8 lines
334 B
Text
|
C *--> FROM COMMON.SURG26
|
||
|
COMMON/SURG26/ADDQIA,ADDQIB,ADDQIC,ELBAC1,ELVMAX,ELWRND,EUPRND,
|
||
|
$FALELA,FALELB,FRACT,IOPTND,ISTEP,NCON,NELEV,NEQSUR,NFLOIN,NGAT,
|
||
|
$NPOOL,NSTEPS,NUMVAL,OUTMAX,PCTERN,QELVMX,QIBAC1,REDUCE,SPECQB,
|
||
|
$SPECQC,SURCHG,SURMIN,TENDCY
|
||
|
LOGICAL SURCHG
|
||
|
C
|