From 97b21a1c951ee504a455945e2e1d8662bc4e5bea Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 11:00:26 +0200 Subject: [PATCH 01/50] [minicern] avoid dupe quest code --- misc/minicern/src/hbook.f | 26 ++++---- misc/minicern/src/quest.inc | 2 + misc/minicern/src/zebra.f | 118 ++++++++++++++++++------------------ 3 files changed, 74 insertions(+), 72 deletions(-) create mode 100644 misc/minicern/src/quest.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 522c731686169..ab3f42c8202ce 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -245,7 +245,7 @@ SUBROUTINE HROPEN(LUN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) + ,CHTOP(NLPATM) CHARACTER*(LENHFN) HFNAME COMMON /HCFILE/HFNAME(MXFILES) - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*(*) CFNAME,CHDIR,CHOPTT CHARACTER*8 CHOPT CHOPT=CHOPTT @@ -299,7 +299,7 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) COMMON /HCFILE/HFNAME(MXFILES) CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*(*) CHDIR,CHOPT CHARACTER*8 TAGS(2),CHOPTT DIMENSION IOPT(6) @@ -429,7 +429,7 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) + NCHAR ,NRHIST,IERR ,NV COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, + NCHAR ,NRHIST,IERR ,NV - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*128 CHWOLD INTEGER KEYS(2) DATA KHIDE,KHID1,KHID2,KHCO1,KHCO2/4HHIDE,4HHID1,4HHID2, @@ -648,7 +648,7 @@ SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) COMMON /HCFILE/HFNAME(MXFILES) CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' DIMENSION LBANK(1),JBIAS(1) INTEGER KEYS(2) CHARACTER*(*)CHOPT @@ -690,7 +690,7 @@ SUBROUTINE HNOENT(IDD,NUMB) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' CALL HFIND(IDD,'HNOENT') IF(IQUEST(1).NE.0)THEN NUMB=0 @@ -1023,7 +1023,7 @@ SUBROUTINE HGNF(IDN,IDNEVT,X,IERROR) + ,CHTOP(NLPATM) CHARACTER*(LENHFN) HFNAME COMMON /HCFILE/HFNAME(MXFILES) - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' DIMENSION X(*) INTEGER KEYS(2) LC=LQ(LCIDN-1) @@ -1996,7 +1996,7 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) COMMON/HCUNIT/LOUT,LERR,LINFIT CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*2 NODIR PARAMETER (NODIR = '@#') CHARACTER*128 CHAIN, CACHE @@ -2427,7 +2427,7 @@ SUBROUTINE HFIND(IDD,CHROUT) + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, + IDG ,MAXBIT,IDENT - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*(*) CHROUT IF(LFIX.NE.0)GO TO 99 IQUEST(1)=0 @@ -2980,7 +2980,7 @@ SUBROUTINE HNBUFR(IDD) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) LOGICAL MEMORY @@ -3115,7 +3115,7 @@ SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) LOGICAL NRECOV COMMON /HCRECV/ NRECOV - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IF (IQ(LNAME+IOFF+ZIBANK) .EQ. IBANK) THEN @@ -3261,7 +3261,7 @@ SUBROUTINE HSPACE (N,CHROUT,IDD) + NCHAR ,NRHIST,IERR ,NV COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, + NCHAR ,NRHIST,IERR ,NV - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*(*) CHROUT IDLAST=0 IERR=0 @@ -3885,7 +3885,7 @@ SUBROUTINE HLDIR(CHPATH,CHOPT) COMMON /HCMAIL/CHMAIL DIMENSION IPAWC(99) EQUIVALENCE (NWPAW,IPAWC(1)) - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*(*) CHPATH,CHOPT CHARACTER*128 CHWOLD DIMENSION LCUR(15),IOPT(5) @@ -4006,7 +4006,7 @@ SUBROUTINE HLDIRT(CHDIR) + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) CHARACTER*(*) CHDIR - COMMON/QUEST/IQUEST(100) + INCLUDE 'quest.inc' CHARACTER*1 HTYPE INTEGER KEYS(2) NCH=LENOCC(CHDIR) diff --git a/misc/minicern/src/quest.inc b/misc/minicern/src/quest.inc new file mode 100644 index 0000000000000..38c25dfa273ab --- /dev/null +++ b/misc/minicern/src/quest.inc @@ -0,0 +1,2 @@ +C=== quest.inc ================================================= + COMMON /QUEST/ IQUEST(100) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 80477ee9bfa50..636ba72d4243b 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -31,7 +31,7 @@ SUBROUTINE MZEBRA (LIST) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -105,7 +105,7 @@ SUBROUTINE MZINCO (LIST) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' DIMENSION LIST(9) JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) CALL VZEROI (IQUEST,100) @@ -235,7 +235,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -463,7 +463,7 @@ SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /RZBUFF/ ITEST(8704) PARAMETER (MAXFILES=128, MAXSTRIP=21) CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) @@ -700,7 +700,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -803,7 +803,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) SUBROUTINE RZVCYC(LTAD) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -871,7 +871,7 @@ SUBROUTINE RZVCYC(LTAD) SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -968,7 +968,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1162,7 +1162,7 @@ SUBROUTINE ZITOH (INTV,IHOLL,NP) SUBROUTINE MZRESV PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1243,7 +1243,7 @@ SUBROUTINE MZRESV SUBROUTINE RZSAVE PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1370,7 +1370,7 @@ SUBROUTINE RZSAVE *------------------------------------------------------------------------------- SUBROUTINE FZICV (MS,IRMT) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) DIMENSION MS(99), IRMT(99) @@ -1485,7 +1485,7 @@ SUBROUTINE FZIREL COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1618,7 +1618,7 @@ SUBROUTINE FZIREL SUBROUTINE FZILIN PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1686,7 +1686,7 @@ SUBROUTINE MZCHLS (IXST,LP) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1753,7 +1753,7 @@ SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG +, NQHOL0,NQHOLL(95) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -1819,7 +1819,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2113,7 +2113,7 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2250,7 +2250,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2529,7 +2529,7 @@ SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2642,7 +2642,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -2801,7 +2801,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3031,7 +3031,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3213,7 +3213,7 @@ SUBROUTINE FZIMTB COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3508,7 +3508,7 @@ FUNCTION IUCOMP (ITEXT,IVECT,N) *------------------------------------------------------------------------------- SUBROUTINE IZBCDT (NP,ITABT) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' PARAMETER (NQTCET=256) COMMON /ZCETA/ IQCETA(256),IQTCET(256) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) @@ -3550,7 +3550,7 @@ LOGICAL FUNCTION RZSAME(IH1,IH2,N) SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -3772,7 +3772,7 @@ SUBROUTINE RZPAFF(CH,NL,CHPATH) CHARACTER*(*) CHPATH,CH(*) CHARACTER*255 CHTEMP CHARACTER*16 CHL - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' MAXLEN=LEN(CHPATH) IF(MAXLEN.GT.255)MAXLEN=255 IQUEST(1) = 0 @@ -3951,7 +3951,7 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4154,7 +4154,7 @@ SUBROUTINE MZCHLN (IXST,LP) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4226,7 +4226,7 @@ SUBROUTINE MZCHLN (IXST,LP) SUBROUTINE MZCHNB (LIX) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4277,7 +4277,7 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4359,7 +4359,7 @@ FUNCTION MZDVAC (IXDIVP) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4431,7 +4431,7 @@ SUBROUTINE MZGARB (IXGP,IXWP) COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4521,7 +4521,7 @@ SUBROUTINE MZGAR1 COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4646,7 +4646,7 @@ SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4735,7 +4735,7 @@ SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) FUNCTION MZFDIV (IXST,LIXP) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4793,7 +4793,7 @@ SUBROUTINE MZFGAP COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -4933,7 +4933,7 @@ SUBROUTINE MZFGAP SUBROUTINE MZTABC COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5032,7 +5032,7 @@ SUBROUTINE MZTABF COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5149,7 +5149,7 @@ SUBROUTINE MZTABH COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5240,7 +5240,7 @@ SUBROUTINE MZTABM COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5343,7 +5343,7 @@ SUBROUTINE MZTABR COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5466,7 +5466,7 @@ SUBROUTINE MZTABR SUBROUTINE MZTABS PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5515,7 +5515,7 @@ SUBROUTINE MZTABS SUBROUTINE MZTABX PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -5574,7 +5574,7 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE @@ -5878,7 +5878,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6010,7 +6010,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) SUBROUTINE MZGSTA (IGARB) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6058,7 +6058,7 @@ SUBROUTINE MZGSTA (IGARB) SUBROUTINE MZIOCF (JUP,MXVAL) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' DIMENSION MU(99) EQUIVALENCE (MU(1),IQHOLK(1)) EQUIVALENCE (NGR,IQUEST(1)), (NGRU,IQUEST(2)) @@ -6078,7 +6078,7 @@ SUBROUTINE MZIOCF (JUP,MXVAL) *------------------------------------------------------------------------------- SUBROUTINE MZIOCR (IOW) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) EQUIVALENCE (JIO,IQUEST(1)) @@ -6205,7 +6205,7 @@ SUBROUTINE MZIOCR (IOW) FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6300,7 +6300,7 @@ SUBROUTINE MZMOVE COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6406,7 +6406,7 @@ SUBROUTINE MZPUDX (LP,NWP) +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG +, NQHOL0,NQHOLL(95) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6452,7 +6452,7 @@ SUBROUTINE MZRELB COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6645,7 +6645,7 @@ SUBROUTINE MZRELL (MDESV) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6788,7 +6788,7 @@ SUBROUTINE MZRELX COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6839,7 +6839,7 @@ SUBROUTINE MZSDIV (IXDIVP,IFLAGP) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -6930,7 +6930,7 @@ SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -7096,7 +7096,7 @@ SUBROUTINE ZHTOI (HOLL,INTV,NP) SUBROUTINE RZSCAN(CHPATH,UROUT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -7189,7 +7189,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) SUBROUTINE MZWIPE (IXWP) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) @@ -7221,7 +7221,7 @@ SUBROUTINE RZEND(CHDIR) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) - COMMON /QUEST/ IQUEST(100) + INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) From da35b5b868d9af20d80fb4d8d108f3a3a96c2d99 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 11:07:01 +0200 Subject: [PATCH 02/50] [minicern] avoid dupe hcflag code --- misc/minicern/src/hbook.f | 95 ++++++++---------------------------- misc/minicern/src/hcflag.inc | 5 ++ 2 files changed, 24 insertions(+), 76 deletions(-) create mode 100644 misc/minicern/src/hcflag.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index ab3f42c8202ce..9e01db24fb0cb 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -19,10 +19,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN REAL FENC , HCV COMMON/BIGBUF/BIGB(4000000) @@ -425,11 +422,8 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) COMMON /HNTCUR/ NTCUR - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV INCLUDE 'quest.inc' + INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD INTEGER KEYS(2) DATA KHIDE,KHID1,KHID2,KHCO1,KHCO2/4HHIDE,4HHID1,4HHID2, @@ -839,10 +833,7 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, @@ -1103,10 +1094,7 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -1210,10 +1198,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -1633,10 +1618,7 @@ SUBROUTINE HDELET(ID1) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' IF(LCDIR.LE.0)GO TO 999 IF(ID1.EQ.0)GO TO 120 ID=ID1 @@ -1731,10 +1713,7 @@ SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER IDD, ADDRES, HNBPTR CHARACTER*(*) BLKNA1, FORM1 PARAMETER (MAXTOK = 50) @@ -1988,10 +1967,7 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) + ,CHTOP(NLPATM) CHARACTER*(LENHFN) HFNAME COMMON /HCFILE/HFNAME(MXFILES) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT CHARACTER*128 CHMAIL @@ -2118,10 +2094,7 @@ SUBROUTINE HMACHI + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, @@ -2414,10 +2387,7 @@ SUBROUTINE HFIND(IDD,CHROUT) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, @@ -2879,10 +2849,7 @@ SUBROUTINE HNTMP(IDD) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -2965,10 +2932,7 @@ SUBROUTINE HNBUFR(IDD) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -3257,11 +3221,8 @@ SUBROUTINE HSPACE (N,CHROUT,IDD) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV INCLUDE 'quest.inc' + INCLUDE 'hcflag.inc' CHARACTER*(*) CHROUT IDLAST=0 IERR=0 @@ -3413,10 +3374,7 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, @@ -3533,10 +3491,7 @@ SUBROUTINE HNMSET(IDD, ITEM, IVAL) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' ID = IDD IDPOS = LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),ID) IF (IDPOS .LE. 0) THEN @@ -3645,10 +3600,7 @@ SUBROUTINE HNBUFF(IDD, FATAL) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' LOGICAL FATAL IF (LQ(LCDIR-4) .EQ. 0) THEN IF (FATAL) THEN @@ -3714,10 +3666,7 @@ SUBROUTINE HNBFWR(IDD) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IERR = 0 @@ -3809,10 +3758,7 @@ SUBROUTINE HNHDWR(IDD) + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) IERR = 0 @@ -3988,10 +3934,7 @@ SUBROUTINE HLDIRT(CHDIR) + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) - INTEGER ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV - COMMON/HCFLAG/ID ,IDBADD,LID ,IDLAST,IDHOLD,NBIT ,NBITCH, - + NCHAR ,NRHIST,IERR ,NV + INCLUDE 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, diff --git a/misc/minicern/src/hcflag.inc b/misc/minicern/src/hcflag.inc new file mode 100644 index 0000000000000..cb9e7324076e5 --- /dev/null +++ b/misc/minicern/src/hcflag.inc @@ -0,0 +1,5 @@ +C=== hcflag.inc ================================================ + INTEGER ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH, + + NCHAR,NRHIST,IERR,NV + COMMON /HCFLAG/ ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH, + + NCHAR,NRHIST,IERR ,NV From 0f862d4f15c3eb15134991cc64c312d717e501ac Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 11:26:11 +0200 Subject: [PATCH 03/50] [minicern] avoid dupe pawc code and redefine HCV and FENCE from REAL to INT --- misc/minicern/src/hbook.f | 195 ++++++++----------------------------- misc/minicern/src/pawc.inc | 4 + 2 files changed, 43 insertions(+), 156 deletions(-) create mode 100644 misc/minicern/src/pawc.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 9e01db24fb0cb..d4ff5fd6992e5 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -20,12 +20,9 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) INCLUDE 'hcflag.inc' - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV COMMON/BIGBUF/BIGB(4000000) character BIGB - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -159,10 +156,7 @@ subroutine hntvar3(id,last,chvar) *------------------------------------------------------------------------------- SUBROUTINE HLIMIT (LIMIT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -376,10 +370,7 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -606,10 +597,7 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) *------------------------------------------------------------------------------- SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -658,10 +646,7 @@ SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HNOENT(IDD,NUMB) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -701,10 +686,7 @@ SUBROUTINE HNOENT(IDD,NUMB) *------------------------------------------------------------------------------- SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -796,10 +778,7 @@ SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) *------------------------------------------------------------------------------- SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -902,10 +881,7 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) *------------------------------------------------------------------------------- SUBROUTINE HGNPAR(IDN,CHROUT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -980,10 +956,7 @@ SUBROUTINE HGNPAR(IDN,CHROUT) *------------------------------------------------------------------------------- SUBROUTINE HGNF(IDN,IDNEVT,X,IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1068,10 +1041,7 @@ SUBROUTINE HGNT(IDN,IDNEVT,IERROR) *------------------------------------------------------------------------------- SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1172,10 +1142,7 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) *------------------------------------------------------------------------------- SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1532,10 +1499,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) *------------------------------------------------------------------------------- SUBROUTINE HDCOFL - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1581,10 +1545,7 @@ SUBROUTINE HDCOFL *------------------------------------------------------------------------------- SUBROUTINE HDELET(ID1) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1674,10 +1635,7 @@ SUBROUTINE HDELET(ID1) *------------------------------------------------------------------------------- SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1790,10 +1748,7 @@ FUNCTION HI(IDD,I) *------------------------------------------------------------------------------- FUNCTION HIE(IDD,I) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1842,10 +1797,7 @@ FUNCTION HIJ(IDD,I,J) *------------------------------------------------------------------------------- SUBROUTINE HIX(IDD,I,X) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1890,10 +1842,7 @@ SUBROUTINE HIX(IDD,I,X) *------------------------------------------------------------------------------- SUBROUTINE HIJXY(IDD,I,J,X,Y) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -1933,10 +1882,7 @@ FUNCTION HIJE(IDD,I,J) *------------------------------------------------------------------------------- SUBROUTINE HCDIR(CHPATH,CHOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2068,10 +2014,7 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HMACHI - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2189,10 +2132,7 @@ SUBROUTINE HMACHI *------------------------------------------------------------------------------- FUNCTION HCX(ICX,IOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2301,10 +2241,7 @@ FUNCTION HCX(ICX,IOPT) *------------------------------------------------------------------------------- FUNCTION HCXY(ICX,ICY,IOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2361,10 +2298,7 @@ FUNCTION HCXY(ICX,ICY,IOPT) *------------------------------------------------------------------------------- SUBROUTINE HFIND(IDD,CHROUT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2457,10 +2391,7 @@ SUBROUTINE HRZCD(CHDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HNMADR(VAR1, IADD, ISCHAR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2701,10 +2632,7 @@ SUBROUTINE HPATH(CHPATH) *------------------------------------------------------------------------------- SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2752,10 +2680,7 @@ SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) *------------------------------------------------------------------------------- SUBROUTINE HPARNT(IDN, CHROUT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2823,10 +2748,7 @@ SUBROUTINE HPARNT(IDN, CHROUT) *------------------------------------------------------------------------------- SUBROUTINE HNTMP(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -2906,10 +2828,7 @@ SUBROUTINE HNTMP(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNBUFR(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3040,10 +2959,7 @@ SUBROUTINE HNBUFR(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3195,10 +3111,7 @@ SUBROUTINE HRZFRA(IH,IOH,NW) *------------------------------------------------------------------------------- SUBROUTINE HSPACE (N,CHROUT,IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3240,10 +3153,7 @@ SUBROUTINE HSPACE (N,CHROUT,IDD) *------------------------------------------------------------------------------- SUBROUTINE HNTMPD(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3288,10 +3198,7 @@ SUBROUTINE HNTMPD(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNBUFD(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3337,10 +3244,7 @@ SUBROUTINE HNBUFD(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3454,10 +3358,7 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) *------------------------------------------------------------------------------- SUBROUTINE HNMSET(IDD, ITEM, IVAL) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3517,10 +3418,7 @@ SUBROUTINE HNMSET(IDD, ITEM, IVAL) *------------------------------------------------------------------------------- INTEGER FUNCTION HNBPTR(BLKNA1) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3574,10 +3472,7 @@ INTEGER FUNCTION HNBPTR(BLKNA1) *------------------------------------------------------------------------------- SUBROUTINE HNBUFF(IDD, FATAL) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3629,10 +3524,7 @@ SUBROUTINE HNBUFF(IDD, FATAL) *------------------------------------------------------------------------------- SUBROUTINE HNBFWR(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3721,10 +3613,7 @@ SUBROUTINE HNBFWR(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNHDWR(IDD) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3791,10 +3680,7 @@ SUBROUTINE HNHDWR(IDD) *------------------------------------------------------------------------------- SUBROUTINE HLDIR(CHPATH,CHOPT) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) @@ -3908,10 +3794,7 @@ SUBROUTINE HLDIR(CHPATH,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE HLDIRT(CHDIR) - INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU, LMAIN - REAL FENC , HCV - COMMON/PAWC/NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,FENC(5),LMAIN, - +HCV(4000000-11) + INCLUDE 'pawc.inc' INTEGER IQ ,LQ REAL Q DIMENSION IQ(2),Q(2),LQ(8000) diff --git a/misc/minicern/src/pawc.inc b/misc/minicern/src/pawc.inc new file mode 100644 index 0000000000000..2bb8b5bb1d45b --- /dev/null +++ b/misc/minicern/src/pawc.inc @@ -0,0 +1,4 @@ +C=== pawc.inc ================================================== + INTEGER NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,IFENCE,LMAIN,IPAW + COMMON /PAWC/ NWPAW,IXPAWC,IHDIV,IXHIGZ,IXKU,IFENCE(5),LMAIN, + + IPAW(4000000-11) From 78aa3b6749679fb0f59ada717cc4fb636d6b0df9 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 11:31:16 +0200 Subject: [PATCH 04/50] [minicern] avoid dupe iq hbook code --- misc/minicern/src/hbook.f | 897 ++-------------------------------- misc/minicern/src/hparam1.inc | 23 + 2 files changed, 62 insertions(+), 858 deletions(-) create mode 100644 misc/minicern/src/hparam1.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index d4ff5fd6992e5..0efe46c5c53f5 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -23,28 +23,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE COMMON/BIGBUF/BIGB(4000000) character BIGB INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, @@ -157,28 +136,7 @@ subroutine hntvar3(id,last,chvar) SUBROUTINE HLIMIT (LIMIT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, + IOCF4,IOFIT,IONT,IOBL,IOCC PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) @@ -371,28 +329,7 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) + ,ICHTYP(MXFILES),ICHLUN(MXFILES) @@ -598,28 +535,7 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) + ,ICHTYP(MXFILES),ICHLUN(MXFILES) @@ -647,28 +563,7 @@ SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) SUBROUTINE HNOENT(IDD,NUMB) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'quest.inc' CALL HFIND(IDD,'HNOENT') IF(IQUEST(1).NE.0)THEN @@ -687,28 +582,7 @@ SUBROUTINE HNOENT(IDD,NUMB) SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -779,28 +653,7 @@ SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -882,28 +735,7 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) SUBROUTINE HGNPAR(IDN,CHROUT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' CHARACTER*(*) CHROUT INTEGER KEYS(2) LCIDN=0 @@ -957,28 +789,7 @@ SUBROUTINE HGNPAR(IDN,CHROUT) SUBROUTINE HGNF(IDN,IDNEVT,X,IERROR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) + ,ICHTYP(MXFILES),ICHLUN(MXFILES) @@ -1042,28 +853,7 @@ SUBROUTINE HGNT(IDN,IDNEVT,IERROR) SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, @@ -1143,28 +933,7 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, @@ -1500,28 +1269,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) SUBROUTINE HDCOFL INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, @@ -1546,28 +1294,7 @@ SUBROUTINE HDCOFL SUBROUTINE HDELET(ID1) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -1636,28 +1363,7 @@ SUBROUTINE HDELET(ID1) SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, + IOCF4,IOFIT,IONT,IOBL,IOCC INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, @@ -1749,28 +1455,7 @@ FUNCTION HI(IDD,I) FUNCTION HIE(IDD,I) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' CALL HFIND(IDD,'HIE ') IF(JBIT(IQ(LCID+KBITS),9).NE.0)THEN HIE=HCX(I,2) @@ -1798,28 +1483,7 @@ FUNCTION HIJ(IDD,I,J) SUBROUTINE HIX(IDD,I,X) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, @@ -1843,28 +1507,7 @@ SUBROUTINE HIX(IDD,I,X) SUBROUTINE HIJXY(IDD,I,J,X,Y) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' CALL HFIND(IDD,'HIJXY ') DX=(Q(LCID+KXMAX)-Q(LCID+KXMIN))/FLOAT(IQ(LCID+KNCX)) DY=(Q(LCID+KYMAX)-Q(LCID+KYMIN))/FLOAT(IQ(LCID+KNCY)) @@ -1883,28 +1526,7 @@ FUNCTION HIJE(IDD,I,J) SUBROUTINE HCDIR(CHPATH,CHOPT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) + ,ICHTYP(MXFILES),ICHLUN(MXFILES) @@ -2015,28 +1637,7 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) SUBROUTINE HMACHI INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, @@ -2133,28 +1734,7 @@ SUBROUTINE HMACHI FUNCTION HCX(ICX,IOPT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, @@ -2242,28 +1822,7 @@ FUNCTION HCX(ICX,IOPT) FUNCTION HCXY(ICX,ICY,IOPT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, @@ -2299,28 +1858,7 @@ FUNCTION HCXY(ICX,ICY,IOPT) SUBROUTINE HFIND(IDD,CHROUT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , @@ -2392,28 +1930,7 @@ SUBROUTINE HRZCD(CHDIR,CHOPT) SUBROUTINE HNMADR(VAR1, IADD, ISCHAR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, @@ -2633,28 +2150,7 @@ SUBROUTINE HPATH(CHPATH) SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -2681,28 +2177,7 @@ SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) SUBROUTINE HPARNT(IDN, CHROUT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -2749,28 +2224,7 @@ SUBROUTINE HPARNT(IDN, CHROUT) SUBROUTINE HNTMP(IDD) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, @@ -2829,28 +2283,7 @@ SUBROUTINE HNTMP(IDD) *------------------------------------------------------------------------------- SUBROUTINE HNBUFR(IDD) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, @@ -2960,28 +2393,7 @@ SUBROUTINE HNBUFR(IDD) SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -3112,29 +2524,8 @@ SUBROUTINE HRZFRA(IH,IOH,NW) SUBROUTINE HSPACE (N,CHROUT,IDD) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) INCLUDE 'quest.inc' + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' CHARACTER*(*) CHROUT IDLAST=0 @@ -3154,28 +2545,7 @@ SUBROUTINE HSPACE (N,CHROUT,IDD) SUBROUTINE HNTMPD(IDD) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' IF (LQ(LCDIR-5) .EQ. 0) RETURN IF (IDD .EQ. 0) THEN CALL MZDROP(IHDIV,LQ(LCDIR-5),'L') @@ -3199,28 +2569,7 @@ SUBROUTINE HNTMPD(IDD) SUBROUTINE HNBUFD(IDD) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' CALL HNTMPD(IDD) IF (LQ(LCDIR-4) .EQ. 0) RETURN IF (IDD .EQ. 0) THEN @@ -3245,28 +2594,7 @@ SUBROUTINE HNBUFD(IDD) SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -3359,28 +2687,7 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) SUBROUTINE HNMSET(IDD, ITEM, IVAL) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -3419,28 +2726,7 @@ SUBROUTINE HNMSET(IDD, ITEM, IVAL) INTEGER FUNCTION HNBPTR(BLKNA1) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -3473,28 +2759,7 @@ INTEGER FUNCTION HNBPTR(BLKNA1) SUBROUTINE HNBUFF(IDD, FATAL) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' LOGICAL FATAL IF (LQ(LCDIR-4) .EQ. 0) THEN @@ -3525,28 +2790,7 @@ SUBROUTINE HNBUFF(IDD, FATAL) SUBROUTINE HNBFWR(IDD) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -3614,28 +2858,7 @@ SUBROUTINE HNBFWR(IDD) SUBROUTINE HNHDWR(IDD) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, @@ -3681,28 +2904,7 @@ SUBROUTINE HNHDWR(IDD) SUBROUTINE HLDIR(CHPATH,CHOPT) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) @@ -3795,28 +2997,7 @@ SUBROUTINE HLDIR(CHPATH,CHOPT) SUBROUTINE HLDIRT(CHDIR) INCLUDE 'pawc.inc' - INTEGER IQ ,LQ - REAL Q - DIMENSION IQ(2),Q(2),LQ(8000) - EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) - INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, - +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, - +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, - +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), - +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN - INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, - + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, - + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , - + KCON1 ,KCON2 ,KBITS ,KNTOT - PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, - + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, - + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, - + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) + INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT diff --git a/misc/minicern/src/hparam1.inc b/misc/minicern/src/hparam1.inc new file mode 100644 index 0000000000000..14cfe85e9244d --- /dev/null +++ b/misc/minicern/src/hparam1.inc @@ -0,0 +1,23 @@ +C=== hparam1.inc =============================================== + INTEGER IQ ,LQ + REAL Q + DIMENSION IQ(2),Q(2),LQ(8000) + EQUIVALENCE (LQ(1),LMAIN),(IQ(1),LQ(9)),(Q(1),IQ(1)) + INTEGER HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, + +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, + +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, + +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM, + +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN + COMMON/HCBOOK/HVERSN,IHWORK,LHBOOK,LHPLOT,LGTIT,LHWORK, + +LCDIR,LSDIR,LIDS,LTAB,LCID,LCONT,LSCAT,LPROX,LPROY,LSLIX, + +LSLIY,LBANX,LBANY,LPRX,LPRY,LFIX,LLID,LR1,LR2,LNAME,LCHAR,LINT, + +LREAL,LBLOK,LLBLK,LBUFM,LBUF,LTMPM,LTMP,LTMP1,LHPLIP,LHDUM(9), + +LHFIT,LFUNC,LHFCO,LHFNA,LCIDN + INTEGER KNCX ,KXMIN ,KXMAX ,KMIN1 ,KMAX1 ,KNORM , KTIT1, + + KNCY ,KYMIN ,KYMAX ,KMIN2 ,KMAX2 ,KSCAL2 , KTIT2, + + KNBIT ,KNOENT ,KSTAT1 ,KNSDIR ,KNRH , + + KCON1 ,KCON2 ,KBITS ,KNTOT + PARAMETER(KNCX=3,KXMIN=4,KXMAX=5,KMIN1=7,KMAX1=8,KNORM=9,KTIT1=10, + + KNCY=7,KYMIN=8,KYMAX=9,KMIN2=6,KMAX2=10,KSCAL2=11, + + KTIT2=12,KNBIT=1,KNOENT=2,KSTAT1=3,KNSDIR=5,KNRH=6, + + KCON1=9,KCON2=3,KBITS=1,KNTOT=2) From 9a410e2d68590a3e7ae0b99e7b8807717c19a1bb Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 12:58:03 +0200 Subject: [PATCH 05/50] [minicern] avoid dupe zbit code --- misc/minicern/src/hbook.f | 240 +++--------------------------------- misc/minicern/src/zbits.inc | 12 ++ 2 files changed, 32 insertions(+), 220 deletions(-) create mode 100644 misc/minicern/src/zbits.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 0efe46c5c53f5..5cbd1a3b6e32c 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -8,17 +8,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE + ,NBITS,IELEM) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' COMMON/BIGBUF/BIGB(4000000) character BIGB @@ -338,17 +328,7 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) + ,CHTOP(NLPATM) CHARACTER*(LENHFN) HFNAME COMMON /HCFILE/HFNAME(MXFILES) - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' COMMON /HNTCUR/ NTCUR INCLUDE 'quest.inc' INCLUDE 'hcflag.inc' @@ -583,17 +563,7 @@ SUBROUTINE HNOENT(IDD,NUMB) SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, @@ -654,17 +624,7 @@ SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, @@ -855,17 +815,7 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' COMMON /HNTCUR/ NTCUR CHARACTER*(*) BLKNA1, VAR(*) CHARACTER*8 BLKNAM, BLKSAV @@ -935,17 +885,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT LOGICAL NRECOV COMMON /HCRECV/ NRECOV @@ -1295,17 +1235,7 @@ SUBROUTINE HDCOFL SUBROUTINE HDELET(ID1) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' IF(LCDIR.LE.0)GO TO 999 IF(ID1.EQ.0)GO TO 120 @@ -1366,17 +1296,7 @@ SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR) INCLUDE 'hparam1.inc' COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, + IOCF4,IOFIT,IONT,IOBL,IOCC - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' INTEGER IDD, ADDRES, HNBPTR CHARACTER*(*) BLKNA1, FORM1 @@ -1932,17 +1852,7 @@ SUBROUTINE HNMADR(VAR1, IADD, ISCHAR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' CHARACTER*(*) VAR1 CHARACTER*32 NAME, VAR INTEGER IADD @@ -2151,17 +2061,7 @@ SUBROUTINE HPATH(CHPATH) SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT LOGICAL INDVAR NSUB = JBYT(IQ(LNAME+IOFF+ZDESC), 18, 3) @@ -2178,17 +2078,7 @@ SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) SUBROUTINE HPARNT(IDN, CHROUT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' CHARACTER*(*) CHROUT LCID = 0 NIDN = LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),IDN) @@ -2226,17 +2116,7 @@ SUBROUTINE HNTMP(IDD) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' NDIM = IQ(LCID+ZNDIM) NW = 1 + ZNTMP*NDIM IF (LQ(LCDIR-5) .EQ. 0) THEN @@ -2285,17 +2165,7 @@ SUBROUTINE HNBUFR(IDD) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) @@ -2394,17 +2264,7 @@ SUBROUTINE HNBUFR(IDD) SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' LOGICAL NRECOV COMMON /HCRECV/ NRECOV INCLUDE 'quest.inc' @@ -2595,17 +2455,7 @@ SUBROUTINE HNBUFD(IDD) SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + I9, I10, I11, I12, I13, I14, I15, I16, @@ -2688,17 +2538,7 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) SUBROUTINE HNMSET(IDD, ITEM, IVAL) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' ID = IDD IDPOS = LOCATI(IQ(LTAB+1),IQ(LCDIR+KNRH),ID) @@ -2727,17 +2567,7 @@ SUBROUTINE HNMSET(IDD, ITEM, IVAL) INTEGER FUNCTION HNBPTR(BLKNA1) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' CHARACTER*(*) BLKNA1 CHARACTER*8 BLKNAM INTEGER IBLKN(2) @@ -2791,17 +2621,7 @@ SUBROUTINE HNBUFF(IDD, FATAL) SUBROUTINE HNBFWR(IDD) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) @@ -2859,17 +2679,7 @@ SUBROUTINE HNBFWR(IDD) SUBROUTINE HNHDWR(IDD) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) @@ -3001,17 +2811,7 @@ SUBROUTINE HLDIRT(CHDIR) INCLUDE 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT - INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, - + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, - + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, - + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, - + ZID, ZNTMP, ZNTMP1, ZLINK - PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, - + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, - + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, - + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, - + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, - + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) + INCLUDE 'zbits.inc' CHARACTER*(*) CHDIR INCLUDE 'quest.inc' CHARACTER*1 HTYPE diff --git a/misc/minicern/src/zbits.inc b/misc/minicern/src/zbits.inc new file mode 100644 index 0000000000000..e9d7035f9e9a2 --- /dev/null +++ b/misc/minicern/src/zbits.inc @@ -0,0 +1,12 @@ +C=== zbits.inc ================================================= + INTEGER ZBITS, ZNDIM, ZNOENT, ZNPRIM, ZNRZB, ZIFCON, + + ZIFNAM, ZIFCHA, ZIFINT, ZIFREA, ZNWTIT, ZITIT1, + + ZNCHRZ, ZDESC, ZLNAME, ZNAME, ZARIND, ZRANGE, ZNADDR, + + ZIBLOK, ZNBLOK, ZLCONT, ZIFBIT, ZIBANK, ZIFTMP, ZITMP, + + ZID, ZNTMP, ZNTMP1, ZLINK + PARAMETER(ZBITS=1, ZNDIM=2, ZNOENT=3, ZNPRIM=4, ZLCONT=6, + + ZNRZB=5, ZIFCON=7, ZIFNAM=4, ZIFCHA=5, ZIFINT=6, + + ZIFREA=7, ZNWTIT=8, ZITIT1=9, ZNCHRZ=13, ZIFBIT=8, + + ZDESC=1, ZLNAME=2, ZNAME=3, ZRANGE=4, ZNADDR=12, + + ZARIND=11, ZIBLOK=8, ZNBLOK=10, ZIBANK=9, ZIFTMP=11, + + ZID=12, ZITMP=10, ZNTMP=6, ZNTMP1=3, ZLINK=6) From ffd6d077f50fc0fbeabd0c8a1e42e011d10b962b Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:03:15 +0200 Subject: [PATCH 06/50] [minicern] avoid dupe hcprin code --- misc/minicern/src/hbook.f | 40 ++++-------------------------------- misc/minicern/src/hcprin.inc | 10 +++++++++ 2 files changed, 14 insertions(+), 36 deletions(-) create mode 100644 misc/minicern/src/hcprin.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 5cbd1a3b6e32c..75431a3f8ebb9 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -1569,15 +1569,7 @@ SUBROUTINE HMACHI +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT + INCLUDE 'hcprin.inc' COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT COMMON /HCSET/ IBSIZE LOGICAL NRECOV @@ -1655,15 +1647,7 @@ SUBROUTINE HMACHI FUNCTION HCX(ICX,IOPT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT + INCLUDE 'hcprin.inc' DOUBLE PRECISION CONT,ERR2,SUM,EPRIM HCX = 0.0 LW = LQ(LCONT) @@ -1743,15 +1727,7 @@ FUNCTION HCX(ICX,IOPT) FUNCTION HCXY(ICX,ICY,IOPT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT + INCLUDE 'hcprin.inc' NW=32/NB J=(IQ(LCID+KNCY)-ICY+1)*(IQ(LCID+KNCX)+2) L2=ICX+J @@ -1780,15 +1756,7 @@ SUBROUTINE HFIND(IDD,CHROUT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' - INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, - + IDG(42),MAXBIT(30),IDENT(9) - REAL BIGP - COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, - + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , - + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, - + IDG ,MAXBIT,IDENT + INCLUDE 'hcprin.inc' INCLUDE 'quest.inc' CHARACTER*(*) CHROUT IF(LFIX.NE.0)GO TO 99 diff --git a/misc/minicern/src/hcprin.inc b/misc/minicern/src/hcprin.inc new file mode 100644 index 0000000000000..58623f0869dc0 --- /dev/null +++ b/misc/minicern/src/hcprin.inc @@ -0,0 +1,10 @@ +C=== hcprin.inc ================================================ + INTEGER IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + + KSQUEZ,NCOLMA,NCOLPA,NLINPA, ICBLAC,ICSTAR,ICFUNC, + + IDG(42),MAXBIT(30),IDENT(9) + REAL BIGP + COMMON/HCPRIN/IFW ,NW ,NB ,IH ,NHT ,ICN ,IPONCE, + + NH ,MSTEP ,NOENT ,NOLD ,IDOLAR,IBLANC,KBINSZ,INO , + + KSQUEZ,NCOLMA,NCOLPA,NLINPA,BIGP ,ICBLAC,ICSTAR,ICFUNC, + + IDG ,MAXBIT,IDENT From 563b07b02a73bb0863972dacc96c5c2819109e60 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:07:09 +0200 Subject: [PATCH 07/50] [minicern] avoid dupe hcdirn code --- misc/minicern/src/hbook.f | 99 ++++-------------------------------- misc/minicern/src/hcdirn.inc | 9 ++++ 2 files changed, 20 insertions(+), 88 deletions(-) create mode 100644 misc/minicern/src/hcdirn.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 75431a3f8ebb9..0b8f289c1362d 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -129,14 +129,7 @@ SUBROUTINE HLIMIT (LIMIT) INCLUDE 'hparam1.inc' COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, + IOCF4,IOFIT,IONT,IOBL,IOCC - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CALL HMACHI NHBOOK = IABS(LIMIT) IF (NHBOOK.LT.10000) NHBOOK=10000 @@ -176,14 +169,7 @@ SUBROUTINE HLIMIT (LIMIT) *------------------------------------------------------------------------------- SUBROUTINE HROPEN(LUN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' INCLUDE 'quest.inc' CHARACTER*(*) CFNAME,CHDIR,CHOPTT CHARACTER*8 CHOPT @@ -228,14 +214,7 @@ SUBROUTINE HROPEN(LUN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) *------------------------------------------------------------------------------- SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL INCLUDE 'quest.inc' @@ -320,14 +299,7 @@ SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' INCLUDE 'zbits.inc' COMMON /HNTCUR/ NTCUR INCLUDE 'quest.inc' @@ -516,14 +488,7 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL INCLUDE 'quest.inc' @@ -750,14 +715,7 @@ SUBROUTINE HGNPAR(IDN,CHROUT) SUBROUTINE HGNF(IDN,IDNEVT,X,IERROR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' INCLUDE 'quest.inc' DIMENSION X(*) INTEGER KEYS(2) @@ -1447,14 +1405,7 @@ FUNCTION HIJE(IDD,I,J) SUBROUTINE HCDIR(CHPATH,CHOPT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' INCLUDE 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT @@ -1798,14 +1749,7 @@ SUBROUTINE HUOPTC(CCHOPT,CSTR,IOPT) *------------------------------------------------------------------------------- SUBROUTINE HRZCD(CHDIR,CHOPT) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CHARACTER*(*)CHDIR,CHOPT IF(ICHTOP(ICDIR).GT.1000)THEN print*, 'CZ option not active','HRZCD',0 @@ -1893,14 +1837,7 @@ SUBROUTINE HITOC(IVAL, VALC, NCSTR, IERR) *------------------------------------------------------------------------------- SUBROUTINE HPATH(CHPATH) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT CHARACTER*(*) CHPATH @@ -2685,14 +2622,7 @@ SUBROUTINE HLDIR(CHPATH,CHOPT) INCLUDE 'hparam1.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CHARACTER*128 CHMAIL COMMON /HCMAIL/CHMAIL DIMENSION IPAWC(99) @@ -2861,14 +2791,7 @@ SUBROUTINE HLDIRT(CHDIR) *------------------------------------------------------------------------------- SUBROUTINE HREND(CHDIR) - PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) - COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) - + ,ICHTYP(MXFILES),ICHLUN(MXFILES) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP - COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - + ,CHTOP(NLPATM) - CHARACTER*(LENHFN) HFNAME - COMMON /HCFILE/HFNAME(MXFILES) + INCLUDE 'hcdirn.inc' CHARACTER*(*) CHDIR NCHMAX=NCHTOP DO 20 I=2,NCHMAX diff --git a/misc/minicern/src/hcdirn.inc b/misc/minicern/src/hcdirn.inc new file mode 100644 index 0000000000000..d69f07ac54eef --- /dev/null +++ b/misc/minicern/src/hcdirn.inc @@ -0,0 +1,9 @@ +C=== hcdirn.inc ================================================ + PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128) + COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES) + + ,ICHTYP(MXFILES),ICHLUN(MXFILES) + CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP + COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) + + ,CHTOP(NLPATM) + CHARACTER*(LENHFN) HFNAME + COMMON /HCFILE/HFNAME(MXFILES) From 84ce0e077844bf1472a3dcd68b67bd4fb54c6942 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:08:50 +0200 Subject: [PATCH 08/50] [minicern] avoid dupe hcform code --- misc/minicern/src/hbook.f | 6 ++---- misc/minicern/src/hcform.inc | 3 +++ 2 files changed, 5 insertions(+), 4 deletions(-) create mode 100644 misc/minicern/src/hcform.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 0b8f289c1362d..db0514bad6b82 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -127,8 +127,7 @@ subroutine hntvar3(id,last,chvar) SUBROUTINE HLIMIT (LIMIT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, - + IOCF4,IOFIT,IONT,IOBL,IOCC + INCLUDE 'hcform.inc' INCLUDE 'hcdirn.inc' CALL HMACHI NHBOOK = IABS(LIMIT) @@ -1252,8 +1251,7 @@ SUBROUTINE HDELET(ID1) SUBROUTINE HBNAM(IDD, BLKNA1, ADDRES, FORM1, ISCHAR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, - + IOCF4,IOFIT,IONT,IOBL,IOCC + INCLUDE 'hcform.inc' INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' INTEGER IDD, ADDRES, HNBPTR diff --git a/misc/minicern/src/hcform.inc b/misc/minicern/src/hcform.inc new file mode 100644 index 0000000000000..4cddb0845a2df --- /dev/null +++ b/misc/minicern/src/hcform.inc @@ -0,0 +1,3 @@ +C=== hcform.inc ================================================ + COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, + + IOCF4,IOFIT,IONT,IOBL,IOCC From 43df58f9247b23e69a8ff4bdcacaf5996a17a88c Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:12:23 +0200 Subject: [PATCH 09/50] [minicern] avoid dupe hcbits code --- misc/minicern/src/hbook.f | 63 ++++-------------------------------- misc/minicern/src/hcbits.inc | 9 ++++++ 2 files changed, 16 insertions(+), 56 deletions(-) create mode 100644 misc/minicern/src/hcbits.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index db0514bad6b82..0a39f44691c9b 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -14,14 +14,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE character BIGB INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTAG, CHFULL, BLOCK CHARACTER*80 VAR CHARACTER*32 NAME, SUBS @@ -528,14 +521,7 @@ SUBROUTINE HGIVE(IDD,CHTITL,NCX,XMIN,XMAX,NCY,YMIN,YMAX,NWT,IDB) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'zbits.inc' - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTITL NARG=10 NCX=0 @@ -590,14 +576,7 @@ SUBROUTINE HGIVEN( ID1, CHTITL, NVAR, TAGS, RLOW, RHIGH ) INCLUDE 'hparam1.inc' INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTITL, TAGS(*) INTEGER ID1, NVAR REAL RLOW(*), RHIGH(*) @@ -1167,14 +1146,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) SUBROUTINE HDCOFL INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'hcbits.inc' DIMENSION IFLAG(37) EQUIVALENCE (IFLAG(1),I1) IF(IQ(LCID-2).NE.0)THEN @@ -1360,14 +1332,7 @@ FUNCTION HIJ(IDD,I,J) SUBROUTINE HIX(IDD,I,X) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'hcbits.inc' CALL HFIND(IDD,'HIX ') CALL HDCOFL IF(I6.EQ.0)THEN @@ -1508,14 +1473,7 @@ SUBROUTINE HMACHI INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'hcbits.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT INCLUDE 'hcprin.inc' @@ -2360,14 +2318,7 @@ SUBROUTINE HNTVAR(ID1,IVAR,CHTAG,BLOCK,NSUB,ITYPE,ISIZE,IELEM) INCLUDE 'hparam1.inc' INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' - INTEGER I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 - COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, - + I9, I10, I11, I12, I13, I14, I15, I16, - +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, - +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + INCLUDE 'hcbits.inc' CHARACTER*(*) CHTAG, BLOCK CHARACTER*32 NAME LOGICAL NEWTUP, LDUM diff --git a/misc/minicern/src/hcbits.inc b/misc/minicern/src/hcbits.inc new file mode 100644 index 0000000000000..278e986be6188 --- /dev/null +++ b/misc/minicern/src/hcbits.inc @@ -0,0 +1,9 @@ +C=== hcbits.inc ================================================ + INTEGER I1, I2, I3, I4, I5, I6, I7, I8, + + I9, I10, I11, I12, I13, I14, I15, I16, + +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, + +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 + COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8, + + I9, I10, I11, I12, I13, I14, I15, I16, + +I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27, + +I28, I29, I30, I31, I32, I33, I34, I35, I123, I230 From 63495426b2b1946ab2f9f1735d3c723d7e6e58e8 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:18:21 +0200 Subject: [PATCH 10/50] [minicern] avoid dupe zbcd code --- misc/minicern/src/zbcd.inc | 8 ++++ misc/minicern/src/zebra.f | 88 +++++--------------------------------- 2 files changed, 19 insertions(+), 77 deletions(-) create mode 100644 misc/minicern/src/zbcd.inc diff --git a/misc/minicern/src/zbcd.inc b/misc/minicern/src/zbcd.inc new file mode 100644 index 0000000000000..b66091b55192d --- /dev/null +++ b/misc/minicern/src/zbcd.inc @@ -0,0 +1,8 @@ +C=== zbcd.inc ================================================== + COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS + +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN + +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT + +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA + +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) + +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG + +, NQHOL0,NQHOLL(95) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 636ba72d4243b..ffe1cecb08660 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -7,13 +7,7 @@ *------------------------------------------------------------------------------- SUBROUTINE MZEBRA (LIST) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' CHARACTER CQALLC*96 COMMON /ZBCDCH/ CQALLC CHARACTER*1 CQLETT(96), CQNUM(10) @@ -81,13 +75,7 @@ SUBROUTINE MZEBRA (LIST) *------------------------------------------------------------------------------- SUBROUTINE MZINCO (LIST) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' CHARACTER CQALLC*96 COMMON /ZBCDCH/ CQALLC CHARACTER*1 CQLETT(96), CQNUM(10) @@ -220,13 +208,7 @@ SUBROUTINE MZPAW (NWORDS,CHOPT) SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT +, IFENCE,LV,LLR,LLD,LIMIT,LAST) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL @@ -1136,13 +1118,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) *------------------------------------------------------------------------------- SUBROUTINE ZITOH (INTV,IHOLL,NP) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' COMMON /SLATE/ DUMMY(8), MM(4), DUMB(28) DIMENSION INTV(99), IHOLL(99), NP(9) DIMENSION MPAK(2) @@ -1472,13 +1448,7 @@ SUBROUTINE FZICV (MS,IRMT) *------------------------------------------------------------------------------- SUBROUTINE FZIREL - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL @@ -1745,13 +1715,7 @@ SUBROUTINE MZCHLS (IXST,LP) *------------------------------------------------------------------------------- SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -2100,13 +2064,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) *------------------------------------------------------------------------------- SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE @@ -2237,13 +2195,7 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) *------------------------------------------------------------------------------- SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE @@ -3200,13 +3152,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE FZIMTB - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL @@ -5580,13 +5526,7 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE +, NQTRAC,MQTRAC(48) EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' DIMENSION IODVEC(99), NWIOMP(9) CHARACTER CHFORM*(*) EQUIVALENCE (NGR,IQUEST(1)), (NGRU,IQUEST(2)) @@ -6398,13 +6338,7 @@ SUBROUTINE MZMOVE *------------------------------------------------------------------------------- SUBROUTINE MZPUDX (LP,NWP) - COMMON /ZBCD/ IQNUM2(11),IQLETT(26),IQNUM(10), IQPLUS,IQMINS - +, IQSTAR,IQSLAS,IQOPEN,IQCLOS,IQDOLL,IQEQU, IQBLAN - +, IQCOMA,IQDOT, IQNUMB,IQAPO, IQEXCL,IQCOLO,IQQUOT - +, IQUNDE,IQCLSQ,IQAND, IQAT, IQQUES,IQOPSQ,IQGREA - +, IQLESS,IQREVE,IQCIRC,IQSEMI,IQPERC, IQLOWL(26) - +, IQCROP,IQVERT,IQCRCL,IQNOT, IQGRAV, IQILEG - +, NQHOL0,NQHOLL(95) + INCLUDE 'zbcd.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) From 4359465053dddcabfadff868443473353e9380fd Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:23:10 +0200 Subject: [PATCH 11/50] [minicern] avoid dupe zbcdh code --- misc/minicern/src/zbcdh.inc | 6 ++++++ misc/minicern/src/zebra.f | 18 +++--------------- 2 files changed, 9 insertions(+), 15 deletions(-) create mode 100644 misc/minicern/src/zbcdh.inc diff --git a/misc/minicern/src/zbcdh.inc b/misc/minicern/src/zbcdh.inc new file mode 100644 index 0000000000000..53ea5c2826037 --- /dev/null +++ b/misc/minicern/src/zbcdh.inc @@ -0,0 +1,6 @@ +C=== zbcdh.inc ================================================= + CHARACTER CQALLC*96 + COMMON /ZBCDCH/ CQALLC + CHARACTER*1 CQLETT(96), CQNUM(10) + EQUIVALENCE (CQLETT(1),CQALLC(1:1)) + EQUIVALENCE (CQNUM(1), CQALLC(27:27)) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index ffe1cecb08660..29e6d36cafa27 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -8,11 +8,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'zbcd.inc' - CHARACTER CQALLC*96 - COMMON /ZBCDCH/ CQALLC - CHARACTER*1 CQLETT(96), CQNUM(10) - EQUIVALENCE (CQLETT(1),CQALLC(1:1)) - EQUIVALENCE (CQNUM(1), CQALLC(27:27)) + INCLUDE 'zbcdh.inc' PARAMETER (NQTCET=256) COMMON /ZCETA/ IQCETA(256),IQTCET(256) COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) @@ -76,11 +72,7 @@ SUBROUTINE MZEBRA (LIST) SUBROUTINE MZINCO (LIST) INCLUDE 'zbcd.inc' - CHARACTER CQALLC*96 - COMMON /ZBCDCH/ CQALLC - CHARACTER*1 CQLETT(96), CQNUM(10) - EQUIVALENCE (CQLETT(1),CQALLC(1:1)) - EQUIVALENCE (CQNUM(1), CQALLC(27:27)) + INCLUDE 'zbcdh.inc' PARAMETER (NQTCET=256) COMMON /ZCETA/ IQCETA(256),IQTCET(256) COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) @@ -3751,11 +3743,7 @@ SUBROUTINE RZPAFF(CH,NL,CHPATH) *------------------------------------------------------------------------------- SUBROUTINE RZPATH(CHPATH) - CHARACTER CQALLC*96 - COMMON /ZBCDCH/ CQALLC - CHARACTER*1 CQLETT(96), CQNUM(10) - EQUIVALENCE (CQLETT(1),CQALLC(1:1)) - EQUIVALENCE (CQNUM(1), CQALLC(27:27)) + INCLUDE 'zbcdh.inc' CHARACTER*1 BSLASH,KTILDE COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED From 28a99ae990b4bd0432e4ea4f05a95241c4bccf2b Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:37:25 +0200 Subject: [PATCH 12/50] [minicern] avoid dupe zunit code --- misc/minicern/src/zebra.f | 99 +++++++++++++------------------------ misc/minicern/src/zunit.inc | 3 ++ 2 files changed, 36 insertions(+), 66 deletions(-) create mode 100644 misc/minicern/src/zunit.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 29e6d36cafa27..4d1facf05ff5c 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -18,8 +18,7 @@ SUBROUTINE MZEBRA (LIST) COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -82,8 +81,7 @@ SUBROUTINE MZINCO (LIST) COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) INCLUDE 'quest.inc' DIMENSION LIST(9) @@ -206,8 +204,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -432,8 +429,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT *------------------------------------------------------------------------------- SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH @@ -671,8 +667,7 @@ SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) *------------------------------------------------------------------------------- SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -1444,8 +1439,7 @@ SUBROUTINE FZIREL PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -1771,8 +1765,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -2059,8 +2052,7 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) INCLUDE 'zbcd.inc' COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -2190,8 +2182,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) INCLUDE 'zbcd.inc' COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -2469,8 +2460,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -2583,8 +2573,7 @@ SUBROUTINE RZDATE(IWORD,IDATE,ITIME,ICASE) *------------------------------------------------------------------------------- SUBROUTINE RZCDIR(CHPATH,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -2740,8 +2729,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -2972,8 +2960,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -3148,8 +3135,7 @@ SUBROUTINE FZIMTB PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -3745,8 +3731,7 @@ SUBROUTINE RZPAFF(CH,NL,CHPATH) SUBROUTINE RZPATH(CHPATH) INCLUDE 'zbcdh.inc' CHARACTER*1 BSLASH,KTILDE - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (NLPATM=100) COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) @@ -3882,8 +3867,7 @@ SUBROUTINE RZPATH(CHPATH) *------------------------------------------------------------------------------- SUBROUTINE RZREAD(IV,N,IPC,IFORM) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -4207,8 +4191,7 @@ SUBROUTINE MZCHNB (LIX) SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -4290,8 +4273,7 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) FUNCTION MZDVAC (IXDIVP) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -4361,8 +4343,7 @@ FUNCTION MZDVAC (IXDIVP) SUBROUTINE MZGARB (IXGP,IXWP) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -4451,8 +4432,7 @@ SUBROUTINE MZGARB (IXGP,IXWP) SUBROUTINE MZGAR1 COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -4724,8 +4704,7 @@ FUNCTION MZFDIV (IXST,LIXP) SUBROUTINE MZFGAP COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -4963,8 +4942,7 @@ SUBROUTINE MZTABC SUBROUTINE MZTABF COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -5080,8 +5058,7 @@ SUBROUTINE MZTABF SUBROUTINE MZTABH COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -5171,8 +5148,7 @@ SUBROUTINE MZTABH SUBROUTINE MZTABM COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -5274,8 +5250,7 @@ SUBROUTINE MZTABM SUBROUTINE MZTABR COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -5506,8 +5481,7 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' INCLUDE 'quest.inc' COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ @@ -5802,8 +5776,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) COMMON /ZLIMIT/LQLIML,LQLIMH COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -6225,8 +6198,7 @@ FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) SUBROUTINE MZMOVE COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -6371,8 +6343,7 @@ SUBROUTINE MZPUDX (LP,NWP) SUBROUTINE MZRELB COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -6564,8 +6535,7 @@ SUBROUTINE MZRELB SUBROUTINE MZRELL (MDESV) COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -6707,8 +6677,7 @@ SUBROUTINE MZRELL (MDESV) SUBROUTINE MZRELX COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -6849,8 +6818,7 @@ SUBROUTINE MZSDIV (IXDIVP,IFLAGP) *------------------------------------------------------------------------------- SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -7138,8 +7106,7 @@ SUBROUTINE MZWIPE (IXWP) *------------------------------------------------------------------------------- SUBROUTINE RZEND(CHDIR) - COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE - COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED + INCLUDE 'zunit.inc' COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) diff --git a/misc/minicern/src/zunit.inc b/misc/minicern/src/zunit.inc new file mode 100644 index 0000000000000..805bb7fc3e96e --- /dev/null +++ b/misc/minicern/src/zunit.inc @@ -0,0 +1,3 @@ +C=== zunit.inc ================================================= + COMMON /ZUNIT/ IQREAD,IQPRNT,IQPR2,IQLOG,IQPNCH,IQTTIN,IQTYPE + COMMON /ZUNITZ/IQDLUN,IQFLUN,IQHLUN, NQUSED From 59288542a190715c3d116a4dbf5e791b23c3e1c2 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:39:01 +0200 Subject: [PATCH 13/50] [minicern] avoid dupe zstate code --- misc/minicern/src/zebra.f | 72 ++++++++++++------------------------ misc/minicern/src/zstate.inc | 3 ++ 2 files changed, 27 insertions(+), 48 deletions(-) create mode 100644 misc/minicern/src/zstate.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 4d1facf05ff5c..a4ea27fd7f4e5 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -16,8 +16,7 @@ SUBROUTINE MZEBRA (LIST) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -79,8 +78,7 @@ SUBROUTINE MZINCO (LIST) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) INCLUDE 'quest.inc' @@ -202,8 +200,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -1763,8 +1760,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -2050,8 +2046,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) INCLUDE 'zbcd.inc' - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -2180,8 +2175,7 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) INCLUDE 'zbcd.inc' - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -2730,8 +2724,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) INCLUDE 'zunit.inc' - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -4189,8 +4182,7 @@ SUBROUTINE MZCHNB (LIX) *------------------------------------------------------------------------------- SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -4271,8 +4263,7 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) *------------------------------------------------------------------------------- FUNCTION MZDVAC (IXDIVP) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -4341,8 +4332,7 @@ FUNCTION MZDVAC (IXDIVP) *------------------------------------------------------------------------------- SUBROUTINE MZGARB (IXGP,IXWP) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -4430,8 +4420,7 @@ SUBROUTINE MZGARB (IXGP,IXWP) *------------------------------------------------------------------------------- SUBROUTINE MZGAR1 - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -4702,8 +4691,7 @@ FUNCTION MZFDIV (IXST,LIXP) *------------------------------------------------------------------------------- SUBROUTINE MZFGAP - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -4940,8 +4928,7 @@ SUBROUTINE MZTABC *------------------------------------------------------------------------------- SUBROUTINE MZTABF - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -5056,8 +5043,7 @@ SUBROUTINE MZTABF *------------------------------------------------------------------------------- SUBROUTINE MZTABH - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -5146,8 +5132,7 @@ SUBROUTINE MZTABH *------------------------------------------------------------------------------- SUBROUTINE MZTABM - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -5248,8 +5233,7 @@ SUBROUTINE MZTABM *------------------------------------------------------------------------------- SUBROUTINE MZTABR - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -5479,8 +5463,7 @@ SUBROUTINE MZTABX SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' INCLUDE 'quest.inc' COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM @@ -5774,8 +5757,7 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) COMMON /ZLIMIT/LQLIML,LQLIMH - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -6196,8 +6178,7 @@ FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) *------------------------------------------------------------------------------- SUBROUTINE MZMOVE - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -6341,8 +6322,7 @@ SUBROUTINE MZPUDX (LP,NWP) *------------------------------------------------------------------------------- SUBROUTINE MZRELB - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -6533,8 +6513,7 @@ SUBROUTINE MZRELB *------------------------------------------------------------------------------- SUBROUTINE MZRELL (MDESV) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -6675,8 +6654,7 @@ SUBROUTINE MZRELL (MDESV) *------------------------------------------------------------------------------- SUBROUTINE MZRELX - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -6727,8 +6705,7 @@ SUBROUTINE MZRELX *------------------------------------------------------------------------------- SUBROUTINE MZSDIV (IXDIVP,IFLAGP) - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) @@ -7107,8 +7084,7 @@ SUBROUTINE MZWIPE (IXWP) SUBROUTINE RZEND(CHDIR) INCLUDE 'zunit.inc' - COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR - +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) + INCLUDE 'zstate.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' COMMON /ZEBQ/ IQFENC(4), LQ(100) diff --git a/misc/minicern/src/zstate.inc b/misc/minicern/src/zstate.inc new file mode 100644 index 0000000000000..6282de9be1780 --- /dev/null +++ b/misc/minicern/src/zstate.inc @@ -0,0 +1,3 @@ +C=== zstate.inc ================================================ + COMMON /ZSTATE/QVERSN,NQPHAS,IQDBUG,NQDCUT,NQWCUT,NQERR + +, NQLOGD,NQLOGM,NQLOCK,NQDEVZ,NQOPTS(6) From af12b35528fa9d50b9f090bda1f41976a0c14a56 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:44:37 +0200 Subject: [PATCH 14/50] [minicern] avoid dupe mzabq code [minicern] avoid dupe mzcc code --- misc/minicern/src/mzabq.inc | 15 + misc/minicern/src/mzcc.inc | 11 + misc/minicern/src/zebra.f | 1293 +++-------------------------------- 3 files changed, 125 insertions(+), 1194 deletions(-) create mode 100644 misc/minicern/src/mzabq.inc create mode 100644 misc/minicern/src/mzcc.inc diff --git a/misc/minicern/src/mzabq.inc b/misc/minicern/src/mzabq.inc new file mode 100644 index 0000000000000..ac25497dc6f90 --- /dev/null +++ b/misc/minicern/src/mzabq.inc @@ -0,0 +1,15 @@ +C=== mzabq.inc ================================================= + COMMON /ZEBQ/ IQFENC(4), LQ(100) + DIMENSION IQ(92), Q(92) + EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) + COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM + +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ + +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE + +, NQTRAC,MQTRAC(48) + EQUIVALENCE (KQSP,NQOFFS(1)) + COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR + +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV + +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END + +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) + DIMENSION IQCUR(16) + EQUIVALENCE (IQCUR(1),LQSTOR) diff --git a/misc/minicern/src/mzcc.inc b/misc/minicern/src/mzcc.inc new file mode 100644 index 0000000000000..f7e34f7c084df --- /dev/null +++ b/misc/minicern/src/mzcc.inc @@ -0,0 +1,11 @@ +C=== mzcc.inc ================================================== + COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E + +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) + +, LQSYSS(10), LQSYSR(10), IQTDUM(22) + +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) + +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) + +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) + +, NQDPSH(20),NQDRED(20),NQDSIZ(20) + +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) + DIMENSION IQTABV(16) + EQUIVALENCE (IQTABV(1),LQPSTO) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index a4ea27fd7f4e5..15e9e8a7ebf5b 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -20,20 +20,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) + INCLUDE 'mzabq.inc' COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) +, LQSUP,NQBIA, NQIOSV(3) COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) @@ -204,30 +191,8 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' PARAMETER (NQWKTT=2560) COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) * @@ -667,30 +632,8 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -770,30 +713,8 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) SUBROUTINE RZVCYC(LTAD) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -838,30 +759,8 @@ SUBROUTINE RZVCYC(LTAD) SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -935,30 +834,8 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -1123,30 +1000,8 @@ SUBROUTINE ZITOH (INTV,IHOLL,NP) SUBROUTINE MZRESV PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) JQDIVR = JQDIVI @@ -1204,30 +1059,8 @@ SUBROUTINE MZRESV SUBROUTINE RZSAVE PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -1439,30 +1272,8 @@ SUBROUTINE FZIREL INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL @@ -1572,30 +1383,8 @@ SUBROUTINE FZIREL SUBROUTINE FZILIN PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL @@ -1640,30 +1429,8 @@ SUBROUTINE MZCHLS (IXST,LP) +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL DIMENSION IXST(9), LP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) @@ -1701,30 +1468,8 @@ SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) INCLUDE 'zbcd.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) +, LQSUP,NQBIA, NQIOSV(3) DIMENSION IXP(9),LP(9),LSUPP(9),JBP(9),NIOP(9),NZP(9) @@ -1765,30 +1510,8 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION LQMST(9) EQUIVALENCE (LQMST(1),LQSYSS(2)) EQUIVALENCE (LQFORM,LQSYSS(5)) @@ -2051,30 +1774,8 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION LAREA(9),LREF(9),LREFL(9),NAME(2) CHARACTER *(*) CHNAME DIMENSION NAMESR(2) @@ -2180,30 +1881,8 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) +, LQSUP,NQBIA, NQIOSV(3) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL @@ -2458,30 +2137,8 @@ SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -2570,30 +2227,8 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -2727,30 +2362,8 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) INCLUDE 'zstate.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -2956,30 +2569,8 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -3131,30 +2722,8 @@ SUBROUTINE FZIMTB INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL @@ -3468,30 +3037,8 @@ LOGICAL FUNCTION RZSAME(IH1,IH2,N) SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -3863,30 +3410,8 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -4066,30 +3591,8 @@ SUBROUTINE MZCHLN (IXST,LP) +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL DIMENSION IXST(9), LP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) @@ -4138,30 +3641,8 @@ SUBROUTINE MZCHLN (IXST,LP) SUBROUTINE MZCHNB (LIX) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION LIX(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZCH, 4HNB / @@ -4187,30 +3668,8 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL DIMENSION LHEADP(9) CHARACTER *(*) CHOPT @@ -4267,30 +3726,8 @@ FUNCTION MZDVAC (IXDIVP) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXDIVP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZDV, 4HAC / @@ -4337,30 +3774,8 @@ SUBROUTINE MZGARB (IXGP,IXWP) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -4425,30 +3840,8 @@ SUBROUTINE MZGAR1 COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL @@ -4550,30 +3943,8 @@ SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' EQUIVALENCE (LQFORM,LQSYSS(5)) EQUIVALENCE (NW,IQUEST(1)) DIMENSION IXIOP(99) @@ -4639,30 +4010,8 @@ SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) FUNCTION MZFDIV (IXST,LIXP) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXST(9), LIXP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) IXSTOR = IXST(1) @@ -4695,30 +4044,8 @@ SUBROUTINE MZFGAP INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -4835,30 +4162,8 @@ SUBROUTINE MZTABC COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -4932,30 +4237,8 @@ SUBROUTINE MZTABF INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -5047,30 +4330,8 @@ SUBROUTINE MZTABH INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -5136,30 +4397,8 @@ SUBROUTINE MZTABM INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -5237,30 +4476,8 @@ SUBROUTINE MZTABR INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -5360,30 +4577,8 @@ SUBROUTINE MZTABR SUBROUTINE MZTABS PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -5409,30 +4604,8 @@ SUBROUTINE MZTABS SUBROUTINE MZTABX PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -5762,30 +4935,8 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL PARAMETER (NQWKTT=2560) COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) @@ -5894,30 +5045,8 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) SUBROUTINE MZGSTA (IGARB) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -6089,30 +5218,8 @@ SUBROUTINE MZIOCR (IOW) FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXAA(9), IXBB(9), IXCC(9), IXDD(9), IXV(4) EQUIVALENCE (IXV(1),IQUEST(11)) DIMENSION NAMESR(2) @@ -6182,30 +5289,8 @@ SUBROUTINE MZMOVE INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -6282,20 +5367,7 @@ SUBROUTINE MZPUDX (LP,NWP) INCLUDE 'zbcd.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) + INCLUDE 'mzabq.inc' DIMENSION LP(9),NWP(9) MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1)) MSBYT (MZ,IZW,IZP,NZB) = IOR ( @@ -6326,30 +5398,8 @@ SUBROUTINE MZRELB INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL @@ -6517,30 +5567,8 @@ SUBROUTINE MZRELL (MDESV) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL @@ -6658,30 +5686,8 @@ SUBROUTINE MZRELX INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) @@ -6708,30 +5714,8 @@ SUBROUTINE MZSDIV (IXDIVP,IFLAGP) INCLUDE 'zstate.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' DIMENSION IXDIVP(9), IFLAGP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZSD, 4HIV / @@ -6798,30 +5782,8 @@ SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL DIMENSION LSHP(9),LSUPP(9),JBIASP(9),IFLAGP(9) DIMENSION NAMESR(2) @@ -6964,30 +5926,8 @@ SUBROUTINE ZHTOI (HOLL,INTV,NP) SUBROUTINE RZSCAN(CHPATH,UROUT) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) @@ -7057,20 +5997,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) SUBROUTINE MZWIPE (IXWP) PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) + INCLUDE 'mzabq.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) DIMENSION IXWP(9) DIMENSION NAMESR(2) @@ -7087,30 +6014,8 @@ SUBROUTINE RZEND(CHDIR) INCLUDE 'zstate.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' - COMMON /ZEBQ/ IQFENC(4), LQ(100) - DIMENSION IQ(92), Q(92) - EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) - COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR - +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV - +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END - +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) - DIMENSION IQCUR(16) - EQUIVALENCE (IQCUR(1),LQSTOR) - COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E - +, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6) - +, LQSYSS(10), LQSYSR(10), IQTDUM(22) - +, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20) - +, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20) - +, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20) - +, NQDPSH(20),NQDRED(20),NQDSIZ(20) - +, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21) - DIMENSION IQTABV(16) - EQUIVALENCE (IQTABV(1),LQPSTO) + INCLUDE 'mzabq.inc' + INCLUDE 'mzcc.inc' COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) From 5dcccb3bd7c0ae0167f6828f40a343920419918e Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 13:58:44 +0200 Subject: [PATCH 15/50] [minicern] avoid dupe zmach code --- misc/minicern/src/zebra.f | 36 +++++++++--------------------------- misc/minicern/src/zmach.inc | 4 ++++ 2 files changed, 13 insertions(+), 27 deletions(-) create mode 100644 misc/minicern/src/zmach.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 15e9e8a7ebf5b..f3bd1f05c027b 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -12,9 +12,7 @@ SUBROUTINE MZEBRA (LIST) PARAMETER (NQTCET=256) COMMON /ZCETA/ IQCETA(256),IQTCET(256) COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' @@ -61,9 +59,7 @@ SUBROUTINE MZINCO (LIST) PARAMETER (NQTCET=256) COMMON /ZCETA/ IQCETA(256),IQTCET(256) COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' @@ -184,9 +180,7 @@ SUBROUTINE MZPAW (NWORDS,CHOPT) SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT +, IFENCE,LV,LLR,LLD,LIMIT,LAST) INCLUDE 'zbcd.inc' - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) @@ -829,9 +823,7 @@ SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -1266,9 +1258,7 @@ SUBROUTINE FZICV (MS,IRMT) SUBROUTINE FZIREL INCLUDE 'zbcd.inc' - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -1424,9 +1414,7 @@ SUBROUTINE FZILIN *------------------------------------------------------------------------------- SUBROUTINE MZCHLS (IXST,LP) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -1502,9 +1490,7 @@ SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) *------------------------------------------------------------------------------- SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) @@ -2716,9 +2702,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) SUBROUTINE FZIMTB INCLUDE 'zbcd.inc' - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' INCLUDE 'zunit.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' @@ -3586,9 +3570,7 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) *------------------------------------------------------------------------------- SUBROUTINE MZCHLN (IXST,LP) - PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) - COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW - +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL + INCLUDE 'zmach.inc' PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' diff --git a/misc/minicern/src/zmach.inc b/misc/minicern/src/zmach.inc new file mode 100644 index 0000000000000..acd925a37b827 --- /dev/null +++ b/misc/minicern/src/zmach.inc @@ -0,0 +1,4 @@ +C=== zmach.inc ================================================= + PARAMETER (IQBITW=32, IQBITC=8, IQCHAW=4) + COMMON /ZMACH/ NQBITW,NQBITC,NQCHAW + +, NQLNOR,NQLMAX,NQLPTH,NQRMAX,IQLPCT,IQNIL From 0322bbd6c17b886fbd3cfacfed0ec251d773fe44 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 14:08:21 +0200 Subject: [PATCH 16/50] [minicern] avoid dupe iqdrop code --- misc/minicern/src/zebra.f | 102 +++++++++++++++++++------------------- misc/minicern/src/ziq.inc | 2 + 2 files changed, 53 insertions(+), 51 deletions(-) create mode 100644 misc/minicern/src/ziq.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index f3bd1f05c027b..fdce1738d46d6 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -16,7 +16,7 @@ SUBROUTINE MZEBRA (LIST) COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) @@ -183,7 +183,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT INCLUDE 'zmach.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -624,7 +624,7 @@ SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -705,7 +705,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) *------------------------------------------------------------------------------- SUBROUTINE RZVCYC(LTAD) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -751,7 +751,7 @@ SUBROUTINE RZVCYC(LTAD) *------------------------------------------------------------------------------- SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -824,7 +824,7 @@ SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) INCLUDE 'zmach.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -990,7 +990,7 @@ SUBROUTINE ZITOH (INTV,IHOLL,NP) *------------------------------------------------------------------------------- SUBROUTINE MZRESV - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1049,7 +1049,7 @@ SUBROUTINE MZRESV *------------------------------------------------------------------------------- SUBROUTINE RZSAVE - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1260,7 +1260,7 @@ SUBROUTINE FZIREL INCLUDE 'zbcd.inc' INCLUDE 'zmach.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1371,7 +1371,7 @@ SUBROUTINE FZIREL *------------------------------------------------------------------------------- SUBROUTINE FZILIN - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1415,7 +1415,7 @@ SUBROUTINE FZILIN SUBROUTINE MZCHLS (IXST,LP) INCLUDE 'zmach.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1454,7 +1454,7 @@ SUBROUTINE MZCHLS (IXST,LP) SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) INCLUDE 'zbcd.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1494,7 +1494,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1758,7 +1758,7 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -1865,7 +1865,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -2121,7 +2121,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -2211,7 +2211,7 @@ SUBROUTINE RZDATE(IWORD,IDATE,ITIME,ICASE) SUBROUTINE RZCDIR(CHPATH,CHOPT) INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -2346,7 +2346,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) INCLUDE 'zunit.inc' INCLUDE 'zstate.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -2553,7 +2553,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -2704,7 +2704,7 @@ SUBROUTINE FZIMTB INCLUDE 'zbcd.inc' INCLUDE 'zmach.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3019,7 +3019,7 @@ LOGICAL FUNCTION RZSAME(IH1,IH2,N) *------------------------------------------------------------------------------- SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3392,7 +3392,7 @@ SUBROUTINE RZPATH(CHPATH) SUBROUTINE RZREAD(IV,N,IPC,IFORM) INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3571,7 +3571,7 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) SUBROUTINE MZCHLN (IXST,LP) INCLUDE 'zmach.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3621,7 +3621,7 @@ SUBROUTINE MZCHLN (IXST,LP) *------------------------------------------------------------------------------- SUBROUTINE MZCHNB (LIX) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3648,7 +3648,7 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3706,7 +3706,7 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) FUNCTION MZDVAC (IXDIVP) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3754,7 +3754,7 @@ SUBROUTINE MZGARB (IXGP,IXWP) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3820,7 +3820,7 @@ SUBROUTINE MZGAR1 INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3923,7 +3923,7 @@ SUBROUTINE MZGAR1 SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -3990,7 +3990,7 @@ SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) *------------------------------------------------------------------------------- FUNCTION MZFDIV (IXST,LIXP) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4024,7 +4024,7 @@ FUNCTION MZFDIV (IXST,LIXP) SUBROUTINE MZFGAP INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4142,7 +4142,7 @@ SUBROUTINE MZFGAP SUBROUTINE MZTABC COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4217,7 +4217,7 @@ SUBROUTINE MZTABC SUBROUTINE MZTABF INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4310,7 +4310,7 @@ SUBROUTINE MZTABF SUBROUTINE MZTABH INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4377,7 +4377,7 @@ SUBROUTINE MZTABH SUBROUTINE MZTABM INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4456,7 +4456,7 @@ SUBROUTINE MZTABM SUBROUTINE MZTABR INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4557,7 +4557,7 @@ SUBROUTINE MZTABR *------------------------------------------------------------------------------- SUBROUTINE MZTABS - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4584,7 +4584,7 @@ SUBROUTINE MZTABS *------------------------------------------------------------------------------- SUBROUTINE MZTABX - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -4915,7 +4915,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5025,7 +5025,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) *------------------------------------------------------------------------------- SUBROUTINE MZGSTA (IGARB) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5198,7 +5198,7 @@ SUBROUTINE MZIOCR (IOW) *------------------------------------------------------------------------------- FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5269,7 +5269,7 @@ FUNCTION MZIXCO (IXAA,IXBB,IXCC,IXDD) SUBROUTINE MZMOVE INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5347,7 +5347,7 @@ SUBROUTINE MZMOVE SUBROUTINE MZPUDX (LP,NWP) INCLUDE 'zbcd.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' DIMENSION LP(9),NWP(9) @@ -5378,7 +5378,7 @@ SUBROUTINE MZPUDX (LP,NWP) SUBROUTINE MZRELB INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5547,7 +5547,7 @@ SUBROUTINE MZRELB SUBROUTINE MZRELL (MDESV) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5666,7 +5666,7 @@ SUBROUTINE MZRELL (MDESV) SUBROUTINE MZRELX INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5694,7 +5694,7 @@ SUBROUTINE MZRELX SUBROUTINE MZSDIV (IXDIVP,IFLAGP) INCLUDE 'zstate.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5762,7 +5762,7 @@ SUBROUTINE MZSDIV (IXDIVP,IFLAGP) SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) INCLUDE 'zunit.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5906,7 +5906,7 @@ SUBROUTINE ZHTOI (HOLL,INTV,NP) *------------------------------------------------------------------------------- SUBROUTINE RZSCAN(CHPATH,UROUT) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' @@ -5977,7 +5977,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) *------------------------------------------------------------------------------- SUBROUTINE MZWIPE (IXWP) - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) @@ -5994,7 +5994,7 @@ SUBROUTINE MZWIPE (IXWP) SUBROUTINE RZEND(CHDIR) INCLUDE 'zunit.inc' INCLUDE 'zstate.inc' - PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) + INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' diff --git a/misc/minicern/src/ziq.inc b/misc/minicern/src/ziq.inc new file mode 100644 index 0000000000000..b30029349e32c --- /dev/null +++ b/misc/minicern/src/ziq.inc @@ -0,0 +1,2 @@ +C=== ziq.inc =================================================== + PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28) From 0573cdef9ecfb6a38ec97a53fa8aa8fea853bdac Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 14:36:06 +0200 Subject: [PATCH 17/50] [minicern] avoid dupe mza code --- misc/minicern/src/mza.inc | 6 ++++++ misc/minicern/src/mzabq.inc | 6 +----- misc/minicern/src/zebra.f | 6 +----- 3 files changed, 8 insertions(+), 10 deletions(-) create mode 100644 misc/minicern/src/mza.inc diff --git a/misc/minicern/src/mza.inc b/misc/minicern/src/mza.inc new file mode 100644 index 0000000000000..30564a22270cb --- /dev/null +++ b/misc/minicern/src/mza.inc @@ -0,0 +1,6 @@ +C=== mza.inc =================================================== + COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM + +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ + +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE + +, NQTRAC,MQTRAC(48) + EQUIVALENCE (KQSP,NQOFFS(1)) diff --git a/misc/minicern/src/mzabq.inc b/misc/minicern/src/mzabq.inc index ac25497dc6f90..06c2c5eb2b483 100644 --- a/misc/minicern/src/mzabq.inc +++ b/misc/minicern/src/mzabq.inc @@ -2,11 +2,7 @@ C=== mzabq.inc ================================================= COMMON /ZEBQ/ IQFENC(4), LQ(100) DIMENSION IQ(92), Q(92) EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1)) - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) + INCLUDE 'mza.inc' COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR +, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV +, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index fdce1738d46d6..2c9259fca4e8d 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -4621,11 +4621,7 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' INCLUDE 'quest.inc' - COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM - +, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ - +, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE - +, NQTRAC,MQTRAC(48) - EQUIVALENCE (KQSP,NQOFFS(1)) + INCLUDE 'mza.inc' INCLUDE 'zbcd.inc' DIMENSION IODVEC(99), NWIOMP(9) CHARACTER CHFORM*(*) From 38bdc54453752658b63657370150e2c75995338b Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 14:39:45 +0200 Subject: [PATCH 18/50] [minicern] avoid dupe kup code --- misc/minicern/src/zebra.f | 54 ++++++------------------------------ misc/minicern/src/zkpars.inc | 6 ++++ 2 files changed, 15 insertions(+), 45 deletions(-) create mode 100644 misc/minicern/src/zkpars.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 2c9259fca4e8d..cb708c6469dbf 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -712,11 +712,7 @@ SUBROUTINE RZVCYC(LTAD) COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG +, LTEMP,LCORD,LFROM EQUIVALENCE (LQRS,LQSYSS(7)) - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + KCNCYC, KNWCYC, KKYCYC, KVSCYC COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, @@ -760,11 +756,7 @@ SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) EQUIVALENCE (LQRS,LQSYSS(7)) COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' CHARACTER*(*) CHOPT DIMENSION KEYU(*) DIMENSION LSUP(1),JBIAS(1),IQK(10),IQKS(10) @@ -1058,11 +1050,7 @@ SUBROUTINE RZSAVE EQUIVALENCE (LQRS,LQSYSS(7)) COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) IF(LQRS.EQ.0)GO TO 99 IF(LTOP.EQ.0)GO TO 99 @@ -2226,11 +2214,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) CHARACTER*255 CHWOLD,CHL COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' DIMENSION IOPTV(5) EQUIVALENCE (IOPTR,IOPTV(1)), (IOPTP,IOPTV(2)), (IOPTU,IOPTV(3)) EQUIVALENCE (IOPTK,IOPTV(4)), (IOPTQ,IOPTV(5)) @@ -2359,11 +2343,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) CHARACTER*16 CHNDIR, CHCDIR, CHPAT COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + KCNCYC, KNWCYC, KKYCYC, KVSCYC @@ -2566,11 +2546,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) CHARACTER*16 CHNDIR, CHCDIR, CHPAT COMMON /RZCH/ CHWOLD,CHL CHARACTER*255 CHWOLD,CHL - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + KCNCYC, KNWCYC, KKYCYC, KVSCYC COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, @@ -3029,11 +3005,7 @@ SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + KCNCYC, KNWCYC, KKYCYC, KVSCYC @@ -3402,11 +3374,7 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) DIMENSION IV(*) @@ -5915,11 +5883,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) CHARACTER*16 CHNDIR, CHCDIR, CHPAT COMMON /RZCH/ CHWOLD,CHL CHARACTER*255 CHWOLD,CHL - PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, - + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, - + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, - + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, - + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) + INCLUDE 'zkpars.inc' CHARACTER *(*) CHPATH EXTERNAL UROUT DIMENSION ISD(NLPATM),NSD(NLPATM),IHDIR(4) diff --git a/misc/minicern/src/zkpars.inc b/misc/minicern/src/zkpars.inc new file mode 100644 index 0000000000000..393c7a9e8de6d --- /dev/null +++ b/misc/minicern/src/zkpars.inc @@ -0,0 +1,6 @@ +C=== zkpars.inc ================================================ + PARAMETER (KUP=5,KPW1=7,KNCH=9,KDATEC=10,KDATEM=11,KQUOTA=12, + + KRUSED=13,KWUSED=14,KMEGA=15,KRZVER=16,KIRIN=17, + + KIROUT=18,KRLOUT=19,KIP1=20,KNFREE=22,KNSD=23,KLD=24, + + KLB=25,KLS=26,KLK=27,KLF=28,KLC=29,KLE=30,KNKEYS=31, + + KNWKEY=32,KKDES=33,KNSIZE=253,KEX=6,KNMAX=100) From b328553e32f8d25fd8035b4c22e723ce8b421c87 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 14:43:55 +0200 Subject: [PATCH 19/50] [minicern] avoid dupe mzct code --- misc/minicern/src/mzct.inc | 7 ++ misc/minicern/src/zebra.f | 154 ++++++------------------------------- 2 files changed, 29 insertions(+), 132 deletions(-) create mode 100644 misc/minicern/src/mzct.inc diff --git a/misc/minicern/src/mzct.inc b/misc/minicern/src/mzct.inc new file mode 100644 index 0000000000000..b7f3ef7b0c266 --- /dev/null +++ b/misc/minicern/src/mzct.inc @@ -0,0 +1,7 @@ +C=== mzct.inc ================================================== + COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO + +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL + +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) + +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE + +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR + +, LQMTC1,LQMTC2, NQFRTC,NQLIVE diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index cb708c6469dbf..a89ddf5549eec 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -820,12 +820,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL @@ -1255,12 +1250,7 @@ SUBROUTINE FZIREL EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI @@ -1364,12 +1354,7 @@ SUBROUTINE FZILIN INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' IQFOUL = 0 LENTRI = 0 K = 0 @@ -1492,12 +1477,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) +, LQSUP,NQBIA, NQIOSV(3) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION IXDIV(9), LP(9), LSUPP(9), NAME(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZLI, 4HFT / @@ -1860,12 +1840,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) +, LQSUP,NQBIA, NQIOSV(3) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION IXDIV(9),LORGP(9),INCNLP(9),INCNDP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) @@ -2113,12 +2088,7 @@ SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION IXDIV(9),NEEDP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) @@ -2687,12 +2657,7 @@ SUBROUTINE FZIMTB EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI @@ -3726,12 +3691,7 @@ SUBROUTINE MZGARB (IXGP,IXWP) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION IXGP(1), IXWP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZGA, 4HRB / @@ -3793,12 +3753,7 @@ SUBROUTINE MZGAR1 INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZGA, 4HR1 / MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1)) @@ -3996,12 +3951,7 @@ SUBROUTINE MZFGAP INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NGAPV(7), JDIVV(7), JSTOV(7), JPV(7) EQUIVALENCE (NGAPV(1),IQUEST(11)), (JDIVV(1),IQUEST(21)) EQUIVALENCE (JSTOV(1),IQUEST(31)), (JPV(1), IQUEST(41)) @@ -4114,12 +4064,7 @@ SUBROUTINE MZTABC INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' EQUIVALENCE (LS,IQLS), (LNX,IQNX) DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBC / @@ -4189,12 +4134,7 @@ SUBROUTINE MZTABF INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBF / JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) @@ -4282,12 +4222,7 @@ SUBROUTINE MZTABH INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBH / MQTRAC(NQTRAC+1) = NAMESR(1) @@ -4349,12 +4284,7 @@ SUBROUTINE MZTABM INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBM / JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) @@ -4428,12 +4358,7 @@ SUBROUTINE MZTABR INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' EQUIVALENCE (LMT,LQMTB) DIMENSION NAMESR(2) DATA NAMESR / 4HMZTA, 4HBR / @@ -4529,12 +4454,7 @@ SUBROUTINE MZTABS INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' MSBIT1 (IZW,IZP) = IOR (IZW, ISHFT(1,IZP-1)) LMT = LQMTA 21 LMT = LMT + 8 @@ -4556,12 +4476,7 @@ SUBROUTINE MZTABX INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' JBYTET (MZ,IZW,IZP,NZB) = IAND (MZ, + ISHFT (ISHFT(IZW,33-IZP-NZB),-(32-NZB)) ) MERGE = 0 @@ -4993,12 +4908,7 @@ SUBROUTINE MZGSTA (IGARB) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION IGARB(20) LMT = LQMTA 22 IACT = LQ(LMT+1) @@ -5237,12 +5147,7 @@ SUBROUTINE MZMOVE INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZMO, 4HVE / JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) @@ -5347,12 +5252,7 @@ SUBROUTINE MZRELB INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZRE, 4HLB / JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) @@ -5516,12 +5416,7 @@ SUBROUTINE MZRELL (MDESV) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION MDESV(99) DIMENSION NAMESR(2) DATA NAMESR / 4HMZRE, 4HLL / @@ -5634,12 +5529,7 @@ SUBROUTINE MZRELX INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCT/ MQDVGA,MQDVWI,JQSTMV,JQDVM1,JQDVM2,NQDVMV,IQFLIO - +, MQDVAC,NQNOOP,IQPART,NQFREE, IQTBIT,IQTVAL - +, IQTNMV,JQGAPM,JQGAPR,NQGAPN,NQGAP,IQGAP(5,4) - +, LQTA,LQTE, LQRTA,LQTC1,LQTC2,LQRTE - +, LQMTA,LQMTB,LQMTE,LQMTLU,LQMTBR - +, LQMTC1,LQMTC2, NQFRTC,NQLIVE + INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZRE, 4HLX / MQTRAC(NQTRAC+1) = NAMESR(1) From 9f394cddebcb97246df167a3414370290cd8568c Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 14:54:27 +0200 Subject: [PATCH 20/50] [minicern] avoid dupe rzpars code --- misc/minicern/src/rzpars.inc | 6 ++++++ misc/minicern/src/zebra.f | 18 +++--------------- 2 files changed, 9 insertions(+), 15 deletions(-) create mode 100644 misc/minicern/src/rzpars.inc diff --git a/misc/minicern/src/rzpars.inc b/misc/minicern/src/rzpars.inc new file mode 100644 index 0000000000000..3cb32e56d63e5 --- /dev/null +++ b/misc/minicern/src/rzpars.inc @@ -0,0 +1,6 @@ +C=== rzpars.inc ================================================ + PARAMETER (MAXFILES=128, MAXSTRIP=21) + CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) + COMMON/RZCSTRC/RZNAMES,RZSFILE + COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), + + NRSTRIP(MAXFILES) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index a89ddf5549eec..e1389a01b2def 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -25,11 +25,7 @@ SUBROUTINE MZEBRA (LIST) COMMON/RZCOUNT/RZXIO(2) COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) +, IZRECL,IMODEC,IMODEH - PARAMETER (MAXFILES=128, MAXSTRIP=21) - CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) - COMMON/RZCSTRC/RZNAMES,RZSFILE - COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), - + NRSTRIP(MAXFILES) + INCLUDE 'rzpars.inc' CHARACTER*4 CVERSN DIMENSION LIST(9), INKEYS(3) DATA INKEYS / 4HEBRA, 4HINIT, 4HDONE / @@ -391,11 +387,7 @@ SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) +, IZRECL,IMODEC,IMODEH INCLUDE 'quest.inc' COMMON /RZBUFF/ ITEST(8704) - PARAMETER (MAXFILES=128, MAXSTRIP=21) - CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) - COMMON/RZCSTRC/RZNAMES,RZSFILE - COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), - + NRSTRIP(MAXFILES) + INCLUDE 'rzpars.inc' integer cfstat,statf,info(12) CHARACTER*(*) CFNAME,CHDIR,CHOPTT CHARACTER*9 SPACES @@ -635,11 +627,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) +, IZRECL,IMODEC,IMODEH COMMON /RZBUFF/ ITEST(8704) COMMON/RZCOUNT/RZXIO(2) - PARAMETER (MAXFILES=128, MAXSTRIP=21) - CHARACTER*128 RZNAMES(MAXFILES),RZSFILE(MAXSTRIP) - COMMON/RZCSTRC/RZNAMES,RZSFILE - COMMON/RZCSTRI/ISLAST,ISTRIP(MAXFILES),NSTRIP(MAXFILES), - + NRSTRIP(MAXFILES) + INCLUDE 'rzpars.inc' DIMENSION IBUF(JREC) PARAMETER (MEDIUM=0) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) From c9866afffb1d3025a12a789cabdd4f414f01a3b0 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 15:02:03 +0200 Subject: [PATCH 21/50] [minicern] avoid dupe rzcl code --- misc/minicern/src/rzcl.inc | 4 +++ misc/minicern/src/rzcls.inc | 3 ++ misc/minicern/src/rzclun.inc | 3 ++ misc/minicern/src/zebra.f | 69 ++++++++---------------------------- 4 files changed, 24 insertions(+), 55 deletions(-) create mode 100644 misc/minicern/src/rzcl.inc create mode 100644 misc/minicern/src/rzcls.inc create mode 100644 misc/minicern/src/rzclun.inc diff --git a/misc/minicern/src/rzcl.inc b/misc/minicern/src/rzcl.inc new file mode 100644 index 0000000000000..530f138bff4ef --- /dev/null +++ b/misc/minicern/src/rzcl.inc @@ -0,0 +1,4 @@ +C=== rzcl.inc ================================================== + COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG + +, LTEMP,LCORD,LFROM + EQUIVALENCE (LQRS,LQSYSS(7)) diff --git a/misc/minicern/src/rzcls.inc b/misc/minicern/src/rzcls.inc new file mode 100644 index 0000000000000..abf835b1fab8b --- /dev/null +++ b/misc/minicern/src/rzcls.inc @@ -0,0 +1,3 @@ +C=== rzcls.inc ================================================= + INCLUDE 'rzcl.inc' + INCLUDE 'rzclun.inc' diff --git a/misc/minicern/src/rzclun.inc b/misc/minicern/src/rzclun.inc new file mode 100644 index 0000000000000..52d199dee2e58 --- /dev/null +++ b/misc/minicern/src/rzclun.inc @@ -0,0 +1,3 @@ +C=== rzclun.inc ================================================ + COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) + +, IZRECL,IMODEC,IMODEH diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index e1389a01b2def..580beb87091f0 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -23,8 +23,7 @@ SUBROUTINE MZEBRA (LIST) +, LQSUP,NQBIA, NQIOSV(3) COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) COMMON/RZCOUNT/RZXIO(2) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzclun.inc' INCLUDE 'rzpars.inc' CHARACTER*4 CVERSN DIMENSION LIST(9), INKEYS(3) @@ -383,8 +382,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) INCLUDE 'zunit.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzclun.inc' INCLUDE 'quest.inc' COMMON /RZBUFF/ ITEST(8704) INCLUDE 'rzpars.inc' @@ -620,11 +618,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzcls.inc' COMMON /RZBUFF/ ITEST(8704) COMMON/RZCOUNT/RZXIO(2) INCLUDE 'rzpars.inc' @@ -697,9 +691,7 @@ SUBROUTINE RZVCYC(LTAD) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) + INCLUDE 'rzcl.inc' INCLUDE 'zkpars.inc' INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + KCNCYC, KNWCYC, KKYCYC, KVSCYC @@ -739,11 +731,7 @@ SUBROUTINE RZIN(IXDIV,LSUP,JBIAS,KEYU,ICYCLE,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzcls.inc' INCLUDE 'zkpars.inc' CHARACTER*(*) CHOPT DIMENSION KEYU(*) @@ -825,8 +813,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzclun.inc' DIMENSION IXDIVP(9),LSUPP(9),JBIASP(9),IDUM(3) EQUIVALENCE (IOPTR,IQUEST(95)) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) @@ -1028,11 +1015,7 @@ SUBROUTINE RZSAVE INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzcls.inc' INCLUDE 'zkpars.inc' JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) IF(LQRS.EQ.0)GO TO 99 @@ -2161,17 +2144,13 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) + INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) CHARACTER*16 CHNDIR, CHCDIR, CHPAT COMMON /RZCH/ CHWOLD,CHL CHARACTER*255 CHWOLD,CHL - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH INCLUDE 'zkpars.inc' DIMENSION IOPTV(5) EQUIVALENCE (IOPTR,IOPTV(1)), (IOPTP,IOPTV(2)), (IOPTU,IOPTV(3)) @@ -2292,15 +2271,11 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) + INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) CHARACTER*16 CHNDIR, CHCDIR, CHPAT - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH INCLUDE 'zkpars.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, @@ -2495,9 +2470,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) + INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) @@ -2509,8 +2482,6 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) + KCNCYC, KNWCYC, KKYCYC, KVSCYC COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH CHARACTER*(*) CHROUT CHARACTER*(*) CHOPT DIMENSION IHDIR(4) @@ -2952,11 +2923,7 @@ SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzcls.inc' COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR INCLUDE 'zkpars.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) @@ -3321,11 +3288,7 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) - COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) - +, IZRECL,IMODEC,IMODEH + INCLUDE 'rzcls.inc' COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR INCLUDE 'zkpars.inc' COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) @@ -5752,9 +5715,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) + INCLUDE 'rzcl.inc' PARAMETER (NLPATM=100) COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) @@ -5836,9 +5797,7 @@ SUBROUTINE RZEND(CHDIR) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG - +, LTEMP,LCORD,LFROM - EQUIVALENCE (LQRS,LQSYSS(7)) + INCLUDE 'rzcl.inc' CHARACTER CHDIR*(*) DIMENSION IHDIR(4) LOGICAL RZSAME From 6560fd1ab1d9fad755aa5fc18472858f508a3d28 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:28:15 +0200 Subject: [PATCH 22/50] [minicern] avoid dupe mzioc code --- misc/minicern/src/mzioc.inc | 3 +++ misc/minicern/src/zebra.f | 12 ++++-------- 2 files changed, 7 insertions(+), 8 deletions(-) create mode 100644 misc/minicern/src/mzioc.inc diff --git a/misc/minicern/src/mzioc.inc b/misc/minicern/src/mzioc.inc new file mode 100644 index 0000000000000..ce5b9033fc60a --- /dev/null +++ b/misc/minicern/src/mzioc.inc @@ -0,0 +1,3 @@ +C=== mzioc.inc ================================================= + COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) + +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 580beb87091f0..3641cd6bdab76 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -797,8 +797,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'mzct.inc' - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) + INCLUDE 'mzioc.inc' COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI @@ -1110,8 +1109,7 @@ SUBROUTINE RZSAVE SUBROUTINE FZICV (MS,IRMT) INCLUDE 'quest.inc' - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) + INCLUDE 'mzioc.inc' DIMENSION MS(99), IRMT(99) DOUBLE PRECISION THDB DIMENSION THIS(2) @@ -3291,8 +3289,7 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) INCLUDE 'rzcls.inc' COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR INCLUDE 'zkpars.inc' - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) + INCLUDE 'mzioc.inc' DIMENSION IV(*) NL1=LREC-IP1+1 IF(IPC.LE.NL1)THEN @@ -4898,8 +4895,7 @@ SUBROUTINE MZIOCF (JUP,MXVAL) SUBROUTINE MZIOCR (IOW) INCLUDE 'quest.inc' - COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) - +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) + INCLUDE 'mzioc.inc' EQUIVALENCE (JIO,IQUEST(1)) DIMENSION IOW(9) DIMENSION NBITVA(4), NBITVB(4), NBITVC(7) From a6648e63389b028f312fcf697cbfbcbcccd73718 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:30:43 +0200 Subject: [PATCH 23/50] [minicern] avoid dupe mzcn code --- misc/minicern/src/mzcn.inc | 2 ++ misc/minicern/src/zebra.f | 30 +++++++++++++++--------------- 2 files changed, 17 insertions(+), 15 deletions(-) create mode 100644 misc/minicern/src/mzcn.inc diff --git a/misc/minicern/src/mzcn.inc b/misc/minicern/src/mzcn.inc new file mode 100644 index 0000000000000..a5412c465c0e2 --- /dev/null +++ b/misc/minicern/src/mzcn.inc @@ -0,0 +1,2 @@ +C=== mzcn.inc ================================================== + COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 3641cd6bdab76..31f8c5f95ee55 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -798,7 +798,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) INCLUDE 'mzcc.inc' INCLUDE 'mzct.inc' INCLUDE 'mzioc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI @@ -1218,7 +1218,7 @@ SUBROUTINE FZIREL INCLUDE 'mzcc.inc' EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI @@ -1322,7 +1322,7 @@ SUBROUTINE FZILIN INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' IQFOUL = 0 LENTRI = 0 @@ -1361,7 +1361,7 @@ SUBROUTINE MZCHLS (IXST,LP) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' DIMENSION IXST(9), LP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) IXSTOR = IXST(1) @@ -1445,7 +1445,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) EQUIVALENCE (LQFORM,LQSYSS(5)) COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) +, LQSUP,NQBIA, NQIOSV(3) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' DIMENSION IXDIV(9), LP(9), LSUPP(9), NAME(9) DIMENSION NAMESR(2) @@ -1808,7 +1808,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) INCLUDE 'mzcc.inc' COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) +, LQSUP,NQBIA, NQIOSV(3) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' DIMENSION IXDIV(9),LORGP(9),INCNLP(9),INCNDP(9) CHARACTER *(*) CHOPT @@ -2613,7 +2613,7 @@ SUBROUTINE FZIMTB INCLUDE 'mzcc.inc' EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI @@ -3456,7 +3456,7 @@ SUBROUTINE MZCHLN (IXST,LP) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' DIMENSION IXST(9), LP(9) JBYT(IZW,IZP,NZB) = ISHFT(ISHFT(IZW,33-IZP-NZB),-(32-NZB)) IXSTOR = IXST(1) @@ -3533,7 +3533,7 @@ SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' DIMENSION LHEADP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) @@ -3700,7 +3700,7 @@ SUBROUTINE MZGAR1 INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZGA, 4HR1 / @@ -4007,7 +4007,7 @@ SUBROUTINE MZFGAP *------------------------------------------------------------------------------- SUBROUTINE MZTABC - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -4746,7 +4746,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' PARAMETER (NQWKTT=2560) COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) DIMENSION KBITP(9),LHEADP(9) @@ -5198,7 +5198,7 @@ SUBROUTINE MZRELB INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' DIMENSION NAMESR(2) DATA NAMESR / 4HMZRE, 4HLB / @@ -5362,7 +5362,7 @@ SUBROUTINE MZRELL (MDESV) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' DIMENSION MDESV(99) DIMENSION NAMESR(2) @@ -5567,7 +5567,7 @@ SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL + INCLUDE 'mzcn.inc' DIMENSION LSHP(9),LSUPP(9),JBIASP(9),IFLAGP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HZSHU, 4HNT / From ae1e99c66d53b4b1edeea2ec5a6c331b80c12759 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:34:20 +0200 Subject: [PATCH 24/50] [minicern] avoid dupe mzcl code --- misc/minicern/src/mzcl.inc | 3 +++ misc/minicern/src/zebra.f | 12 ++++-------- 2 files changed, 7 insertions(+), 8 deletions(-) create mode 100644 misc/minicern/src/mzcl.inc diff --git a/misc/minicern/src/mzcl.inc b/misc/minicern/src/mzcl.inc new file mode 100644 index 0000000000000..2c0427f40dd97 --- /dev/null +++ b/misc/minicern/src/mzcl.inc @@ -0,0 +1,3 @@ +C=== mzcl.inc ================================================== + COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) + +, LQSUP,NQBIA, NQIOSV(3) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 31f8c5f95ee55..e117a4509c1b9 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -19,8 +19,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) + INCLUDE 'mzcl.inc' COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) COMMON/RZCOUNT/RZXIO(2) INCLUDE 'rzclun.inc' @@ -1400,8 +1399,7 @@ SUBROUTINE MZBOOK (IXP,LP,LSUPP,JBP, CHIDH,NL,NS,ND,NIOP,NZP) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) + INCLUDE 'mzcl.inc' DIMENSION IXP(9),LP(9),LSUPP(9),JBP(9),NIOP(9),NZP(9) CHARACTER CHIDH*(*) DIMENSION NAMESR(2) @@ -1443,8 +1441,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) DIMENSION LQMST(9) EQUIVALENCE (LQMST(1),LQSYSS(2)) EQUIVALENCE (LQFORM,LQSYSS(5)) - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) + INCLUDE 'mzcl.inc' INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' DIMENSION IXDIV(9), LP(9), LSUPP(9), NAME(9) @@ -1806,8 +1803,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) - +, LQSUP,NQBIA, NQIOSV(3) + INCLUDE 'mzcl.inc' INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' DIMENSION IXDIV(9),LORGP(9),INCNLP(9),INCNDP(9) From 2435569e7fdba0e999c7cb6ce346de53ebaab4b9 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:36:03 +0200 Subject: [PATCH 25/50] [minicern] avoid dupe rzcycle code --- misc/minicern/src/rzcycle.inc | 5 +++++ misc/minicern/src/zebra.f | 20 ++++---------------- 2 files changed, 9 insertions(+), 16 deletions(-) create mode 100644 misc/minicern/src/rzcycle.inc diff --git a/misc/minicern/src/rzcycle.inc b/misc/minicern/src/rzcycle.inc new file mode 100644 index 0000000000000..adb14e1cb9346 --- /dev/null +++ b/misc/minicern/src/rzcycle.inc @@ -0,0 +1,5 @@ +C=== rzcycle.inc =============================================== + INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + + KCNCYC, KNWCYC, KKYCYC, KVSCYC + COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, + + KCNCYC, KNWCYC, KKYCYC, KVSCYC diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index e117a4509c1b9..cfcbe9e1d06f4 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -692,10 +692,7 @@ SUBROUTINE RZVCYC(LTAD) INCLUDE 'mzcc.inc' INCLUDE 'rzcl.inc' INCLUDE 'zkpars.inc' - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC + INCLUDE 'rzcycle.inc' IF (LTAD.EQ.0) GO TO 99 IF (IQ(KQSP+LTAD+KRZVER).EQ.0) THEN KLCYCL = 4 @@ -2272,10 +2269,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) CHARACTER*16 CHNDIR, CHCDIR, CHPAT INCLUDE 'zkpars.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC + INCLUDE 'rzcycle.inc' COMMON /RZBUFF/ ITEST(8704) CHARACTER CHOPT*(*),CHDIR*(*) CHARACTER*16 CHTOP @@ -2472,10 +2466,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) COMMON /RZCH/ CHWOLD,CHL CHARACTER*255 CHWOLD,CHL INCLUDE 'zkpars.inc' - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC + INCLUDE 'rzcycle.inc' CHARACTER*(*) CHROUT CHARACTER*(*) CHOPT DIMENSION IHDIR(4) @@ -2921,10 +2912,7 @@ SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR INCLUDE 'zkpars.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) - INTEGER KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC - COMMON/RZCYCLE/KLCYCL, KPPCYC, KFRCYC, KSRCYC, KFLCYC, KORCYC, - + KCNCYC, KNWCYC, KKYCYC, KVSCYC + INCLUDE 'rzcycle.inc' CHARACTER*(*) CHOPT DIMENSION KEYU(*) EQUIVALENCE (IOPTA,IQUEST(91)), (IOPTC,IQUEST(92)) From 06132293be2de2ccdd97a03147887ccdca028a07 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:39:50 +0200 Subject: [PATCH 26/50] [minicern] avoid dupe rzdir code --- misc/minicern/src/rzdir.inc | 4 ++++ misc/minicern/src/zebra.f | 20 +++++--------------- 2 files changed, 9 insertions(+), 15 deletions(-) create mode 100644 misc/minicern/src/rzdir.inc diff --git a/misc/minicern/src/rzdir.inc b/misc/minicern/src/rzdir.inc new file mode 100644 index 0000000000000..65521d274c5bb --- /dev/null +++ b/misc/minicern/src/rzdir.inc @@ -0,0 +1,4 @@ +C=== rzdir.inc ================================================= + COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT + COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) + CHARACTER*16 CHNDIR, CHCDIR, CHPAT diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index cfcbe9e1d06f4..41fa1381708d5 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -2137,9 +2137,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT + INCLUDE 'rzdir.inc' COMMON /RZCH/ CHWOLD,CHL CHARACTER*255 CHWOLD,CHL INCLUDE 'zkpars.inc' @@ -2264,9 +2262,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT + INCLUDE 'rzdir.inc' INCLUDE 'zkpars.inc' COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) INCLUDE 'rzcycle.inc' @@ -2460,9 +2456,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT + INCLUDE 'rzdir.inc' COMMON /RZCH/ CHWOLD,CHL CHARACTER*255 CHWOLD,CHL INCLUDE 'zkpars.inc' @@ -3131,9 +3125,7 @@ SUBROUTINE RZPATH(CHPATH) CHARACTER*1 BSLASH,KTILDE INCLUDE 'zunit.inc' PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT + INCLUDE 'rzdir.inc' CHARACTER*(*) CHPATH CHARACTER*1 CH1 CHARACTER*2 CH2 @@ -5697,9 +5689,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) INCLUDE 'mzcc.inc' INCLUDE 'rzcl.inc' PARAMETER (NLPATM=100) - COMMON /RZDIRN/NLCDIR,NLNDIR,NLPAT - COMMON /RZDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM) - CHARACTER*16 CHNDIR, CHCDIR, CHPAT + INCLUDE 'rzdir.inc' COMMON /RZCH/ CHWOLD,CHL CHARACTER*255 CHWOLD,CHL INCLUDE 'zkpars.inc' From 0ca1d73f4e6ffa713a54b020b423219f53bc0da2 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:42:06 +0200 Subject: [PATCH 27/50] [minicern] avoid dupe rzch code --- misc/minicern/src/rzch.inc | 3 +++ misc/minicern/src/zebra.f | 9 +++------ 2 files changed, 6 insertions(+), 6 deletions(-) create mode 100644 misc/minicern/src/rzch.inc diff --git a/misc/minicern/src/rzch.inc b/misc/minicern/src/rzch.inc new file mode 100644 index 0000000000000..638e95605951a --- /dev/null +++ b/misc/minicern/src/rzch.inc @@ -0,0 +1,3 @@ +C=== rzch.inc ================================================== + COMMON /RZCH/ CHWOLD,CHL + CHARACTER*255 CHWOLD,CHL diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 41fa1381708d5..874867a2e97df 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -2138,8 +2138,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) INCLUDE 'rzdir.inc' - COMMON /RZCH/ CHWOLD,CHL - CHARACTER*255 CHWOLD,CHL + INCLUDE 'rzch.inc' INCLUDE 'zkpars.inc' DIMENSION IOPTV(5) EQUIVALENCE (IOPTR,IOPTV(1)), (IOPTP,IOPTV(2)), (IOPTU,IOPTV(3)) @@ -2457,8 +2456,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) INCLUDE 'rzcls.inc' PARAMETER (NLPATM=100) INCLUDE 'rzdir.inc' - COMMON /RZCH/ CHWOLD,CHL - CHARACTER*255 CHWOLD,CHL + INCLUDE 'rzch.inc' INCLUDE 'zkpars.inc' INCLUDE 'rzcycle.inc' CHARACTER*(*) CHROUT @@ -5690,8 +5688,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) INCLUDE 'rzcl.inc' PARAMETER (NLPATM=100) INCLUDE 'rzdir.inc' - COMMON /RZCH/ CHWOLD,CHL - CHARACTER*255 CHWOLD,CHL + INCLUDE 'rzch.inc' INCLUDE 'zkpars.inc' CHARACTER *(*) CHPATH EXTERNAL UROUT From c6cdde4059333b0c5c86cf9d91ddc086acb05ac2 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:45:57 +0200 Subject: [PATCH 28/50] [minicern] avoid dupe rzckey code --- misc/minicern/src/rzckey.inc | 2 ++ misc/minicern/src/zebra.f | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) create mode 100644 misc/minicern/src/rzckey.inc diff --git a/misc/minicern/src/rzckey.inc b/misc/minicern/src/rzckey.inc new file mode 100644 index 0000000000000..18fb1878ceec7 --- /dev/null +++ b/misc/minicern/src/rzckey.inc @@ -0,0 +1,2 @@ +C=== rzckey.inc ================================================ + COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 874867a2e97df..a3d95800a1e05 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -380,7 +380,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) INCLUDE 'zunit.inc' - COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) + INCLUDE 'rzckey.inc' INCLUDE 'rzclun.inc' INCLUDE 'quest.inc' COMMON /RZBUFF/ ITEST(8704) @@ -2263,7 +2263,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) PARAMETER (NLPATM=100) INCLUDE 'rzdir.inc' INCLUDE 'zkpars.inc' - COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) + INCLUDE 'rzckey.inc' INCLUDE 'rzcycle.inc' COMMON /RZBUFF/ ITEST(8704) CHARACTER CHOPT*(*),CHDIR*(*) @@ -2903,7 +2903,7 @@ SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) INCLUDE 'rzcls.inc' COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR INCLUDE 'zkpars.inc' - COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) + INCLUDE 'rzckey.inc' INCLUDE 'rzcycle.inc' CHARACTER*(*) CHOPT DIMENSION KEYU(*) From 1ebc9148bc9be031d974dfa9c3cc8b494778876a Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:49:24 +0200 Subject: [PATCH 29/50] [minicern] avoid dupe nlpatm code --- misc/minicern/src/nlpatm.inc | 2 ++ misc/minicern/src/zebra.f | 10 +++++----- 2 files changed, 7 insertions(+), 5 deletions(-) create mode 100644 misc/minicern/src/nlpatm.inc diff --git a/misc/minicern/src/nlpatm.inc b/misc/minicern/src/nlpatm.inc new file mode 100644 index 0000000000000..bf0f672e497a5 --- /dev/null +++ b/misc/minicern/src/nlpatm.inc @@ -0,0 +1,2 @@ +C=== nlpatm.inc ================================================ + PARAMETER (NLPATM=100) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index a3d95800a1e05..eebaaa4f57f26 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -2136,7 +2136,7 @@ SUBROUTINE RZCDIR(CHPATH,CHOPT) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' - PARAMETER (NLPATM=100) + INCLUDE 'nlpatm.inc' INCLUDE 'rzdir.inc' INCLUDE 'rzch.inc' INCLUDE 'zkpars.inc' @@ -2260,7 +2260,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' - PARAMETER (NLPATM=100) + INCLUDE 'nlpatm.inc' INCLUDE 'rzdir.inc' INCLUDE 'zkpars.inc' INCLUDE 'rzckey.inc' @@ -2454,7 +2454,7 @@ SUBROUTINE RZFDIR(CHROUT,LT,LDIR,CHOPT) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' - PARAMETER (NLPATM=100) + INCLUDE 'nlpatm.inc' INCLUDE 'rzdir.inc' INCLUDE 'rzch.inc' INCLUDE 'zkpars.inc' @@ -3122,7 +3122,7 @@ SUBROUTINE RZPATH(CHPATH) INCLUDE 'zbcdh.inc' CHARACTER*1 BSLASH,KTILDE INCLUDE 'zunit.inc' - PARAMETER (NLPATM=100) + INCLUDE 'nlpatm.inc' INCLUDE 'rzdir.inc' CHARACTER*(*) CHPATH CHARACTER*1 CH1 @@ -5686,7 +5686,7 @@ SUBROUTINE RZSCAN(CHPATH,UROUT) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'rzcl.inc' - PARAMETER (NLPATM=100) + INCLUDE 'nlpatm.inc' INCLUDE 'rzdir.inc' INCLUDE 'rzch.inc' INCLUDE 'zkpars.inc' From e86981e0d534c60e6c914bfc5ed846196ca30739 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:53:23 +0200 Subject: [PATCH 30/50] [minicern] avoid dupe zceta code --- misc/minicern/src/zceta.inc | 3 +++ misc/minicern/src/zebra.f | 12 ++++-------- 2 files changed, 7 insertions(+), 8 deletions(-) create mode 100644 misc/minicern/src/zceta.inc diff --git a/misc/minicern/src/zceta.inc b/misc/minicern/src/zceta.inc new file mode 100644 index 0000000000000..185676bab8e58 --- /dev/null +++ b/misc/minicern/src/zceta.inc @@ -0,0 +1,3 @@ +C=== zceta.inc ================================================= + PARAMETER (NQTCET=256) + COMMON /ZCETA/ IQCETA(256),IQTCET(256) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index eebaaa4f57f26..4e73f3f5754c6 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -9,8 +9,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'zbcd.inc' INCLUDE 'zbcdh.inc' - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) + INCLUDE 'zceta.inc' COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) INCLUDE 'zmach.inc' COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR @@ -50,8 +49,7 @@ SUBROUTINE MZEBRA (LIST) SUBROUTINE MZINCO (LIST) INCLUDE 'zbcd.inc' INCLUDE 'zbcdh.inc' - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) + INCLUDE 'zceta.inc' COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) INCLUDE 'zmach.inc' COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR @@ -2856,8 +2854,7 @@ FUNCTION IUCOMP (ITEXT,IVECT,N) SUBROUTINE IZBCDT (NP,ITABT) INCLUDE 'quest.inc' - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) + INCLUDE 'zceta.inc' COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) DIMENSION NP(9), ITABT(99) N = NP(1) @@ -5660,8 +5657,7 @@ SUBROUTINE ZSHUNT (IXSTOR,LSHP,LSUPP,JBIASP,IFLAGP) *------------------------------------------------------------------------------- SUBROUTINE ZHTOI (HOLL,INTV,NP) - PARAMETER (NQTCET=256) - COMMON /ZCETA/ IQCETA(256),IQTCET(256) + INCLUDE 'zceta.inc' INTEGER INTV(99), HOLL(99) DO 39 JWH=1,NP MWH = HOLL(JWH) From ced8e5e26ec00b05fff9cd50943e9f47355d01c7 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:58:22 +0200 Subject: [PATCH 31/50] [minicern] avoid dupe zheadp code --- misc/minicern/src/zebra.f | 4 ++-- misc/minicern/src/zheadp.inc | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) create mode 100644 misc/minicern/src/zheadp.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 4e73f3f5754c6..9abb2818f3e20 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -10,7 +10,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'zbcd.inc' INCLUDE 'zbcdh.inc' INCLUDE 'zceta.inc' - COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) + INCLUDE 'zheadp.inc' INCLUDE 'zmach.inc' COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR INCLUDE 'zstate.inc' @@ -50,7 +50,7 @@ SUBROUTINE MZINCO (LIST) INCLUDE 'zbcd.inc' INCLUDE 'zbcdh.inc' INCLUDE 'zceta.inc' - COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) + INCLUDE 'zheadp.inc' INCLUDE 'zmach.inc' COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR INCLUDE 'zstate.inc' diff --git a/misc/minicern/src/zheadp.inc b/misc/minicern/src/zheadp.inc new file mode 100644 index 0000000000000..07527f2d5d7f7 --- /dev/null +++ b/misc/minicern/src/zheadp.inc @@ -0,0 +1,2 @@ +C=== zheadp.inc ================================================ + COMMON /ZHEADP/IQHEAD(20),IQDATE,IQTIME,IQPAGE,NQPAGE(4) From 1c9924434979feb2d8b0105c83f987fe7d26b888 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 17:59:34 +0200 Subject: [PATCH 32/50] [minicern] avoid dupe znatur code --- misc/minicern/src/zebra.f | 4 ++-- misc/minicern/src/znatur.inc | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) create mode 100644 misc/minicern/src/znatur.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 9abb2818f3e20..9a42a60146b2a 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -12,7 +12,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'zceta.inc' INCLUDE 'zheadp.inc' INCLUDE 'zmach.inc' - COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR + INCLUDE 'znatur.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' INCLUDE 'ziq.inc' @@ -52,7 +52,7 @@ SUBROUTINE MZINCO (LIST) INCLUDE 'zceta.inc' INCLUDE 'zheadp.inc' INCLUDE 'zmach.inc' - COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR + INCLUDE 'znatur.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) diff --git a/misc/minicern/src/znatur.inc b/misc/minicern/src/znatur.inc new file mode 100644 index 0000000000000..1c20f711a5e7a --- /dev/null +++ b/misc/minicern/src/znatur.inc @@ -0,0 +1,2 @@ +C=== znatur.inc ================================================ + COMMON /ZNATUR/QPI2,QPI,QPIBY2,QPBYHR From 6d68566fb401d9002b793693d07545da922f78e6 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:00:45 +0200 Subject: [PATCH 33/50] [minicern] avoid dupe zvfaut code --- misc/minicern/src/zebra.f | 22 +++++++++++----------- misc/minicern/src/zvfaut.inc | 2 ++ 2 files changed, 13 insertions(+), 11 deletions(-) create mode 100644 misc/minicern/src/zvfaut.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 9a42a60146b2a..769fa8cf7af72 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -55,7 +55,7 @@ SUBROUTINE MZINCO (LIST) INCLUDE 'znatur.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'quest.inc' DIMENSION LIST(9) JBIT(IZW,IZP) = IAND(ISHFT(IZW,-(IZP-1)),1) @@ -1428,7 +1428,7 @@ SUBROUTINE MZLIFT (IXDIV,LP,LSUPP,JBIAS,NAME,NZERO) INCLUDE 'zmach.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -1686,7 +1686,7 @@ SUBROUTINE MZLINK (IXSTOR,CHNAME,LAREA,LREF,LREFL) INCLUDE 'zbcd.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -1793,7 +1793,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) INCLUDE 'zbcd.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -2043,7 +2043,7 @@ SUBROUTINE MZPUSH (IXDIV,LORGP,INCNLP,INCNDP,CHOPT) SUBROUTINE MZNEED (IXDIV,NEEDP,CHOPT) INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -3499,7 +3499,7 @@ SUBROUTINE MZCHNB (LIX) SUBROUTINE MZDROP (IXSTOR,LHEADP,CHOPT) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -3605,7 +3605,7 @@ FUNCTION MZDVAC (IXDIVP) SUBROUTINE MZGARB (IXGP,IXWP) INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -3666,7 +3666,7 @@ SUBROUTINE MZGARB (IXGP,IXWP) SUBROUTINE MZGAR1 INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -3763,7 +3763,7 @@ SUBROUTINE MZGAR1 *------------------------------------------------------------------------------- SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) INCLUDE 'ziq.inc' INCLUDE 'quest.inc' @@ -4712,7 +4712,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) COMMON /ZLIMIT/LQLIML,LQLIMH INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -5742,7 +5742,7 @@ SUBROUTINE MZWIPE (IXWP) INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' - COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) + INCLUDE 'zvfaut.inc' DIMENSION IXWP(9) DIMENSION NAMESR(2) DATA NAMESR / 4HMZWI, 4HPE / diff --git a/misc/minicern/src/zvfaut.inc b/misc/minicern/src/zvfaut.inc new file mode 100644 index 0000000000000..78b0ea67b17de --- /dev/null +++ b/misc/minicern/src/zvfaut.inc @@ -0,0 +1,2 @@ +C=== zvfaut.inc ================================================ + COMMON /ZVFAUT/IQVID(2),IQVSTA,IQVLOG,IQVTHR(2),IQVREM(2,6) From 5410d495a07cf06c91e857928bd4d721057974c2 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:02:26 +0200 Subject: [PATCH 34/50] [minicern] avoid dupe rzcount code --- misc/minicern/src/rzcount.inc | 2 ++ misc/minicern/src/zebra.f | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) create mode 100644 misc/minicern/src/rzcount.inc diff --git a/misc/minicern/src/rzcount.inc b/misc/minicern/src/rzcount.inc new file mode 100644 index 0000000000000..35945726a029c --- /dev/null +++ b/misc/minicern/src/rzcount.inc @@ -0,0 +1,2 @@ +C=== rzcount.inc =============================================== + COMMON/RZCOUNT/RZXIO(2) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 769fa8cf7af72..2504b28c0507e 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -20,7 +20,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'mzabq.inc' INCLUDE 'mzcl.inc' COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) - COMMON/RZCOUNT/RZXIO(2) + INCLUDE 'rzcount.inc' INCLUDE 'rzclun.inc' INCLUDE 'rzpars.inc' CHARACTER*4 CVERSN @@ -617,7 +617,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' COMMON /RZBUFF/ ITEST(8704) - COMMON/RZCOUNT/RZXIO(2) + INCLUDE 'rzcount.inc' INCLUDE 'rzpars.inc' DIMENSION IBUF(JREC) PARAMETER (MEDIUM=0) From 1484d677c3ef330d088134354cbdca7e502f815f Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:10:05 +0200 Subject: [PATCH 35/50] [minicern] avoid dupe mzcwk code --- misc/minicern/src/mzcwk.inc | 3 +++ misc/minicern/src/zebra.f | 6 ++---- 2 files changed, 5 insertions(+), 4 deletions(-) create mode 100644 misc/minicern/src/mzcwk.inc diff --git a/misc/minicern/src/mzcwk.inc b/misc/minicern/src/mzcwk.inc new file mode 100644 index 0000000000000..7512c3620adcb --- /dev/null +++ b/misc/minicern/src/mzcwk.inc @@ -0,0 +1,3 @@ +C=== mzcwk.inc ================================================= + PARAMETER (NQWKTT=2560) + COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 2504b28c0507e..790531623dd43 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -179,8 +179,7 @@ SUBROUTINE MZSTOR (IXSTOR,CHNAME,CHOPT INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' - PARAMETER (NQWKTT=2560) - COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) + INCLUDE 'mzcwk.inc' * DIMENSION IXSTOR(9),IFENCE(9) DIMENSION LV(9),LLR(9),LLD(9),LIMIT(9),LAST(9) @@ -4718,8 +4717,7 @@ SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'mzcn.inc' - PARAMETER (NQWKTT=2560) - COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) + INCLUDE 'mzcwk.inc' DIMENSION KBITP(9),LHEADP(9) CHARACTER *(*) CHOPT DIMENSION NAMESR(2) From 89b1881f86b20d1dcaf80dfa4c1b82b9e7680f58 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:11:07 +0200 Subject: [PATCH 36/50] [minicern] avoid dupe rzbuff code --- misc/minicern/src/rzbuff.inc | 2 ++ misc/minicern/src/zebra.f | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) create mode 100644 misc/minicern/src/rzbuff.inc diff --git a/misc/minicern/src/rzbuff.inc b/misc/minicern/src/rzbuff.inc new file mode 100644 index 0000000000000..0575ef3339e72 --- /dev/null +++ b/misc/minicern/src/rzbuff.inc @@ -0,0 +1,2 @@ +C=== rzbuff.inc ================================================ + COMMON /RZBUFF/ ITEST(8704) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 790531623dd43..3b18dc58b22ac 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -380,7 +380,7 @@ SUBROUTINE RZOPEN(LUNIN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) INCLUDE 'rzckey.inc' INCLUDE 'rzclun.inc' INCLUDE 'quest.inc' - COMMON /RZBUFF/ ITEST(8704) + INCLUDE 'rzbuff.inc' INCLUDE 'rzpars.inc' integer cfstat,statf,info(12) CHARACTER*(*) CFNAME,CHDIR,CHOPTT @@ -615,7 +615,7 @@ SUBROUTINE RZIODO(LUNRZ,JREC,IREC1,IBUF,IRW) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' - COMMON /RZBUFF/ ITEST(8704) + INCLUDE 'rzbuff.inc' INCLUDE 'rzcount.inc' INCLUDE 'rzpars.inc' DIMENSION IBUF(JREC) @@ -2262,7 +2262,7 @@ SUBROUTINE RZFILE(LUNIN,CHDIR,CHOPT) INCLUDE 'zkpars.inc' INCLUDE 'rzckey.inc' INCLUDE 'rzcycle.inc' - COMMON /RZBUFF/ ITEST(8704) + INCLUDE 'rzbuff.inc' CHARACTER CHOPT*(*),CHDIR*(*) CHARACTER*16 CHTOP DIMENSION IOPTV(10) From 79e82d53b91592578e2b0f937ef4de6d74009844 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:15:17 +0200 Subject: [PATCH 37/50] [minicern] avoid dupe fzci code --- misc/minicern/src/fzci.inc | 11 +++++++++++ misc/minicern/src/zebra.f | 33 +++------------------------------ 2 files changed, 14 insertions(+), 30 deletions(-) create mode 100644 misc/minicern/src/fzci.inc diff --git a/misc/minicern/src/fzci.inc b/misc/minicern/src/fzci.inc new file mode 100644 index 0000000000000..fc90fc4a9c64b --- /dev/null +++ b/misc/minicern/src/fzci.inc @@ -0,0 +1,11 @@ +C=== fzci.inc ================================================== + COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI + +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI + +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI + +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI + +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI + +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID + +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) + +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI + +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI + +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 3b18dc58b22ac..2ccb4f9d0767b 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -792,16 +792,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) INCLUDE 'mzct.inc' INCLUDE 'mzioc.inc' INCLUDE 'mzcn.inc' - COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI - +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI - +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI - +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI - +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI - +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID - +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) - +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI - +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI - +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR + INCLUDE 'fzci.inc' PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) @@ -1213,16 +1204,7 @@ SUBROUTINE FZIREL +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' - COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI - +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI - +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI - +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI - +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI - +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID - +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) - +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI - +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI - +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR + INCLUDE 'fzci.inc' PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) DIMENSION LADESV(6) DIMENSION NAMESR(2) @@ -2591,16 +2573,7 @@ SUBROUTINE FZIMTB +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' - COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI - +, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI - +, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI - +, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI - +, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI - +, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID - +, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4) - +, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI - +, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI - +, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR + INCLUDE 'fzci.inc' PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) From a86fef908c096ba43263b43c0e01dc2aad8de05b Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:17:28 +0200 Subject: [PATCH 38/50] [minicern] unify equivalence style --- misc/minicern/src/zebra.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 2ccb4f9d0767b..177872433a4d1 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -2570,7 +2570,7 @@ SUBROUTINE FZIMTB INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' EQUIVALENCE (LQFS,LQSYSS(4)), (LQFF,LQSYSR(4)) - +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) + +, (LQFI,LQSYSR(5)), (LQFX,LQSYSR(6)) INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' INCLUDE 'fzci.inc' From 547b02f20870a0955b97960f690af5d94df4c3e1 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:19:59 +0200 Subject: [PATCH 39/50] [minicern] avoid dupe jauioc code --- misc/minicern/src/jauioc.inc | 2 ++ misc/minicern/src/zebra.f | 6 +++--- 2 files changed, 5 insertions(+), 3 deletions(-) create mode 100644 misc/minicern/src/jauioc.inc diff --git a/misc/minicern/src/jauioc.inc b/misc/minicern/src/jauioc.inc new file mode 100644 index 0000000000000..638be491e5cb6 --- /dev/null +++ b/misc/minicern/src/jauioc.inc @@ -0,0 +1,2 @@ +C=== jauioc.inc ================================================ + PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 177872433a4d1..5a4a14e048981 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -793,7 +793,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) INCLUDE 'mzioc.inc' INCLUDE 'mzcn.inc' INCLUDE 'fzci.inc' - PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) + INCLUDE 'jauioc.inc' COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) INCLUDE 'rzclun.inc' @@ -1205,7 +1205,7 @@ SUBROUTINE FZIREL INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' INCLUDE 'fzci.inc' - PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) + INCLUDE 'jauioc.inc' DIMENSION LADESV(6) DIMENSION NAMESR(2) DATA NAMESR / 4HFZIR, 4HEL / @@ -2574,7 +2574,7 @@ SUBROUTINE FZIMTB INCLUDE 'mzcn.inc' INCLUDE 'mzct.inc' INCLUDE 'fzci.inc' - PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) + INCLUDE 'jauioc.inc' COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) DIMENSION ITOSOR(20), ISORDV(20), ISORSP(20) From 5440ce95ee4a15e249cab799f6d055414369a811 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:22:16 +0200 Subject: [PATCH 40/50] [minicern] avoid dupe fcz code --- misc/minicern/src/fzc.inc | 3 +++ misc/minicern/src/zebra.f | 6 ++---- 2 files changed, 5 insertions(+), 4 deletions(-) create mode 100644 misc/minicern/src/fzc.inc diff --git a/misc/minicern/src/fzc.inc b/misc/minicern/src/fzc.inc new file mode 100644 index 0000000000000..367af6c44a9d8 --- /dev/null +++ b/misc/minicern/src/fzc.inc @@ -0,0 +1,3 @@ +C=== fcz.inc =================================================== + COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK + COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 5a4a14e048981..b43aadcd41e30 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -794,8 +794,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) INCLUDE 'mzcn.inc' INCLUDE 'fzci.inc' INCLUDE 'jauioc.inc' - COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK - COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) + INCLUDE 'fzc.inc' INCLUDE 'rzclun.inc' DIMENSION IXDIVP(9),LSUPP(9),JBIASP(9),IDUM(3) EQUIVALENCE (IOPTR,IQUEST(95)) @@ -2575,8 +2574,7 @@ SUBROUTINE FZIMTB INCLUDE 'mzct.inc' INCLUDE 'fzci.inc' INCLUDE 'jauioc.inc' - COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK - COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) + INCLUDE 'fzc.inc' DIMENSION ITOSOR(20), ISORDV(20), ISORSP(20) DIMENSION LSTAV(20), LENDV(20) EQUIVALENCE (LSTAV(1),IQUEST(60)), (LENDV(1),IQUEST(80)) From 2682216253a3ec4cb3cc7205d5999864b7e2db1b Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:22:46 +0200 Subject: [PATCH 41/50] [minicern] avoid dupe rzcout code --- misc/minicern/src/rzcout.inc | 2 ++ misc/minicern/src/zebra.f | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) create mode 100644 misc/minicern/src/rzcout.inc diff --git a/misc/minicern/src/rzcout.inc b/misc/minicern/src/rzcout.inc new file mode 100644 index 0000000000000..293bde7fd9bb1 --- /dev/null +++ b/misc/minicern/src/rzcout.inc @@ -0,0 +1,2 @@ +C=== rzcout.inc ================================================ + COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index b43aadcd41e30..01fb5a2afb3d1 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -2868,7 +2868,7 @@ SUBROUTINE RZINK(KEYU,ICYCLE,CHOPT) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' - COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR + INCLUDE 'rzcout.inc' INCLUDE 'zkpars.inc' INCLUDE 'rzckey.inc' INCLUDE 'rzcycle.inc' @@ -3228,7 +3228,7 @@ SUBROUTINE RZREAD(IV,N,IPC,IFORM) INCLUDE 'mzabq.inc' INCLUDE 'mzcc.inc' INCLUDE 'rzcls.inc' - COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR + INCLUDE 'rzcout.inc' INCLUDE 'zkpars.inc' INCLUDE 'mzioc.inc' DIMENSION IV(*) From 657ccea95a070ebb5786e51e7d6e44e4c5d599d7 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:24:28 +0200 Subject: [PATCH 42/50] [minicern] avoid dupe zkrakc code --- misc/minicern/src/zebra.f | 8 ++++---- misc/minicern/src/zkrakc.inc | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) create mode 100644 misc/minicern/src/zkrakc.inc diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 01fb5a2afb3d1..f1f29977a9f2e 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -2825,7 +2825,7 @@ FUNCTION IUCOMP (ITEXT,IVECT,N) SUBROUTINE IZBCDT (NP,ITABT) INCLUDE 'quest.inc' INCLUDE 'zceta.inc' - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) + INCLUDE 'zkrakc.inc' DIMENSION NP(9), ITABT(99) N = NP(1) LIM = ITABT(1) @@ -3734,7 +3734,7 @@ SUBROUTINE MZGAR1 SUBROUTINE MZFORM (CHID,CHFORM,IXIOP) INCLUDE 'zvfaut.inc' - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) + INCLUDE 'zkrakc.inc' INCLUDE 'ziq.inc' INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' @@ -4389,7 +4389,7 @@ SUBROUTINE MZTABX *------------------------------------------------------------------------------- SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) + INCLUDE 'zkrakc.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' INCLUDE 'quest.inc' @@ -4813,7 +4813,7 @@ SUBROUTINE MZGSTA (IGARB) *------------------------------------------------------------------------------- SUBROUTINE MZIOCF (JUP,MXVAL) - COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) + INCLUDE 'zkrakc.inc' INCLUDE 'quest.inc' DIMENSION MU(99) EQUIVALENCE (MU(1),IQHOLK(1)) diff --git a/misc/minicern/src/zkrakc.inc b/misc/minicern/src/zkrakc.inc new file mode 100644 index 0000000000000..3de5a99377c07 --- /dev/null +++ b/misc/minicern/src/zkrakc.inc @@ -0,0 +1,2 @@ +C=== zkrakc.inc ================================================ + COMMON /ZKRAKC/IQHOLK(120), IQKRAK(80), IQCETK(122) From 412ec5c4554bfcfd769b3ef246b3db15b661a656 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:34:46 +0200 Subject: [PATCH 43/50] [minicern] move other single-line commons to include, for consistency --- misc/minicern/src/jzuc.inc | 2 ++ misc/minicern/src/slate.inc | 2 ++ misc/minicern/src/zebra.f | 6 +++--- misc/minicern/src/zlimit.inc | 2 ++ 4 files changed, 9 insertions(+), 3 deletions(-) create mode 100644 misc/minicern/src/jzuc.inc create mode 100644 misc/minicern/src/slate.inc create mode 100644 misc/minicern/src/zlimit.inc diff --git a/misc/minicern/src/jzuc.inc b/misc/minicern/src/jzuc.inc new file mode 100644 index 0000000000000..316f5f6337f8c --- /dev/null +++ b/misc/minicern/src/jzuc.inc @@ -0,0 +1,2 @@ +C=== jzuc.inc ================================================== + COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) diff --git a/misc/minicern/src/slate.inc b/misc/minicern/src/slate.inc new file mode 100644 index 0000000000000..947d1fe7e75ba --- /dev/null +++ b/misc/minicern/src/slate.inc @@ -0,0 +1,2 @@ +C=== slate.inc ================================================= + COMMON /SLATE/ DUMMY(8), MM(4), DUMB(28) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index f1f29977a9f2e..5e4316a4a0216 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -19,7 +19,7 @@ SUBROUTINE MZEBRA (LIST) INCLUDE 'quest.inc' INCLUDE 'mzabq.inc' INCLUDE 'mzcl.inc' - COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) + INCLUDE 'jzuc.inc' INCLUDE 'rzcount.inc' INCLUDE 'rzclun.inc' INCLUDE 'rzpars.inc' @@ -916,7 +916,7 @@ SUBROUTINE RZINS(IXDIVP,LSUPP,JBIASP,LBANK) SUBROUTINE ZITOH (INTV,IHOLL,NP) INCLUDE 'zbcd.inc' - COMMON /SLATE/ DUMMY(8), MM(4), DUMB(28) + INCLUDE 'slate.inc' DIMENSION INTV(99), IHOLL(99), NP(9) DIMENSION MPAK(2) DATA MPAK /6,4/ @@ -4679,7 +4679,7 @@ SUBROUTINE MZIOCH (IODVEC,NWIOMP,CHFORM) *------------------------------------------------------------------------------- SUBROUTINE MZFLAG (IXSTOR,LHEADP,KBITP,CHOPT) - COMMON /ZLIMIT/LQLIML,LQLIMH + INCLUDE 'zlimit.inc' INCLUDE 'zstate.inc' INCLUDE 'zunit.inc' INCLUDE 'zvfaut.inc' diff --git a/misc/minicern/src/zlimit.inc b/misc/minicern/src/zlimit.inc new file mode 100644 index 0000000000000..b7fe10e22cda6 --- /dev/null +++ b/misc/minicern/src/zlimit.inc @@ -0,0 +1,2 @@ +C=== zlimit.inc ================================================ + COMMON /ZLIMIT/LQLIML,LQLIMH From c967f8f23c64ce67f2f59a15325783f4ab5efa11 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 18:35:39 +0200 Subject: [PATCH 44/50] [minicern] rename variable so that pawc inc file from hbook can be reused --- misc/minicern/src/zebra.f | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/misc/minicern/src/zebra.f b/misc/minicern/src/zebra.f index 5e4316a4a0216..dca35c7f7576a 100644 --- a/misc/minicern/src/zebra.f +++ b/misc/minicern/src/zebra.f @@ -153,8 +153,7 @@ SUBROUTINE MZINCO (LIST) *------------------------------------------------------------------------------- SUBROUTINE MZPAW (NWORDS,CHOPT) - COMMON /PAWC/ NWPAW,IXPAWC,IHBOOK,IXHIGZ,IXKU,IFENCE(5) - +, LMAIN, IPAW(4000000-11) + INCLUDE 'pawc.inc' CHARACTER *(*) CHOPT CALL UOPTC (CHOPT,'M',IPAW) IF (IPAW(1).NE.0) CALL MZEBRA(-1) @@ -162,7 +161,7 @@ SUBROUTINE MZPAW (NWORDS,CHOPT) CALL MZSTOR (IXPAWC,'/PAWC/',' ',IFENCE,LMAIN,IPAW(1),IPAW(1), + IPAW(5000),IPAW(NW-11)) NWPAW = NW - IHBOOK = 0 + IHDIV = 0 IXHIGZ = 0 IXKU = 0 END From 1815a7857d2c21bb868c856e7fbbc4a9ffe36931 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 19:28:26 +0200 Subject: [PATCH 45/50] [minicern] avoid dupe hcmail code --- misc/minicern/src/hbook.f | 15 +++++---------- misc/minicern/src/hcmail.inc | 3 +++ 2 files changed, 8 insertions(+), 10 deletions(-) create mode 100644 misc/minicern/src/hcmail.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 0a39f44691c9b..642e2c0afd38c 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -207,8 +207,7 @@ SUBROUTINE HROPEN(LUN,CHDIR,CFNAME,CHOPTT,LRECL,ISTAT) SUBROUTINE HRFILE(LUN,CHDIR,CHOPT) INCLUDE 'hcdirn.inc' - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL + INCLUDE 'hcmail.inc' INCLUDE 'quest.inc' CHARACTER*(*) CHDIR,CHOPT CHARACTER*8 TAGS(2),CHOPTT @@ -481,8 +480,7 @@ SUBROUTINE HRZIN(IXDIV,LBANK,JBIAS,KEYS,ICYCLE,CHOPT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcdirn.inc' - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL + INCLUDE 'hcmail.inc' INCLUDE 'quest.inc' DIMENSION LBANK(1),JBIAS(1) INTEGER KEYS(2) @@ -1372,8 +1370,7 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) INCLUDE 'hcflag.inc' INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL + INCLUDE 'hcmail.inc' INCLUDE 'quest.inc' CHARACTER*2 NODIR PARAMETER (NODIR = '@#') @@ -2199,8 +2196,7 @@ SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) *------------------------------------------------------------------------------- SUBROUTINE HPAFF(CH,NL,CHPATH) - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL + INCLUDE 'hcmail.inc' CHARACTER*(*) CHPATH,CH(*) CHARACTER*16 CHL MAXLEN=LEN(CHPATH) @@ -2572,8 +2568,7 @@ SUBROUTINE HLDIR(CHPATH,CHOPT) INTEGER LOUT,LERR,LINFIT COMMON/HCUNIT/LOUT,LERR,LINFIT INCLUDE 'hcdirn.inc' - CHARACTER*128 CHMAIL - COMMON /HCMAIL/CHMAIL + INCLUDE 'hcmail.inc' DIMENSION IPAWC(99) EQUIVALENCE (NWPAW,IPAWC(1)) INCLUDE 'quest.inc' diff --git a/misc/minicern/src/hcmail.inc b/misc/minicern/src/hcmail.inc new file mode 100644 index 0000000000000..3cbf72183c7e3 --- /dev/null +++ b/misc/minicern/src/hcmail.inc @@ -0,0 +1,3 @@ +C=== hcmail.inc ================================================ + CHARACTER*128 CHMAIL + COMMON /HCMAIL/CHMAIL From 796f0d3c060437a1b55c96ca7a01b55cd1da63bc Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 19:30:35 +0200 Subject: [PATCH 46/50] [minicern] avoid dupe hcunit code --- misc/minicern/src/hbook.f | 15 +++++---------- misc/minicern/src/hcunit.inc | 3 +++ 2 files changed, 8 insertions(+), 10 deletions(-) create mode 100644 misc/minicern/src/hcunit.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 642e2c0afd38c..6b05850f709ec 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -1368,8 +1368,7 @@ SUBROUTINE HCDIR(CHPATH,CHOPT) INCLUDE 'hparam1.inc' INCLUDE 'hcdirn.inc' INCLUDE 'hcflag.inc' - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT + INCLUDE 'hcunit.inc' INCLUDE 'hcmail.inc' INCLUDE 'quest.inc' CHARACTER*2 NODIR @@ -1471,8 +1470,7 @@ SUBROUTINE HMACHI INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INCLUDE 'hcbits.inc' - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT + INCLUDE 'hcunit.inc' INCLUDE 'hcprin.inc' COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT COMMON /HCSET/ IBSIZE @@ -1791,8 +1789,7 @@ SUBROUTINE HITOC(IVAL, VALC, NCSTR, IERR) SUBROUTINE HPATH(CHPATH) INCLUDE 'hcdirn.inc' - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT + INCLUDE 'hcunit.inc' CHARACTER*(*) CHPATH CHARACTER*1 CH1,BSLASH CHARACTER*2 CH2 @@ -2565,8 +2562,7 @@ SUBROUTINE HNHDWR(IDD) SUBROUTINE HLDIR(CHPATH,CHOPT) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT + INCLUDE 'hcunit.inc' INCLUDE 'hcdirn.inc' INCLUDE 'hcmail.inc' DIMENSION IPAWC(99) @@ -2651,8 +2647,7 @@ SUBROUTINE HLDIRT(CHDIR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' - INTEGER LOUT,LERR,LINFIT - COMMON/HCUNIT/LOUT,LERR,LINFIT + INCLUDE 'hcunit.inc' INCLUDE 'zbits.inc' CHARACTER*(*) CHDIR INCLUDE 'quest.inc' diff --git a/misc/minicern/src/hcunit.inc b/misc/minicern/src/hcunit.inc new file mode 100644 index 0000000000000..c611a807c65d5 --- /dev/null +++ b/misc/minicern/src/hcunit.inc @@ -0,0 +1,3 @@ +C=== hcunit.inc ================================================ + INTEGER LOUT,LERR,LINFIT + COMMON/HCUNIT/LOUT,LERR,LINFIT From df4c99cc7c1b1b05a9d151d6d3d8a7b15969417d Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 19:32:47 +0200 Subject: [PATCH 47/50] [minicern] avoid dupe hntcur code --- misc/minicern/src/hbook.f | 4 ++-- misc/minicern/src/hntcur.inc | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) create mode 100644 misc/minicern/src/hntcur.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 6b05850f709ec..451f7c67f09be 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -292,7 +292,7 @@ SUBROUTINE HRIN(IDD,ICYCLE,KOFSET) INCLUDE 'hparam1.inc' INCLUDE 'hcdirn.inc' INCLUDE 'zbits.inc' - COMMON /HNTCUR/ NTCUR + INCLUDE 'hntcur.inc' INCLUDE 'quest.inc' INCLUDE 'hcflag.inc' CHARACTER*128 CHWOLD @@ -750,7 +750,7 @@ SUBROUTINE HGNT1(IDD,BLKNA1,VAR,IOFFST,NVAR,IDNEVT,IERROR) INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INCLUDE 'zbits.inc' - COMMON /HNTCUR/ NTCUR + INCLUDE 'hntcur.inc' CHARACTER*(*) BLKNA1, VAR(*) CHARACTER*8 BLKNAM, BLKSAV INTEGER HNBPTR, IOFFST(*) diff --git a/misc/minicern/src/hntcur.inc b/misc/minicern/src/hntcur.inc new file mode 100644 index 0000000000000..19550d9abedda --- /dev/null +++ b/misc/minicern/src/hntcur.inc @@ -0,0 +1,2 @@ +C=== hntcur.inc ================================================ + COMMON /HNTCUR/ NTCUR From 055e2e4d337223ad8c16ea6e5e77cca66ffb9b51 Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 19:35:51 +0200 Subject: [PATCH 48/50] [minicern] avoid dupe hcnt code --- misc/minicern/src/hbook.f | 8 ++++---- misc/minicern/src/hcnt.inc | 2 ++ 2 files changed, 6 insertions(+), 4 deletions(-) create mode 100644 misc/minicern/src/hcnt.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index 451f7c67f09be..e973780341492 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -820,7 +820,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) INCLUDE 'hparam1.inc' INCLUDE 'hcflag.inc' INCLUDE 'zbits.inc' - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT + INCLUDE 'hcnt.inc' LOGICAL NRECOV COMMON /HCRECV/ NRECOV CHARACTER*(*) VAR1(*) @@ -1472,7 +1472,7 @@ SUBROUTINE HMACHI INCLUDE 'hcbits.inc' INCLUDE 'hcunit.inc' INCLUDE 'hcprin.inc' - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT + INCLUDE 'hcnt.inc' COMMON /HCSET/ IBSIZE LOGICAL NRECOV COMMON /HCRECV/ NRECOV @@ -1714,7 +1714,7 @@ SUBROUTINE HRZCD(CHDIR,CHOPT) SUBROUTINE HNMADR(VAR1, IADD, ISCHAR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT + INCLUDE 'hcnt.inc' INCLUDE 'zbits.inc' CHARACTER*(*) VAR1 CHARACTER*32 NAME, VAR @@ -1917,7 +1917,7 @@ SUBROUTINE HNDESC(IOFF, NSUB, ITYPE, ISIZE, NBITS, INDVAR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'zbits.inc' - COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT + INCLUDE 'hcnt.inc' LOGICAL INDVAR NSUB = JBYT(IQ(LNAME+IOFF+ZDESC), 18, 3) ITYPE = JBYT(IQ(LNAME+IOFF+ZDESC), 14, 4) diff --git a/misc/minicern/src/hcnt.inc b/misc/minicern/src/hcnt.inc new file mode 100644 index 0000000000000..a4e8658f65153 --- /dev/null +++ b/misc/minicern/src/hcnt.inc @@ -0,0 +1,2 @@ +C=== hcnt.inc ================================================== + COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT From 4f35908b476856796503bccfd30d4f05929f740d Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 19:38:07 +0200 Subject: [PATCH 49/50] [minicern] avoid dupe hcrecv code --- misc/minicern/src/hbook.f | 9 +++------ misc/minicern/src/hcrecv.inc | 3 +++ 2 files changed, 6 insertions(+), 6 deletions(-) create mode 100644 misc/minicern/src/hcrecv.inc diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index e973780341492..cd53006203e55 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -821,8 +821,7 @@ SUBROUTINE HGNT2(VAR1,IVOFF,NVAR1,IDNEVT,IERROR) INCLUDE 'hcflag.inc' INCLUDE 'zbits.inc' INCLUDE 'hcnt.inc' - LOGICAL NRECOV - COMMON /HCRECV/ NRECOV + INCLUDE 'hcrecv.inc' CHARACTER*(*) VAR1(*) INTEGER IVOFF(*) CHARACTER*32 VAR @@ -1474,8 +1473,7 @@ SUBROUTINE HMACHI INCLUDE 'hcprin.inc' INCLUDE 'hcnt.inc' COMMON /HCSET/ IBSIZE - LOGICAL NRECOV - COMMON /HCRECV/ NRECOV + INCLUDE 'hcrecv.inc' PARAMETER (MBIT=32,MBITCH=8,MOUT=6,HMBIGP=1.E+30) CHARACTER*1 IDGTDA(42) CHARACTER*4 IPROJ(9) @@ -2120,8 +2118,7 @@ SUBROUTINE HNTRD(INDX, IOFF, IBANK, IERROR) INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'zbits.inc' - LOGICAL NRECOV - COMMON /HCRECV/ NRECOV + INCLUDE 'hcrecv.inc' INCLUDE 'quest.inc' CHARACTER*128 CHWOLD, CHDIR, CWDRZ INTEGER KEYS(2) diff --git a/misc/minicern/src/hcrecv.inc b/misc/minicern/src/hcrecv.inc new file mode 100644 index 0000000000000..4cc3c5daa627a --- /dev/null +++ b/misc/minicern/src/hcrecv.inc @@ -0,0 +1,3 @@ +C=== hcrecv.inc ================================================ + LOGICAL NRECOV + COMMON /HCRECV/ NRECOV From b3c9374fcb624cf01fc90474c667db0bdd18801f Mon Sep 17 00:00:00 2001 From: ferdymercury Date: Wed, 13 May 2026 19:42:52 +0200 Subject: [PATCH 50/50] [minicern] for consistency move all common to includes --- misc/minicern/src/allvars.inc | 4 ++++ misc/minicern/src/bigbuf.inc | 3 +++ misc/minicern/src/hbook.f | 9 +++------ misc/minicern/src/hcset.inc | 2 ++ 4 files changed, 12 insertions(+), 6 deletions(-) create mode 100644 misc/minicern/src/allvars.inc create mode 100644 misc/minicern/src/bigbuf.inc create mode 100644 misc/minicern/src/hcset.inc diff --git a/misc/minicern/src/allvars.inc b/misc/minicern/src/allvars.inc new file mode 100644 index 0000000000000..875fbbaaea101 --- /dev/null +++ b/misc/minicern/src/allvars.inc @@ -0,0 +1,4 @@ +C=== allvars.inc =============================================== + character *80 allvars + common/callvars/allvars(100) + common/calloff/ioffset(100) diff --git a/misc/minicern/src/bigbuf.inc b/misc/minicern/src/bigbuf.inc new file mode 100644 index 0000000000000..06e52d90928b4 --- /dev/null +++ b/misc/minicern/src/bigbuf.inc @@ -0,0 +1,3 @@ +C=== bigbuf.inc ================================================ + COMMON/BIGBUF/BIGB(4000000) + character BIGB diff --git a/misc/minicern/src/hbook.f b/misc/minicern/src/hbook.f index cd53006203e55..b893c0085c799 100644 --- a/misc/minicern/src/hbook.f +++ b/misc/minicern/src/hbook.f @@ -10,8 +10,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE + ,NBITS,IELEM) INCLUDE 'zbits.inc' INCLUDE 'hcflag.inc' - COMMON/BIGBUF/BIGB(4000000) - character BIGB + INCLUDE 'bigbuf.inc' INCLUDE 'pawc.inc' INCLUDE 'hparam1.inc' INCLUDE 'hcbits.inc' @@ -89,9 +88,7 @@ SUBROUTINE HNTVAR2(ID1,IVAR,CHTAG,CHFULL,BLOCK,NSUB,ITYPE,ISIZE *------------------------------------------------------------------------------- subroutine hntvar3(id,last,chvar) - character *80 allvars - common/callvars/allvars(100) - common/calloff/ioffset(100) + INCLUDE 'allvars.inc' character *(*) chvar integer id,ivar,last save ivar @@ -1472,7 +1469,7 @@ SUBROUTINE HMACHI INCLUDE 'hcunit.inc' INCLUDE 'hcprin.inc' INCLUDE 'hcnt.inc' - COMMON /HCSET/ IBSIZE + INCLUDE 'hcset.inc' INCLUDE 'hcrecv.inc' PARAMETER (MBIT=32,MBITCH=8,MOUT=6,HMBIGP=1.E+30) CHARACTER*1 IDGTDA(42) diff --git a/misc/minicern/src/hcset.inc b/misc/minicern/src/hcset.inc new file mode 100644 index 0000000000000..4cde3f9aa4c02 --- /dev/null +++ b/misc/minicern/src/hcset.inc @@ -0,0 +1,2 @@ +C=== hcset.inc ================================================= + COMMON /HCSET/ IBSIZE