-
Notifications
You must be signed in to change notification settings - Fork 1.5k
[minicern] reduce code duplication to easen debugging #22291
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Open
ferdymercury
wants to merge
50
commits into
root-project:master
Choose a base branch
from
ferdymercury:microcern
base: master
Could not load branches
Branch not found: {{ refName }}
Loading
Could not load tags
Nothing to show
Loading
Are you sure you want to change the base?
Some commits from the old base branch may be removed from the timeline,
and old review comments may become outdated.
Open
Changes from all commits
Commits
Show all changes
50 commits
Select commit
Hold shift + click to select a range
97b21a1
[minicern] avoid dupe quest code
ferdymercury da35b5b
[minicern] avoid dupe hcflag code
ferdymercury 0f862d4
[minicern] avoid dupe pawc code and redefine HCV and FENCE from REAL …
ferdymercury 78aa3b6
[minicern] avoid dupe iq hbook code
ferdymercury 9a410e2
[minicern] avoid dupe zbit code
ferdymercury ffd6d07
[minicern] avoid dupe hcprin code
ferdymercury 563b07b
[minicern] avoid dupe hcdirn code
ferdymercury 84ce0e0
[minicern] avoid dupe hcform code
ferdymercury 43df58f
[minicern] avoid dupe hcbits code
ferdymercury 6349542
[minicern] avoid dupe zbcd code
ferdymercury 4359465
[minicern] avoid dupe zbcdh code
ferdymercury 28a99ae
[minicern] avoid dupe zunit code
ferdymercury 5928854
[minicern] avoid dupe zstate code
ferdymercury af12b35
[minicern] avoid dupe mzabq code
ferdymercury 5dcccb3
[minicern] avoid dupe zmach code
ferdymercury 0322bbd
[minicern] avoid dupe iqdrop code
ferdymercury 0573cde
[minicern] avoid dupe mza code
ferdymercury 38bdc54
[minicern] avoid dupe kup code
ferdymercury b328553
[minicern] avoid dupe mzct code
ferdymercury 9f394cd
[minicern] avoid dupe rzpars code
ferdymercury c9866af
[minicern] avoid dupe rzcl code
ferdymercury 6560fd1
[minicern] avoid dupe mzioc code
ferdymercury a6648e6
[minicern] avoid dupe mzcn code
ferdymercury ae1e99c
[minicern] avoid dupe mzcl code
ferdymercury 2435569
[minicern] avoid dupe rzcycle code
ferdymercury 0613229
[minicern] avoid dupe rzdir code
ferdymercury 0ca1d73
[minicern] avoid dupe rzch code
ferdymercury c6cdde4
[minicern] avoid dupe rzckey code
ferdymercury 1ebc914
[minicern] avoid dupe nlpatm code
ferdymercury e86981e
[minicern] avoid dupe zceta code
ferdymercury ced8e5e
[minicern] avoid dupe zheadp code
ferdymercury 1c99244
[minicern] avoid dupe znatur code
ferdymercury 6d68566
[minicern] avoid dupe zvfaut code
ferdymercury 5410d49
[minicern] avoid dupe rzcount code
ferdymercury 1484d67
[minicern] avoid dupe mzcwk code
ferdymercury 89b1881
[minicern] avoid dupe rzbuff code
ferdymercury 79e82d5
[minicern] avoid dupe fzci code
ferdymercury a86fef9
[minicern] unify equivalence style
ferdymercury 547b02f
[minicern] avoid dupe jauioc code
ferdymercury 5440ce9
[minicern] avoid dupe fcz code
ferdymercury 2682216
[minicern] avoid dupe rzcout code
ferdymercury 657ccea
[minicern] avoid dupe zkrakc code
ferdymercury 412ec5c
[minicern] move other single-line commons to include, for consistency
ferdymercury c967f8f
[minicern] rename variable so that pawc inc file from hbook can be re…
ferdymercury 1815a78
[minicern] avoid dupe hcmail code
ferdymercury 796f0d3
[minicern] avoid dupe hcunit code
ferdymercury df4c99c
[minicern] avoid dupe hntcur code
ferdymercury 055e2e4
[minicern] avoid dupe hcnt code
ferdymercury 4f35908
[minicern] avoid dupe hcrecv code
ferdymercury b3c9374
[minicern] for consistency move all common to includes
ferdymercury File filter
Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
There are no files selected for viewing
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| C=== allvars.inc =============================================== | ||
| character *80 allvars | ||
| common/callvars/allvars(100) | ||
| common/calloff/ioffset(100) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== bigbuf.inc ================================================ | ||
| COMMON/BIGBUF/BIGB(4000000) | ||
| character BIGB |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== fcz.inc =================================================== | ||
| COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK | ||
| COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20) | ||
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
Large diffs are not rendered by default.
Oops, something went wrong.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== hcform.inc ================================================ | ||
| COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2, | ||
| + IOCF4,IOFIT,IONT,IOBL,IOCC |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== hcmail.inc ================================================ | ||
| CHARACTER*128 CHMAIL | ||
| COMMON /HCMAIL/CHMAIL |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== hcnt.inc ================================================== | ||
| COMMON /HCNT/ IBIPW, IBIPB, IBYPW, ISHBIT |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== hcrecv.inc ================================================ | ||
| LOGICAL NRECOV | ||
| COMMON /HCRECV/ NRECOV |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== hcset.inc ================================================= | ||
| COMMON /HCSET/ IBSIZE |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== hcunit.inc ================================================ | ||
| INTEGER LOUT,LERR,LINFIT | ||
| COMMON/HCUNIT/LOUT,LERR,LINFIT |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== hntcur.inc ================================================ | ||
| COMMON /HNTCUR/ NTCUR |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== jauioc.inc ================================================ | ||
| PARAMETER (JAUIOC=50, JAUSEG=68, JAUEAR=130) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== jzuc.inc ================================================== | ||
| COMMON /JZUC/ LQJZ,LQUP,LQDW,LQSV,LQAN, JQLEV,JQFLAG(10) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,11 @@ | ||
| C=== mzabq.inc ================================================= | ||
| COMMON /ZEBQ/ IQFENC(4), LQ(100) | ||
| DIMENSION IQ(92), Q(92) | ||
| EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(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 | ||
| +, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6) | ||
| DIMENSION IQCUR(16) | ||
| EQUIVALENCE (IQCUR(1),LQSTOR) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== mzcl.inc ================================================== | ||
| COMMON /MZCL/ NQLN,NQLS,NQNIO,NQID,NQNL,NQNS,NQND,NQIOCH(16) | ||
| +, LQSUP,NQBIA, NQIOSV(3) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== mzcn.inc ================================================== | ||
| COMMON /MZCN/ IQLN,IQLS,IQNIO,IQID,IQNL,IQNS,IQND, IQNX,IQFOUL |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== mzcwk.inc ================================================= | ||
| PARAMETER (NQWKTT=2560) | ||
| COMMON /MZCWK/ IQWKTB(NQWKTT), IQWKFZ(NQWKTT) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== mzioc.inc ================================================= | ||
| COMMON /MZIOC/ NWFOAV,NWFOTT,NWFODN,NWFORE,IFOCON(3) | ||
| +, MFOSAV(2), JFOEND,JFOREP,JFOCUR,MFO(200) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== nlpatm.inc ================================================ | ||
| PARAMETER (NLPATM=100) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== quest.inc ================================================= | ||
| COMMON /QUEST/ IQUEST(100) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== rzbuff.inc ================================================ | ||
| COMMON /RZBUFF/ ITEST(8704) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== rzch.inc ================================================== | ||
| COMMON /RZCH/ CHWOLD,CHL | ||
| CHARACTER*255 CHWOLD,CHL |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== rzckey.inc ================================================ | ||
| COMMON/RZCKEY/IHEAD(3),KEY(100),KEY2(100),KEYDUM(50) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| C=== rzcl.inc ================================================== | ||
| COMMON /RZCL/ LTOP,LRZ0,LCDIR,LRIN,LROUT,LFREE,LUSED,LPURG | ||
| +, LTEMP,LCORD,LFROM | ||
| EQUIVALENCE (LQRS,LQSYSS(7)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== rzcls.inc ================================================= | ||
| INCLUDE 'rzcl.inc' | ||
| INCLUDE 'rzclun.inc' |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== rzclun.inc ================================================ | ||
| COMMON /RZCLUN/LUN,LREC,ISAVE,IMODEX,IRELAT,NHPWD,IHPWD(2) | ||
| +, IZRECL,IMODEC,IMODEH |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== rzcount.inc =============================================== | ||
| COMMON/RZCOUNT/RZXIO(2) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== rzcout.inc ================================================ | ||
| COMMON /RZCOUT/IP1,IR1,IR2,IROUT,IRLOUT,IOPTRR |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,2 @@ | ||
| C=== slate.inc ================================================= | ||
| COMMON /SLATE/ DUMMY(8), MM(4), DUMB(28) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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)) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| C=== zceta.inc ================================================= | ||
| PARAMETER (NQTCET=256) | ||
| COMMON /ZCETA/ IQCETA(256),IQTCET(256) |
Oops, something went wrong.
Oops, something went wrong.
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.