10 lines
449 B
Text
10 lines
449 B
Text
C *--> FROM COMMON.SRCG26
|
|
COMMON/SRCG26/DIFQI1,DIFQI2,DIFQI3,ELBAC1,ELVMAX,HUPPER,HLOWER,
|
|
$FALELB,FRACT,IOPTND,ISTEP,NCON,NELEV,NEQSUR,NSCQI,NGAT,
|
|
$NSCEL,NSTEPS,NUMVAL,OUTMAX,PCTERN,QELVMX,QIBAC1,
|
|
$SURCHG,TENDCY,HRSCH,HTARG1,HTARG2,HTARG3,REDUCE,REDUC1,REDUC2,
|
|
$QTARG1,QTARG2,QTARG3,SCEL1,SCQIMN,SCQOMN,ISURG,
|
|
$HCHECK,QCHECK,QDIFF,HPREVQ,QGENME,PEAKQ1
|
|
LOGICAL SURCHG
|
|
C
|
|
|