Skip to content

Commit 012bcae

Browse files
ferdymercuryferdymercury
authored
[minicern] Reduce code duplication to easen debugging
More in detail: * Avoid dupe quest code * Avoid dupe hcflag code * Avoid dupe pawc code and redefine HCV and FENCE from REAL to INT * Avoid dupe iq hbook code * Avoid dupe zbit code * Avoid dupe hcprin code * Avoid dupe hcdirn code * Avoid dupe hcform code * Avoid dupe hcbits code * Avoid dupe zbcd code * Avoid dupe zbcdh code * Avoid dupe zunit code * Avoid dupe zstate code * Avoid dupe mzabq code * Avoid dupe mzcc code * Avoid dupe zmach code * Avoid dupe iqdrop code * Avoid dupe mza code * Avoid dupe kup code * Avoid dupe mzct code * Avoid dupe rzpars code * Avoid dupe rzcl code * Avoid dupe mzioc code * Avoid dupe mzcn code * Avoid dupe mzcl code * Avoid dupe rzcycle code * Avoid dupe rzdir code * Avoid dupe rzch code * Avoid dupe rzckey code * Avoid dupe nlpatm code * Avoid dupe zceta code * Avoid dupe zheadp code * Avoid dupe znatur code * Avoid dupe zvfaut code * Avoid dupe rzcount code * Avoid dupe mzcwk code * Avoid dupe rzbuff code * Avoid dupe fzci code * Unify equivalence style * Avoid dupe jauioc code * Avoid dupe fcz code * Avoid dupe rzcout code * Avoid dupe zkrakc code * Move other single-line commons to include, for consistency * Rename variable so that pawc inc file from hbook can be reused * Avoid dupe hcmail code * Avoid dupe hcunit code * Avoid dupe hntcur code * Avoid dupe hcnt code * Avoid dupe hcrecv code
1 parent 1b9609f commit 012bcae

57 files changed

Lines changed: 851 additions & 3492 deletions

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎misc/minicern/src/allvars.inc‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
C=== allvars.inc ===============================================
2+
character *80 allvars
3+
common/callvars/allvars(100)
4+
common/calloff/ioffset(100)

‎misc/minicern/src/bigbuf.inc‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
C=== bigbuf.inc ================================================
2+
COMMON/BIGBUF/BIGB(4000000)
3+
character BIGB

‎misc/minicern/src/fzc.inc‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
C=== fcz.inc ===================================================
2+
COMMON /FZCSEG/NQSEG,IQSEGH(2,20),IQSEGD(20),IQSGLU,IQSGWK
3+
COMMON /FZCOCC/NQOCC,IQOCDV(20),IQOCSP(20)

‎misc/minicern/src/fzci.inc‎

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
C=== fzci.inc ==================================================
2+
COMMON /FZCI/ LUNI,LUNNI,IXDIVI,LTEMPI,IEVFLI
3+
+, MSTATI,MEDIUI,IFIFOI,IDAFOI,IACMOI,IUPAKI
4+
+, IADOPI,IACTVI,INCBPI,LOGLVI,MAXREI, ISTENI
5+
+, LBPARI, L4STOI,L4STAI,L4CURI,L4ENDI
6+
+, IFLAGI,NFASTI,N4SKII,N4RESI,N4DONI,N4ENDI
7+
+, IOPTIE,IOPTIR,IOPTIS,IOPTIA,IOPTIT,IOPTID
8+
+, IOPTIF,IOPTIG,IOPTIH,IOPTI2(4)
9+
+, IDI(2),IPILI(4),NWTXI,NWSEGI,NWTABI,NWBKI,LENTRI
10+
+, NWUHCI,IOCHI(16),NWUMXI,NWUHI,NWIOI
11+
+, NWRDAI,NRECAI,LUHEAI,JRETCD,JERROR,NWERR

‎misc/minicern/src/hbook.f‎

Lines changed: 176 additions & 1545 deletions
Large diffs are not rendered by default.

‎misc/minicern/src/hcbits.inc‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
C=== hcbits.inc ================================================
2+
INTEGER I1, I2, I3, I4, I5, I6, I7, I8,
3+
+ I9, I10, I11, I12, I13, I14, I15, I16,
4+
+I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27,
5+
+I28, I29, I30, I31, I32, I33, I34, I35, I123, I230
6+
COMMON / HCBITS / I1, I2, I3, I4, I5, I6, I7, I8,
7+
+ I9, I10, I11, I12, I13, I14, I15, I16,
8+
+I17, I18, I19, I20, I21, I22, I23, I24, I25, I26, I27,
9+
+I28, I29, I30, I31, I32, I33, I34, I35, I123, I230

‎misc/minicern/src/hcdirn.inc‎

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,9 @@
1+
C=== hcdirn.inc ================================================
2+
PARAMETER (NLPATM=100, MXFILES=50, LENHFN=128)
3+
COMMON /HCDIRN/NLCDIR,NLNDIR,NLPAT,ICDIR,NCHTOP,ICHTOP(MXFILES)
4+
+ ,ICHTYP(MXFILES),ICHLUN(MXFILES)
5+
CHARACTER*16 CHNDIR, CHCDIR, CHPAT ,CHTOP
6+
COMMON /HCDIRC/CHCDIR(NLPATM),CHNDIR(NLPATM),CHPAT(NLPATM)
7+
+ ,CHTOP(NLPATM)
8+
CHARACTER*(LENHFN) HFNAME
9+
COMMON /HCFILE/HFNAME(MXFILES)

‎misc/minicern/src/hcflag.inc‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
C=== hcflag.inc ================================================
2+
INTEGER ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH,
3+
+ NCHAR,NRHIST,IERR,NV
4+
COMMON /HCFLAG/ ID,IDBADD,LID,IDLAST,IDHOLD,NBIT,NBITCH,
5+
+ NCHAR,NRHIST,IERR ,NV

‎misc/minicern/src/hcform.inc‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
C=== hcform.inc ================================================
2+
COMMON/HCFORM/IODIR,IOH1,IOH2,IOHN,IOCF1,IOCF2,IOCB1,IOCB2,
3+
+ IOCF4,IOFIT,IONT,IOBL,IOCC

‎misc/minicern/src/hcmail.inc‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
C=== hcmail.inc ================================================
2+
CHARACTER*128 CHMAIL
3+
COMMON /HCMAIL/CHMAIL

0 commit comments

Comments
 (0)