From 0a8141af24fe230e734e17c94235885cb614e602 Mon Sep 17 00:00:00 2001 From: Greg Sjaardema Date: Wed, 6 Mar 2024 18:05:26 -0700 Subject: [PATCH] Address flang-new common block padding warnings --- .../seacas/applications/algebra/ag_dbnumq.blk | 2 +- .../seacas/applications/algebra/ag_filter.blk | 2 +- packages/seacas/applications/blot/allal2.f | 3 +- packages/seacas/applications/blot/allal3.f | 3 +- packages/seacas/applications/blot/allcut.f | 3 +- packages/seacas/applications/blot/cfv2nv.f | 3 +- packages/seacas/applications/blot/ckcntr.f | 4 --- packages/seacas/applications/blot/cntri.f | 4 +-- packages/seacas/applications/blot/conlab.f | 3 +- packages/seacas/applications/blot/contf.f | 3 +- packages/seacas/applications/blot/contor.f | 7 ++-- packages/seacas/applications/blot/d3nums.blk | 2 +- packages/seacas/applications/blot/dbnumgq.blk | 2 +- packages/seacas/applications/blot/deadup.F | 3 +- packages/seacas/applications/blot/defxyz.f | 7 ++-- packages/seacas/applications/blot/dtread.f | 3 +- packages/seacas/applications/blot/elesta.f | 3 +- packages/seacas/applications/blot/epaint.f | 7 ++-- packages/seacas/applications/blot/fixal2.f | 3 +- packages/seacas/applications/blot/fixal3.f | 3 +- packages/seacas/applications/blot/fixcut.f | 3 +- packages/seacas/applications/blot/fixelb.f | 3 +- packages/seacas/applications/blot/fndsel.f | 3 +- packages/seacas/applications/blot/gauss.f | 7 ++-- packages/seacas/applications/blot/geom2d.f | 3 +- packages/seacas/applications/blot/geom3d.f | 3 +- packages/seacas/applications/blot/getdst.f | 4 +-- packages/seacas/applications/blot/grcaln.f | 8 +---- packages/seacas/applications/blot/grcolr.f | 10 +----- packages/seacas/applications/blot/grcolu.f | 8 +---- packages/seacas/applications/blot/grexit.f | 8 +---- packages/seacas/applications/blot/grgpar.f | 8 +---- packages/seacas/applications/blot/grgpard.f | 8 +---- packages/seacas/applications/blot/grinit.f | 33 +------------------ packages/seacas/applications/blot/grlwid.f | 8 +---- packages/seacas/applications/blot/grpcom.blk | 33 +++++++++++++++++-- packages/seacas/applications/blot/grpend.f | 8 +---- packages/seacas/applications/blot/grsdev.f | 8 +---- packages/seacas/applications/blot/grsnap.f | 8 +---- packages/seacas/applications/blot/grspar.f | 8 +---- packages/seacas/applications/blot/grtexc.f | 8 +---- packages/seacas/applications/blot/grtext.f | 8 +---- packages/seacas/applications/blot/hidedg.f | 3 +- packages/seacas/applications/blot/hidnod.f | 3 +- packages/seacas/applications/blot/hidzm.f | 3 +- packages/seacas/applications/blot/idedge.f | 8 ++--- packages/seacas/applications/blot/inpick.f | 16 +++------ packages/seacas/applications/blot/linthk.f | 13 +------- packages/seacas/applications/blot/makd2b.f | 3 +- packages/seacas/applications/blot/makn2b.f | 3 +- packages/seacas/applications/blot/maksu2.f | 3 +- packages/seacas/applications/blot/maksur.f | 3 +- packages/seacas/applications/blot/meshup.f | 8 ++--- packages/seacas/applications/blot/msdone.f | 3 +- packages/seacas/applications/blot/msflag.f | 15 ++------- packages/seacas/applications/blot/msgeom.f | 6 ++-- packages/seacas/applications/blot/mshcol.f | 16 ++------- packages/seacas/applications/blot/mshopt.blk | 2 +- packages/seacas/applications/blot/mslins.f | 3 +- packages/seacas/applications/blot/msscal.f | 10 ++---- packages/seacas/applications/blot/msstep.f | 15 +++------ packages/seacas/applications/blot/mxepn.f | 8 ++--- packages/seacas/applications/blot/neutr.blk | 2 +- packages/seacas/applications/blot/nodzom.blk | 2 +- packages/seacas/applications/blot/number.f | 8 ++--- packages/seacas/applications/blot/outlin.f | 13 +++----- packages/seacas/applications/blot/paint.f | 7 ++-- packages/seacas/applications/blot/paintf.f | 3 +- packages/seacas/applications/blot/pick2d.f | 5 +-- packages/seacas/applications/blot/pick3d.f | 5 +-- packages/seacas/applications/blot/pickn2.f | 5 +-- packages/seacas/applications/blot/pickn3.f | 5 +-- packages/seacas/applications/blot/picknp.f | 5 +-- packages/seacas/applications/blot/plshow.f | 10 ++---- packages/seacas/applications/blot/qepain.f | 7 ++-- packages/seacas/applications/blot/qnpick.f | 9 ++--- packages/seacas/applications/blot/qpaint.f | 7 ++-- packages/seacas/applications/blot/qsolid.f | 3 +- packages/seacas/applications/blot/rotopt.blk | 2 +- packages/seacas/applications/blot/scolor.f | 3 +- packages/seacas/applications/blot/setmod.f | 4 +-- packages/seacas/applications/blot/setup.f | 10 +++--- packages/seacas/applications/blot/setvw.f | 2 +- packages/seacas/applications/blot/solid.f | 3 +- packages/seacas/applications/blot/solidf.f | 4 +-- packages/seacas/applications/blot/sorlnk.f | 3 +- packages/seacas/applications/blot/sorlnx.f | 3 +- packages/seacas/applications/blot/surf2d.f | 3 +- packages/seacas/applications/blot/surf3d.f | 3 +- packages/seacas/applications/blot/symbol.f | 7 ++-- packages/seacas/applications/blot/tpvars.blk | 4 +-- packages/seacas/applications/blot/ugrcol.f | 13 ++------ packages/seacas/applications/blot/views.blk | 4 +-- packages/seacas/applications/blot/xyopt.blk | 2 +- .../seacas/applications/gen3d/g3_params.blk | 2 +- .../seacas/applications/gen3d/g3_xyzrot.blk | 2 +- .../applications/genshell/gs_xyzrot.blk | 2 +- .../seacas/applications/gjoin/gj_dbvars.blk | 6 ++-- .../seacas/applications/gjoin/gj_xyzrot.blk | 2 +- .../seacas/applications/grepos/gp_attrot.blk | 4 +-- .../seacas/applications/grepos/gp_combine.blk | 2 +- .../seacas/applications/grepos/gp_xyzrot.blk | 2 +- 102 files changed, 169 insertions(+), 431 deletions(-) diff --git a/packages/seacas/applications/algebra/ag_dbnumq.blk b/packages/seacas/applications/algebra/ag_dbnumq.blk index b7df9e0114..ebb3ab641b 100644 --- a/packages/seacas/applications/algebra/ag_dbnumq.blk +++ b/packages/seacas/applications/algebra/ag_dbnumq.blk @@ -3,7 +3,7 @@ C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /DBNUMQ/ EXODUS, NQAREC, NINFO + COMMON /DBNUMQ/ NQAREC, NINFO, EXODUS LOGICAL EXODUS C --EXODUS - true iff EXODUS versus GENESIS database C --NQAREC - the number of QA records diff --git a/packages/seacas/applications/algebra/ag_filter.blk b/packages/seacas/applications/algebra/ag_filter.blk index 1f6c42d718..04e3cf7f9c 100644 --- a/packages/seacas/applications/algebra/ag_filter.blk +++ b/packages/seacas/applications/algebra/ag_filter.blk @@ -3,7 +3,7 @@ C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /FILTER/ ISFILTER, IDXFLT, CMPFLT, VALFLT, TIMFLT + COMMON /FILTER/ IDXFLT, CMPFLT, VALFLT, TIMFLT, ISFILTER LOGICAL ISFILTER INTEGER IDXFLT INTEGER CMPFLT diff --git a/packages/seacas/applications/blot/allal2.f b/packages/seacas/applications/blot/allal2.f index 798e023749..094c230bc8 100644 --- a/packages/seacas/applications/blot/allal2.f +++ b/packages/seacas/applications/blot/allal2.f @@ -23,8 +23,7 @@ SUBROUTINE ALLAL2 (LENF, IF2EL, IE2ELB, NEWELB) C -- Uses NELBLK of /DBNUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK+2) INTEGER IF2EL(*) diff --git a/packages/seacas/applications/blot/allal3.f b/packages/seacas/applications/blot/allal3.f index 1aa53c696a..0dd4f69fdc 100644 --- a/packages/seacas/applications/blot/allal3.f +++ b/packages/seacas/applications/blot/allal3.f @@ -30,8 +30,7 @@ SUBROUTINE ALLAL3 (LENF, IF2EL, IF2EL2, IE2ELB, NEWELB) C -- Uses NELBLK of /DBNUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK+2) INTEGER IF2EL(*), IF2EL2(*) diff --git a/packages/seacas/applications/blot/allcut.f b/packages/seacas/applications/blot/allcut.f index 08e9c4e838..22549809ec 100644 --- a/packages/seacas/applications/blot/allcut.f +++ b/packages/seacas/applications/blot/allcut.f @@ -24,8 +24,7 @@ SUBROUTINE ALLCUT (IE2ELB, LENF, IF2EL, IF2EL2, NEWELB) C -- Uses NELBLK of /DBNUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER IE2ELB(NUMEL) INTEGER LENF(0:NELBLK+3) diff --git a/packages/seacas/applications/blot/cfv2nv.f b/packages/seacas/applications/blot/cfv2nv.f index 9d67042a93..2dae2cd076 100644 --- a/packages/seacas/applications/blot/cfv2nv.f +++ b/packages/seacas/applications/blot/cfv2nv.f @@ -36,8 +36,7 @@ SUBROUTINE CFV2NV (LENF, NLNKF, LINKF, IELBST, ISEVOK, VARFAC, C -- Uses NUMNPF, IS3DIM of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/ckcntr.f b/packages/seacas/applications/blot/ckcntr.f index 6b252b6e68..31f3ffd6bd 100644 --- a/packages/seacas/applications/blot/ckcntr.f +++ b/packages/seacas/applications/blot/ckcntr.f @@ -20,10 +20,6 @@ SUBROUTINE CKCNTR (OK) C -- Uses CINTOK, LINCON, NCNTR, CINTV of /CNTR/ include 'cntr.blk' -C FLAG FOR EXACT CONTOUR VALUES FOR EACH PLOT -C COMMON /CNTR/ CINTOK, LINCON, NCNTR, CMIN, CMAX, DELC, -C & CINTV(256), NOCMIN, NOCMAX, LABINC, MAXMIN, MAXMAX -C LOGICAL CINTOK, LINCON, NOCMIN, NOCMAX LOGICAL OK diff --git a/packages/seacas/applications/blot/cntri.f b/packages/seacas/applications/blot/cntri.f index e0a7a8c3b3..083e973d87 100644 --- a/packages/seacas/applications/blot/cntri.f +++ b/packages/seacas/applications/blot/cntri.f @@ -20,9 +20,7 @@ REAL FUNCTION CNTRI (ICNTR) C --Common Variables: C -- Uses CINTOK, CMIN, DELC, CINTV of /CNTR/ - COMMON /CNTR/ CINTOK, LINCON, NCNTR, CMIN, CMAX, DELC, - & CINTV(256), NOCMIN, NOCMAX, LABINC, MAXMIN, MAXMAX - LOGICAL CINTOK, LINCON, NOCMIN, NOCMAX + include 'cntr.blk' IF (.NOT. CINTOK) THEN CNTRI = CMIN + (ICNTR-1) * DELC diff --git a/packages/seacas/applications/blot/conlab.f b/packages/seacas/applications/blot/conlab.f index b3bc2a8bff..c8a00c2f99 100644 --- a/packages/seacas/applications/blot/conlab.f +++ b/packages/seacas/applications/blot/conlab.f @@ -35,8 +35,7 @@ SUBROUTINE CONLAB (ICNTR, CNTR, NHIT, LABINC, LINSET, PARAMETER (DXO = .0015, DYO = .0015) - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LINSET(3) REAL VARNP(*) diff --git a/packages/seacas/applications/blot/contf.f b/packages/seacas/applications/blot/contf.f index 577aac090e..f1e8bb2b56 100644 --- a/packages/seacas/applications/blot/contf.f +++ b/packages/seacas/applications/blot/contf.f @@ -32,8 +32,7 @@ SUBROUTINE CONTF (CNTR, VARNP, NLNKF, LINKF1, C --Common Variables: C -- Uses IS3DIM of /D3NUMS/ - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' REAL VARNP(*) INTEGER LINKF1(NLNKF) diff --git a/packages/seacas/applications/blot/contor.f b/packages/seacas/applications/blot/contor.f index affb65e626..0817d8a89a 100644 --- a/packages/seacas/applications/blot/contor.f +++ b/packages/seacas/applications/blot/contor.f @@ -54,11 +54,8 @@ SUBROUTINE CONTOR (VARNP, LENF, NLNKF, LINKF, HIDEF, C -- Uses NCNTR, LABINC, MAXMIN, MAXMAX of /CNTR/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /CNTR/ CINTOK, LINCON, NCNTR, CMIN, CMAX, DELC, - & CINTV(256), NOCMIN, NOCMAX, LABINC, MAXMIN, MAXMAX - LOGICAL CINTOK, LINCON, NOCMIN, NOCMAX + include 'd3nums.blk' + include 'cntr.blk' REAL VARNP(*) INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/d3nums.blk b/packages/seacas/applications/blot/d3nums.blk index f93cb39ee3..91e42ec1f4 100644 --- a/packages/seacas/applications/blot/d3nums.blk +++ b/packages/seacas/applications/blot/d3nums.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET + COMMON /D3NUMS/ NNPSUR, NUMNPF, LLNSET, IS3DIM LOGICAL IS3DIM C --IS3DIM - true if and only if 3D versus 2D mesh C --NNPSUR - the number of nodes in the surface faces diff --git a/packages/seacas/applications/blot/dbnumgq.blk b/packages/seacas/applications/blot/dbnumgq.blk index 804e2c588f..6db546c904 100644 --- a/packages/seacas/applications/blot/dbnumgq.blk +++ b/packages/seacas/applications/blot/dbnumgq.blk @@ -12,7 +12,7 @@ C -- LESSEL - the length of the side sets element list C -- LESSNL - the length of the side sets node list C -- LNPSDF - the length of the side set distribution list - COMMON /DBNUMQ/ EXODUS, NQAREC, NINFO + COMMON /DBNUMQ/ NQAREC, NINFO, EXODUS LOGICAL EXODUS C -- EXODUS - true iff EXODUS versus GENESIS database C -- NQAREC - the number of QA records diff --git a/packages/seacas/applications/blot/deadup.F b/packages/seacas/applications/blot/deadup.F index 9df8852cc3..494235c9f6 100644 --- a/packages/seacas/applications/blot/deadup.F +++ b/packages/seacas/applications/blot/deadup.F @@ -27,8 +27,7 @@ SUBROUTINE DEADUP (HIDENP, XN, YN, ZN, IDN2B, *) C -- Uses IS3DIM, NUMNPF of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' LOGICAL HIDENP(NUMNPF) REAL XN(NUMNPF), YN(NUMNPF), ZN(NUMNPF) diff --git a/packages/seacas/applications/blot/defxyz.f b/packages/seacas/applications/blot/defxyz.f index 84126917b1..c151bc372a 100644 --- a/packages/seacas/applications/blot/defxyz.f +++ b/packages/seacas/applications/blot/defxyz.f @@ -34,11 +34,8 @@ SUBROUTINE DEFXYZ (A, ISTEP, FACTOR, SURONL, NPSURF, C -- Sets IXDEF, IYDEF, IZDEF of /DEFORM/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /DEFORM/ DEFPRO, DEFOK, DEFFAC, DDFAC, DFAC, - & IXDEF, IYDEF, IZDEF - LOGICAL DEFPRO, DEFOK + include 'd3nums.blk' + include 'deform.blk' DIMENSION A(*) LOGICAL SURONL diff --git a/packages/seacas/applications/blot/dtread.f b/packages/seacas/applications/blot/dtread.f index 974eba65c9..dfeb85fed8 100644 --- a/packages/seacas/applications/blot/dtread.f +++ b/packages/seacas/applications/blot/dtread.f @@ -36,8 +36,7 @@ SUBROUTINE DTREAD (A, ISTEP, IDTVAR, NNDVAR, NEDVAR, C -- Uses NUMNP, NUMEL, NELBLK of /DBNUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' DIMENSION A(*) INTEGER IDTVAR(*) diff --git a/packages/seacas/applications/blot/elesta.f b/packages/seacas/applications/blot/elesta.f index ea176743bf..e5de562449 100644 --- a/packages/seacas/applications/blot/elesta.f +++ b/packages/seacas/applications/blot/elesta.f @@ -34,8 +34,7 @@ SUBROUTINE ELESTA (ISYTYP, VARFAC, LENF, NLNKF, LINKF, HIDEF, C -- Uses IS3DIM of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' CHARACTER*(*) ISYTYP REAL VARFAC(*) diff --git a/packages/seacas/applications/blot/epaint.f b/packages/seacas/applications/blot/epaint.f index 8286ed276a..6474764114 100644 --- a/packages/seacas/applications/blot/epaint.f +++ b/packages/seacas/applications/blot/epaint.f @@ -38,11 +38,8 @@ SUBROUTINE EPAINT (VARFAC, LENF, NLNKF, LINKF, NXFAC, IXFAC, C -- Uses NCNTR, NOCMIN, NOCMAX of /CNTR/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /CNTR/ CINTOK, LINCON, NCNTR, CMIN, CMAX, DELC, - & CINTV(256), NOCMIN, NOCMAX, LABINC, MAXMIN, MAXMAX - LOGICAL CINTOK, LINCON, NOCMIN, NOCMAX + include 'd3nums.blk' + include 'cntr.blk' REAL VARFAC(*) INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/fixal2.f b/packages/seacas/applications/blot/fixal2.f index 6cd1d89807..984f8c5cb5 100644 --- a/packages/seacas/applications/blot/fixal2.f +++ b/packages/seacas/applications/blot/fixal2.f @@ -25,8 +25,7 @@ SUBROUTINE FIXAL2 (ALIVE, LENF, IF2EL, IE2ELB, NEWELB) C -- Uses NELBLK of /DBNUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' LOGICAL ALIVE(NUMEL) INTEGER LENF(0:NELBLK+2) diff --git a/packages/seacas/applications/blot/fixal3.f b/packages/seacas/applications/blot/fixal3.f index 6bd9848233..a5ff46e4b2 100644 --- a/packages/seacas/applications/blot/fixal3.f +++ b/packages/seacas/applications/blot/fixal3.f @@ -36,8 +36,7 @@ SUBROUTINE FIXAL3 (ALIVE, LENF, IF2EL, IF2EL2, IE2ELB, NEWELB) C -- Uses NELBLK of /DBNUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' LOGICAL ALIVE(NUMEL) INTEGER LENF(0:NELBLK+2) diff --git a/packages/seacas/applications/blot/fixcut.f b/packages/seacas/applications/blot/fixcut.f index 3de89b87f2..90952e50ad 100644 --- a/packages/seacas/applications/blot/fixcut.f +++ b/packages/seacas/applications/blot/fixcut.f @@ -44,8 +44,7 @@ SUBROUTINE FIXCUT (CUTPT, CUTNRM, X, Y, Z, PARAMETER (ISIN = +1, ISOUT = -1, ISCUT = 0, ISON = -2, ISSURF=2) include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' REAL CUTPT(3), CUTNRM(3) REAL X(NUMNP), Y(NUMNP), Z(NUMNP) diff --git a/packages/seacas/applications/blot/fixelb.f b/packages/seacas/applications/blot/fixelb.f index e8c1d10c29..ca8ad0a164 100644 --- a/packages/seacas/applications/blot/fixelb.f +++ b/packages/seacas/applications/blot/fixelb.f @@ -26,8 +26,7 @@ SUBROUTINE FIXELB (IELBST, LENF, IF2EL, IF2EL2, IE2ELB, NEWELB) C -- Uses NELBLK of /DBNUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER IELBST(NELBLK) INTEGER LENF(0:NELBLK+4) diff --git a/packages/seacas/applications/blot/fndsel.f b/packages/seacas/applications/blot/fndsel.f index 6097593fc6..4f2ff3516f 100644 --- a/packages/seacas/applications/blot/fndsel.f +++ b/packages/seacas/applications/blot/fndsel.f @@ -34,8 +34,7 @@ SUBROUTINE FNDSEL (NODVAR, NNENUM, NENUM, C -- Uses NNPSUR, NUMNPF of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' LOGICAL NODVAR INTEGER NENUM(NNENUM) diff --git a/packages/seacas/applications/blot/gauss.f b/packages/seacas/applications/blot/gauss.f index ee4d809a54..9173acb092 100644 --- a/packages/seacas/applications/blot/gauss.f +++ b/packages/seacas/applications/blot/gauss.f @@ -39,10 +39,9 @@ SUBROUTINE GAUSS_BL (ISYTYP, VARFAC, LENF, NLNKF, LINKF, HIDEF, PARAMETER (KSCHSZ=2) include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /ETCOPT/ VECSCL - COMMON /DEVDAT/ DTW, VWSCL + include 'd3nums.blk' + include 'etcopt.blk' + include 'devdat.blk' CHARACTER*(*) ISYTYP INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/geom2d.f b/packages/seacas/applications/blot/geom2d.f index faf456c1a2..eb1b98c350 100644 --- a/packages/seacas/applications/blot/geom2d.f +++ b/packages/seacas/applications/blot/geom2d.f @@ -46,8 +46,7 @@ SUBROUTINE GEOM2D (LENF, NLNKF, LINKF, IF2EL, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/geom3d.f b/packages/seacas/applications/blot/geom3d.f index 476d73cae7..4a602af168 100644 --- a/packages/seacas/applications/blot/geom3d.f +++ b/packages/seacas/applications/blot/geom3d.f @@ -39,8 +39,7 @@ SUBROUTINE GEOM3D (LENF, NLNKF, LINKF, IF2EL, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/getdst.f b/packages/seacas/applications/blot/getdst.f index 6411daa453..820cae03ed 100644 --- a/packages/seacas/applications/blot/getdst.f +++ b/packages/seacas/applications/blot/getdst.f @@ -25,11 +25,9 @@ SUBROUTINE GETDST( NODE1, NODE2, XN, YN, ZN, DIST) C======================================================================= + include 'd3nums.blk' REAL XN(*), YN(*), ZN(*) - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - XDIST = XN(NODE2) - XN(NODE1) YDIST = YN(NODE2) - YN(NODE1) IF(IS3DIM) THEN diff --git a/packages/seacas/applications/blot/grcaln.f b/packages/seacas/applications/blot/grcaln.f index f89015a3b2..d88c1fab41 100644 --- a/packages/seacas/applications/blot/grcaln.f +++ b/packages/seacas/applications/blot/grcaln.f @@ -27,13 +27,7 @@ SUBROUTINE GRCALN (STRING, LSTR) C --Routines Called: C -- LENSTR - (STRLIB) Find string length - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' CHARACTER*(*) STRING diff --git a/packages/seacas/applications/blot/grcolr.f b/packages/seacas/applications/blot/grcolr.f index 896c5b525f..e9ffe531d3 100644 --- a/packages/seacas/applications/blot/grcolr.f +++ b/packages/seacas/applications/blot/grcolr.f @@ -37,15 +37,7 @@ SUBROUTINE GRCOLR (INDX) PARAMETER (KCOLIN=6, KCOSYM=44) include 'params.blk' include 'cmap-lst.blk' - - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL - + include 'grpcom.blk' include 'grcol.blk' INTEGER INDX diff --git a/packages/seacas/applications/blot/grcolu.f b/packages/seacas/applications/blot/grcolu.f index 2ea1f59549..fca5598647 100644 --- a/packages/seacas/applications/blot/grcolu.f +++ b/packages/seacas/applications/blot/grcolu.f @@ -22,13 +22,7 @@ SUBROUTINE GRCOLU (MAP) C -- Uses DEVOK, ICURDV, NUMCOL, MAPALT of /GRPCOM/ C -- Sets MAPUSE of /GRPCOM/ - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' CHARACTER*(*) MAP diff --git a/packages/seacas/applications/blot/grexit.f b/packages/seacas/applications/blot/grexit.f index 120cb1b419..d8615e7ff6 100644 --- a/packages/seacas/applications/blot/grexit.f +++ b/packages/seacas/applications/blot/grexit.f @@ -22,13 +22,7 @@ SUBROUTINE GREXIT PARAMETER (KDVDI=10000) - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' IF (DEVOK(1)) CALL GRSNAP ('EXIT', 1) IF (DEVOK(2)) CALL GRSNAP ('EXIT', 2) diff --git a/packages/seacas/applications/blot/grgpar.f b/packages/seacas/applications/blot/grgpar.f index 96eaced6a1..a951f252a8 100644 --- a/packages/seacas/applications/blot/grgpar.f +++ b/packages/seacas/applications/blot/grgpar.f @@ -46,13 +46,7 @@ SUBROUTINE GRGPAR (PARTYP, INDEV, IPARMS, IPSTR) C -- Uses ICURDV, DEVOK, DEVNAM, NSNAP, IFONT, SOFTCH, AUTOPL, C -- MAXCOL, NUMCOL, MAPALT of /GRPCOM/ - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' CHARACTER*(*) PARTYP INTEGER INDEV diff --git a/packages/seacas/applications/blot/grgpard.f b/packages/seacas/applications/blot/grgpard.f index 2f1617d38e..055be8d4c0 100644 --- a/packages/seacas/applications/blot/grgpard.f +++ b/packages/seacas/applications/blot/grgpard.f @@ -10,13 +10,7 @@ SUBROUTINE GRGPARD (PARTYP, INDEV, IPARMS, IPSTR) C .. Same as GRGPAR, but only handles 'DEVICE' and 'SOFTCHAR'for PARTYP C .. this is to avoid issues with passing logical or integer for `iparms` - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' CHARACTER*(*) PARTYP INTEGER INDEV diff --git a/packages/seacas/applications/blot/grinit.f b/packages/seacas/applications/blot/grinit.f index 0a20cd993a..9762e58ec6 100644 --- a/packages/seacas/applications/blot/grinit.f +++ b/packages/seacas/applications/blot/grinit.f @@ -40,38 +40,7 @@ SUBROUTINE GRINIT (DBORD0, CHLSIZ) PARAMETER (KDVDI=10000) PARAMETER (KHCHSZ=1, KSCHSZ=2, KCHLSZ=6) - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL -C --For all device-dependent parameters: -C -- (1) terminal, (2) hardcopy (file) -C --ICURDV - the selected device number (1 or 2) -C --ISHARD - true iff a single hardcopy plot is being done -C --DEVNAM - the device name -C --DEVOK - true iff the device is defined -C --DEVCOD - a code associated with a class of devices: -C -- DICOMED = Dicomed -C -- CAMERA = Raster Tech with video -C -- WAIT = TK4 or any device that requires a wait after graph drawn -C -- = other -C --TALKOK - true iff interactive graphics device -C --NSNAP - the number of frames to snap for the device -C --IFONT - font (1=stick, 2=sanserif, 3=Roman) -C --SOFTCH - true iff software characters are to be used -C --AUTOPL - true iff automatic plotting (no response requested at end) -C --MAXCOL - the maximum number of colors available on the graphics device -C -- (excluding black and white) -C --NUMCOL - the number of colors to be used (excluding black and white) -C -- (0,x) - on standard rainbow -C -- (1,x) - on alternate color map -C --MAPALT - the alternate color map type: -C -- 0 = standard rainbow (no alternate) -C -- 1 = spectrum -C --MAPUSE - the color map type to use (as in MAPALT) + include 'grpcom.blk' REAL DBORD0(KTOP) REAL CHLSIZ diff --git a/packages/seacas/applications/blot/grlwid.f b/packages/seacas/applications/blot/grlwid.f index df35d5b177..947da77db5 100644 --- a/packages/seacas/applications/blot/grlwid.f +++ b/packages/seacas/applications/blot/grlwid.f @@ -38,13 +38,7 @@ SUBROUTINE GRLWID PARAMETER (KTXTSZ=11) PARAMETER (KLINSZ=2) - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' LOGICAL LDUM, PLTGTT, PLTSTT, PLTGTG, PLTSTG, PLTGTV, PLTSTV diff --git a/packages/seacas/applications/blot/grpcom.blk b/packages/seacas/applications/blot/grpcom.blk index f8a2dd28cd..e1da60206b 100644 --- a/packages/seacas/applications/blot/grpcom.blk +++ b/packages/seacas/applications/blot/grpcom.blk @@ -7,7 +7,34 @@ C See packages/seacas/LICENSE for details COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) CHARACTER*3 DEVNAM CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) + COMMON /GRPCOM/ ICURDV, + & NSNAP(2), IFONT(2), + & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2), + & ISHARD, DEVOK(2), TALKOK(2), SOFTCH(2), AUTOPL(2) LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + +C --For all device-dependent parameters: +C -- (1) terminal, (2) hardcopy (file) +C --ICURDV - the selected device number (1 or 2) +C --ISHARD - true iff a single hardcopy plot is being done +C --DEVNAM - the device name +C --DEVOK - true iff the device is defined +C --DEVCOD - a code associated with a class of devices: +C -- DICOMED = Dicomed +C -- CAMERA = Raster Tech with video +C -- WAIT = TK4 or any device that requires a wait after graph drawn +C -- = other +C --TALKOK - true iff interactive graphics device +C --NSNAP - the number of frames to snap for the device +C --IFONT - font (1=stick, 2=sanserif, 3=Roman) +C --SOFTCH - true iff software characters are to be used +C --AUTOPL - true iff automatic plotting (no response requested at end) +C --MAXCOL - the maximum number of colors available on the graphics device +C -- (excluding black and white) +C --NUMCOL - the number of colors to be used (excluding black and white) +C -- (0,x) - on standard rainbow +C -- (1,x) - on alternate color map +C --MAPALT - the alternate color map type: +C -- 0 = standard rainbow (no alternate) +C -- 1 = spectrum +C --MAPUSE - the color map type to use (as in MAPALT) diff --git a/packages/seacas/applications/blot/grpend.f b/packages/seacas/applications/blot/grpend.f index bd5578d89e..6241ed0692 100644 --- a/packages/seacas/applications/blot/grpend.f +++ b/packages/seacas/applications/blot/grpend.f @@ -56,13 +56,7 @@ SUBROUTINE GRPEND (MAYQUI, MAYTXT, NDONE, NTOTAL, GOBCK, *, *) PARAMETER (MXTEXT = 80) - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' LOGICAL MAYQUI, MAYTXT, GOBCK diff --git a/packages/seacas/applications/blot/grsdev.f b/packages/seacas/applications/blot/grsdev.f index c8033d11b4..496dff28b0 100644 --- a/packages/seacas/applications/blot/grsdev.f +++ b/packages/seacas/applications/blot/grsdev.f @@ -26,13 +26,7 @@ SUBROUTINE GRSDEV (INDEV) PARAMETER (KDVDI=10000) - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' C --If the device number is not given, choose the first available device IF ((INDEV .NE. 1) .AND. (INDEV .NE. 2)) THEN diff --git a/packages/seacas/applications/blot/grsnap.f b/packages/seacas/applications/blot/grsnap.f index 65612b8280..2f95bdf869 100644 --- a/packages/seacas/applications/blot/grsnap.f +++ b/packages/seacas/applications/blot/grsnap.f @@ -37,13 +37,7 @@ SUBROUTINE GRSNAP (CMD, INDEV) C --Routines Called: C -- VDESCP - (VDI) Send escape sequence to device - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' CHARACTER*(*) CMD INTEGER INDEV diff --git a/packages/seacas/applications/blot/grspar.f b/packages/seacas/applications/blot/grspar.f index 9e66fea22d..cb83ffda98 100644 --- a/packages/seacas/applications/blot/grspar.f +++ b/packages/seacas/applications/blot/grspar.f @@ -43,13 +43,7 @@ SUBROUTINE GRSPAR (PARTYP, INDEV, IPARM, ERRMSG) C -- GRFONT - (GRPLIB) Set font C -- GRCOLT - (GRPLIB) Set color table - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' CHARACTER*(*) PARTYP CHARACTER*(*) ERRMSG diff --git a/packages/seacas/applications/blot/grtexc.f b/packages/seacas/applications/blot/grtexc.f index 4ad498d98c..7b3b4e7339 100644 --- a/packages/seacas/applications/blot/grtexc.f +++ b/packages/seacas/applications/blot/grtexc.f @@ -29,13 +29,7 @@ SUBROUTINE GRTEXC (DX, DY, STRING) C -- PLTXTL - (PLTLIB) Find the hardware string length C -- LENSTR - (STRLIB) Find string length - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' REAL DX, DY CHARACTER*(*) STRING diff --git a/packages/seacas/applications/blot/grtext.f b/packages/seacas/applications/blot/grtext.f index 611ca5a0a7..66ac6b7015 100644 --- a/packages/seacas/applications/blot/grtext.f +++ b/packages/seacas/applications/blot/grtext.f @@ -27,13 +27,7 @@ SUBROUTINE GRTEXT (DX, DY, STRING) C -- PLTXTS - (PLTLIB) Display a software string C -- LENSTR - (STRLIB) Find string length - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' REAL DX, DY CHARACTER*(*) STRING diff --git a/packages/seacas/applications/blot/hidedg.f b/packages/seacas/applications/blot/hidedg.f index 0e3a34d22c..2f674d7880 100644 --- a/packages/seacas/applications/blot/hidedg.f +++ b/packages/seacas/applications/blot/hidedg.f @@ -46,8 +46,7 @@ SUBROUTINE HIDEDG (HIDEF, HIDENP, LENF, NLNKE, NLNKF, LINKF, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER HIDEF(*) INTEGER HIDENP(*) diff --git a/packages/seacas/applications/blot/hidnod.f b/packages/seacas/applications/blot/hidnod.f index 2f4bb97d77..5fb363e047 100644 --- a/packages/seacas/applications/blot/hidnod.f +++ b/packages/seacas/applications/blot/hidnod.f @@ -37,8 +37,7 @@ SUBROUTINE HIDNOD (NLNKF, LINKF1, XN, YN, ZN, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LINKF1(NLNKF) REAL XN(*), YN(*), ZN(*) diff --git a/packages/seacas/applications/blot/hidzm.f b/packages/seacas/applications/blot/hidzm.f index 5979f6ff92..47eef1c1be 100644 --- a/packages/seacas/applications/blot/hidzm.f +++ b/packages/seacas/applications/blot/hidzm.f @@ -39,8 +39,7 @@ SUBROUTINE HIDZM (ZOOM, XZMMIN, XZMMAX, YZMMIN, YZMMAX, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' LOGICAL ZOOM INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/idedge.f b/packages/seacas/applications/blot/idedge.f index e0720a26db..d8296f7ec5 100644 --- a/packages/seacas/applications/blot/idedge.f +++ b/packages/seacas/applications/blot/idedge.f @@ -26,12 +26,8 @@ SUBROUTINE IDEDGE (IEDSET, NEDGES, HIDENP, LINSET, LENL, IXLIN, PARAMETER (KNVIS=0, KNFOVR=10, KNHID=100) - common /debugc/ cdebug - common /debugn/ idebug - character*8 cdebug - - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'debug.blk' + include 'd3nums.blk' INTEGER IEDSET(0:2,*) INTEGER HIDENP(*) diff --git a/packages/seacas/applications/blot/inpick.f b/packages/seacas/applications/blot/inpick.f index 6b8592f2d8..97ef3b4c52 100644 --- a/packages/seacas/applications/blot/inpick.f +++ b/packages/seacas/applications/blot/inpick.f @@ -30,18 +30,10 @@ SUBROUTINE INPICK (TYPE) PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /PICK/ INITP, PKDEF, - & PKMESH(KTOP), PKRMAT(3,3), PKRCEN(3), - & DMESH(KTOP), DVRAT, DXMID, DYMID, DXLAST, DYLAST - LOGICAL INITP, PKDEF - - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /MSHLIM/ UNMESH(KFAR), ALMESH(KFAR), - & ZMMESH(KTOP), RDMESH(KTOP), TICMSH, SQMESH - LOGICAL SQMESH - COMMON /ROTOPT/ NEWROT, ROTMAT(3,3), ROTCEN(3), EYE(3) - LOGICAL NEWROT + include 'pick.blk' + include 'd3nums.blk' + include 'mshlim.blk' + include 'rotopt.blk' CHARACTER*(*) TYPE diff --git a/packages/seacas/applications/blot/linthk.f b/packages/seacas/applications/blot/linthk.f index 97ea08d9ee..6f1c9872d7 100644 --- a/packages/seacas/applications/blot/linthk.f +++ b/packages/seacas/applications/blot/linthk.f @@ -32,18 +32,7 @@ SUBROUTINE LINTHK (INLINE, IFLD, INTYP, IFIELD, RFIELD, CFIELD, REAL TKSPCR CHARACTER*8 TKSPCC, TKSPCF - COMMON /LINTHC/ MSHBND, BLKBND, ELEBND, THKNSS - REAL MSHBND, BLKBND, ELEBND -C -- Line thickness specification for lines appearing -C -- on mesh plots. Specification is a real value in the -C -- range 0. - 1000., with 0. being the thinest line and -C -- 1000. being the thickest. -C -- MSHBND - Thickness of lines forming the mesh boundary. -C -- BLKBND - Thickness of lines forming element block boundaries. -C -- ELEBND - Thickness of lines forming element boundaries. - REAL THKNSS(3) -C -- Line thickness specifications for THICK, MEDIUM, -C -- and THIN keywords. + include 'linthc.blk' REAL THKRES(3) CHARACTER*8 LINLST(5) diff --git a/packages/seacas/applications/blot/makd2b.f b/packages/seacas/applications/blot/makd2b.f index aab30b1f58..7a7357a1e7 100644 --- a/packages/seacas/applications/blot/makd2b.f +++ b/packages/seacas/applications/blot/makd2b.f @@ -32,8 +32,7 @@ SUBROUTINE MAKD2B (LENF, NLNKF, LINKF, IELBST, C -- Uses IS3DIM, NUMNPF of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK+2) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/makn2b.f b/packages/seacas/applications/blot/makn2b.f index 349b2fe541..19bb63911a 100644 --- a/packages/seacas/applications/blot/makn2b.f +++ b/packages/seacas/applications/blot/makn2b.f @@ -31,8 +31,7 @@ SUBROUTINE MAKN2B (LENF, NLNKF, LINKF, IELBST, IN2ELB) C -- Uses IS3DIM, NUMNPF of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK+2) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/maksu2.f b/packages/seacas/applications/blot/maksu2.f index 1e1d09a803..cc9ebbd253 100644 --- a/packages/seacas/applications/blot/maksu2.f +++ b/packages/seacas/applications/blot/maksu2.f @@ -29,8 +29,7 @@ SUBROUTINE MAKSU2 (LENL, LINSET, MAXMSH, DODEAD, IDN2B, NPSURF) PARAMETER (MSHNON=0, MSHBOR=1, MSHDIV=2, MSHSEL=3, MSHALL=4) include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENL(-2:NELBLK), LINSET(LLNSET,*) LOGICAL DODEAD diff --git a/packages/seacas/applications/blot/maksur.f b/packages/seacas/applications/blot/maksur.f index 9f173eda7a..4441391152 100644 --- a/packages/seacas/applications/blot/maksur.f +++ b/packages/seacas/applications/blot/maksur.f @@ -26,8 +26,7 @@ SUBROUTINE MAKSUR (LENF, NLNKF, LINKF, DODEAD, IDN2B, NPSURF) C -- Sets NNPSUR, NUMNPF of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK+2) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/meshup.f b/packages/seacas/applications/blot/meshup.f index d1a9b9442d..3d5b703057 100644 --- a/packages/seacas/applications/blot/meshup.f +++ b/packages/seacas/applications/blot/meshup.f @@ -60,12 +60,8 @@ SUBROUTINE MESHUP (WIDLIN, MSHLIN, MLNTYP, PARAMETER (MSHNON=0, MSHBOR=1, MSHDIV=2, MSHSEL=3, MSHALL=4) include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - - common /debugc/ cdebug - common /debugn/ idebug - character*8 cdebug + include 'd3nums.blk' + include 'debug.blk' LOGICAL WIDLIN INTEGER MLNTYP(-1:1) diff --git a/packages/seacas/applications/blot/msdone.f b/packages/seacas/applications/blot/msdone.f index 3a34ca173c..2ae173bab8 100644 --- a/packages/seacas/applications/blot/msdone.f +++ b/packages/seacas/applications/blot/msdone.f @@ -28,8 +28,7 @@ SUBROUTINE MSDONE (ANYDEF, ANYUND, C -- DONPS - IN - true iff node set information is needed C -- DOESS - IN - true iff side set information is needed - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' LOGICAL ANYDEF, ANYUND LOGICAL DOIXF, DON2B, DOELED, DOELEU, DODEAD, DONPS, DOESS diff --git a/packages/seacas/applications/blot/msflag.f b/packages/seacas/applications/blot/msflag.f index 9c3891a238..caded64a5c 100644 --- a/packages/seacas/applications/blot/msflag.f +++ b/packages/seacas/applications/blot/msflag.f @@ -43,19 +43,10 @@ SUBROUTINE MSFLAG (ANYDEF, ANYUND, PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /DEFORM/ DEFPRO, DEFOK, DEFFAC, DDFAC, DFAC, - & IXDEF, IYDEF, IZDEF - LOGICAL DEFPRO, DEFOK - + include 'd3nums.blk' + include 'deform.blk' include 'mshopt.blk' - - COMMON /MSHLIM/ UNMESH(KFAR), ALMESH(KFAR), - & ZMMESH(KTOP), RDMESH(KTOP), TICMSH, SQMESH - LOGICAL SQMESH - COMMON /MSHLIC/ MSCTYP - CHARACTER*8 MSCTYP + include 'mshlim.blk' LOGICAL ANYDEF, ANYUND LOGICAL DOIXF, DON2B, DOELED, DOELEU, DODEAD, DONPS, DOESS, DOSCAL diff --git a/packages/seacas/applications/blot/msgeom.f b/packages/seacas/applications/blot/msgeom.f index db99347649..e6532d63b9 100644 --- a/packages/seacas/applications/blot/msgeom.f +++ b/packages/seacas/applications/blot/msgeom.f @@ -66,10 +66,8 @@ SUBROUTINE MSGEOM (A, CURPRO, ISTEP, include 'dbnums.blk' include 'd3nums.blk' include 'mshopt.blk' - COMMON /ROTOPT/ NEWROT, ROTMAT(3,3), ROTCEN(3), EYE(3) - LOGICAL NEWROT - COMMON /CUTOPT/ NEWCUT, ISCUT, CUTPT(3), CUTNRM(3) - LOGICAL NEWCUT, ISCUT + include 'rotopt.blk' + include 'cutopt.blk' DIMENSION A(*) CHARACTER*(*) CURPRO diff --git a/packages/seacas/applications/blot/mshcol.f b/packages/seacas/applications/blot/mshcol.f index b020a53cbc..25edee6dac 100644 --- a/packages/seacas/applications/blot/mshcol.f +++ b/packages/seacas/applications/blot/mshcol.f @@ -52,20 +52,8 @@ SUBROUTINE MSHCOL (FNCT, IELB, MLNTYP, WIDLIN, BLKCOL, PARAMETER (KWIDLN=2) include 'dbnums.blk' - - COMMON /LINTHC/ MSHBND, BLKBND, ELEBND, THKNSS - REAL MSHBND, BLKBND, ELEBND -C -- Line thickness specification for lines appearing -C -- on mesh plots. Specification is a real value in the -C -- range 0. - 1000., with 0. being the thinest line and -C -- 1000. being the thickest. -C -- MSHBND - Thickness of lines forming the mesh boundary. -C -- BLKBND - Thickness of lines forming element block boundaries. -C -- ELEBND - Thickness of lines forming element boundaries. - REAL THKNSS(3) -C -- Line thickness specifications for THICK, MEDIUM, -C -- and THIN keywords. - + include 'linthc.blk' + CHARACTER*(*) FNCT INTEGER MLNTYP(-1:1) LOGICAL WIDLIN diff --git a/packages/seacas/applications/blot/mshopt.blk b/packages/seacas/applications/blot/mshopt.blk index 27cbedb85c..975c742018 100644 --- a/packages/seacas/applications/blot/mshopt.blk +++ b/packages/seacas/applications/blot/mshopt.blk @@ -5,7 +5,7 @@ C C See packages/seacas/LICENSE for details COMMON /MSHOPT/ MSHLIN(4), MLNTYP(-1:1,4), NNPSET(4), NESSET(4), - & IHIDOP, NALVAR, DEADNP, ALIVAL + & IHIDOP, NALVAR, ALIVAL, DEADNP LOGICAL DEADNP COMMON /MSHOPC/ MSHDEF(4), MSHNUM(4) CHARACTER*8 MSHDEF, MSHNUM diff --git a/packages/seacas/applications/blot/mslins.f b/packages/seacas/applications/blot/mslins.f index fc75df8203..73e2c8ed7a 100644 --- a/packages/seacas/applications/blot/mslins.f +++ b/packages/seacas/applications/blot/mslins.f @@ -32,8 +32,7 @@ SUBROUTINE MSLINS (A, LENF, NLNKF, LINKF, IF2EL, LENL, KLNSET) C -- Uses IS3DIM, NUMNPF of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' DIMENSION A(*) INTEGER LENF(0:*) diff --git a/packages/seacas/applications/blot/msscal.f b/packages/seacas/applications/blot/msscal.f index ee7dfe555b..7c451c6203 100644 --- a/packages/seacas/applications/blot/msscal.f +++ b/packages/seacas/applications/blot/msscal.f @@ -29,14 +29,8 @@ SUBROUTINE MSSCAL (DOSCAL, NNPSEL, NPSEL, XN, YN, ZN) PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) include 'mshopt.blk' - COMMON /VIEWS/ MULTIM, - & XISSYM, YISSYM, XAXSYM, YAXSYM, LFTSYM, BOTSYM - LOGICAL MULTIM, XISSYM, YISSYM, LFTSYM, BOTSYM - COMMON /MSHLIM/ UNMESH(KFAR), ALMESH(KFAR), - & ZMMESH(KTOP), RDMESH(KTOP), TICMSH, SQMESH - LOGICAL SQMESH - COMMON /MSHLIC/ MSCTYP - CHARACTER*8 MSCTYP + include 'views.blk' + include 'mshlim.blk' LOGICAL DOSCAL, INHBF SAVE INHBF diff --git a/packages/seacas/applications/blot/msstep.f b/packages/seacas/applications/blot/msstep.f index cd2d64709d..a8a58625c2 100644 --- a/packages/seacas/applications/blot/msstep.f +++ b/packages/seacas/applications/blot/msstep.f @@ -89,17 +89,10 @@ SUBROUTINE MSSTEP (A, ISTEP, NEWSET, NEWFAC, ANYDEF, ANYUND, C -- Uses ROTMAT, ROTCEN of /ROTOPT/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /DEFORM/ DEFPRO, DEFOK, DEFFAC, DDFAC, DFAC, - & IXDEF, IYDEF, IZDEF - LOGICAL DEFPRO, DEFOK - COMMON /ROTOPT/ NEWROT, ROTMAT(3,3), ROTCEN(3), EYE(3) - LOGICAL NEWROT - - COMMON /SIZES/ NPSIZ -C --NPSIZ - the size of the nodal coordinate arrays passed to the -C -- HIDDEN routine for partial line + include 'd3nums.blk' + include 'deform.blk' + include 'rotopt.blk' + include 'sizes.blk' DIMENSION A(*) LOGICAL NEWSET, NEWFAC diff --git a/packages/seacas/applications/blot/mxepn.f b/packages/seacas/applications/blot/mxepn.f index 3d51ccbfb1..239f0cdf52 100644 --- a/packages/seacas/applications/blot/mxepn.f +++ b/packages/seacas/applications/blot/mxepn.f @@ -22,13 +22,9 @@ SUBROUTINE MXEPN (NUME, NLNKE, LINKE, NFPN) C --Common Variables: C -- Uses NUMNP of /DBNUMS/ - common /debugc/ cdebug - common /debugn/ idebug - character*8 cdebug - + include 'debug.blk' include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LINKE(NLNKE,NUME) INTEGER NFPN(0:NUMNP) diff --git a/packages/seacas/applications/blot/neutr.blk b/packages/seacas/applications/blot/neutr.blk index 252594561f..e2b3e64389 100644 --- a/packages/seacas/applications/blot/neutr.blk +++ b/packages/seacas/applications/blot/neutr.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /NEUTR/ NEU, NEUOPN, NUMCRV, INCCRV, NEUGRF, GRFOPN + COMMON /NEUTR/ NEU, NUMCRV, INCCRV, NEUGRF, NEUOPN, GRFOPN LOGICAL NEUOPN, GRFOPN COMMON /NEUTRC/ CRVNAM CHARACTER*8 CRVNAM diff --git a/packages/seacas/applications/blot/nodzom.blk b/packages/seacas/applications/blot/nodzom.blk index f11a921e01..cf53ca948b 100644 --- a/packages/seacas/applications/blot/nodzom.blk +++ b/packages/seacas/applications/blot/nodzom.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON / NODZOM / NZMON, XZM, YZM, ZZM, RADZM, NODEZM + COMMON / NODZOM / XZM, YZM, ZZM, RADZM, NODEZM, NZMON LOGICAL NZMON C --NZMON - if true, node based zoom is enabled C --XZM - x location for desired zoom window diff --git a/packages/seacas/applications/blot/number.f b/packages/seacas/applications/blot/number.f index c4101e0239..d46b744c16 100644 --- a/packages/seacas/applications/blot/number.f +++ b/packages/seacas/applications/blot/number.f @@ -62,13 +62,9 @@ SUBROUTINE NUMBER (NUMTYP, LENF, NLNKF, IX2NP, IF2EL, PARAMETER (KHCHSZ=1, KSCHSZ=2) - common /debugc/ cdebug - common /debugn/ idebug - character*8 cdebug - + include 'debug.blk' include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' CHARACTER*(*) NUMTYP INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/outlin.f b/packages/seacas/applications/blot/outlin.f index 6267458710..a8a1f00cf0 100644 --- a/packages/seacas/applications/blot/outlin.f +++ b/packages/seacas/applications/blot/outlin.f @@ -41,15 +41,10 @@ SUBROUTINE OUTLIN (BLKCOL, *) PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4) include 'dbnums.blk' - COMMON /MSHOPC/ MSHDEF(4), MSHNUM(4) - CHARACTER*8 MSHDEF, MSHNUM - COMMON /VIEWS/ MULTIM, - & XISSYM, YISSYM, XAXSYM, YAXSYM, LFTSYM, BOTSYM - LOGICAL MULTIM, XISSYM, YISSYM, LFTSYM, BOTSYM - COMMON /LAYOUD/ DVIEW(KTOP,4), WVIEW(KTOP,4) - - COMMON /LEGOPT/ DOQA(2), DOLEG(2), DOAXIS(2), DOBOX - LOGICAL DOQA, DOLEG, DOAXIS, DOBOX + include 'mshopt.blk' + include 'views.blk' + include 'layoud.blk' + include 'legopt.blk' INTEGER BLKCOL(0:NELBLK) diff --git a/packages/seacas/applications/blot/paint.f b/packages/seacas/applications/blot/paint.f index 3dcb830065..4360d83f04 100644 --- a/packages/seacas/applications/blot/paint.f +++ b/packages/seacas/applications/blot/paint.f @@ -44,11 +44,8 @@ SUBROUTINE PAINT (VARNP, LENF, NLNKF, LINKF, NXFAC, IXFAC, C -- Uses NCNTR, NOCMIN, NOCMAX of /CNTR/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /CNTR/ CINTOK, LINCON, NCNTR, CMIN, CMAX, DELC, - & CINTV(256), NOCMIN, NOCMAX, LABINC, MAXMIN, MAXMAX - LOGICAL CINTOK, LINCON, NOCMIN, NOCMAX + include 'd3nums.blk' + include 'cntr.blk' REAL VARNP(*) INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/paintf.f b/packages/seacas/applications/blot/paintf.f index 21336b810e..c5ed235fd6 100644 --- a/packages/seacas/applications/blot/paintf.f +++ b/packages/seacas/applications/blot/paintf.f @@ -35,8 +35,7 @@ SUBROUTINE PAINTF (CNTR0, CNTR1, VARNP, NLNKF, LINKF1, PARAMETER (KDONE=0, KERR1=-1, KERR2=-2, KERR3=-3, & KCORNR=1, KISIDE=2, KMIDDL=3, KOSIDE=4, KFINDS=5) - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' REAL VARNP(*) INTEGER LINKF1(NLNKF) diff --git a/packages/seacas/applications/blot/pick2d.f b/packages/seacas/applications/blot/pick2d.f index a8e3822096..a017950f6b 100644 --- a/packages/seacas/applications/blot/pick2d.f +++ b/packages/seacas/applications/blot/pick2d.f @@ -36,10 +36,7 @@ SUBROUTINE PICK2D (PROMPT, CURSOR, MIDDEF, IFLD, INTYP, RFIELD, PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /PICK/ INITP, PKDEF, - & PKMESH(KTOP), PKRMAT(3,3), PKRCEN(3), - & DMESH(KTOP), DVRAT, DXMID, DYMID, DXLAST, DYLAST - LOGICAL INITP, PKDEF + include 'pick.blk' CHARACTER*(*) PROMPT LOGICAL CURSOR diff --git a/packages/seacas/applications/blot/pick3d.f b/packages/seacas/applications/blot/pick3d.f index c4bdcafa38..3f364bbfd8 100644 --- a/packages/seacas/applications/blot/pick3d.f +++ b/packages/seacas/applications/blot/pick3d.f @@ -44,10 +44,7 @@ SUBROUTINE PICK3D (PROMPT, CURSOR, PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /PICK/ INITP, PKDEF, - & PKMESH(KTOP), PKRMAT(3,3), PKRCEN(3), - & DMESH(KTOP), DVRAT, DXMID, DYMID, DXLAST, DYLAST - LOGICAL INITP, PKDEF + include 'pick.blk' CHARACTER*(*) PROMPT LOGICAL CURSOR diff --git a/packages/seacas/applications/blot/pickn2.f b/packages/seacas/applications/blot/pickn2.f index bcc8382f5b..04780bdc5a 100644 --- a/packages/seacas/applications/blot/pickn2.f +++ b/packages/seacas/applications/blot/pickn2.f @@ -32,10 +32,7 @@ SUBROUTINE PICKN2 (PROMPT, NUMNPF, XN, YN, MIDDEF, NDRES, *) DIMENSION XN(*), YN(*) PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /PICK/ INITP, PKDEF, - & PKMESH(KTOP), PKRMAT(3,3), PKRCEN(3), - & DMESH(KTOP), DVRAT, DXMID, DYMID, DXLAST, DYLAST - LOGICAL INITP, PKDEF + include 'pick.blk' CHARACTER*(*) PROMPT LOGICAL MIDDEF diff --git a/packages/seacas/applications/blot/pickn3.f b/packages/seacas/applications/blot/pickn3.f index 2ce5f5e72c..81c23ab0f8 100644 --- a/packages/seacas/applications/blot/pickn3.f +++ b/packages/seacas/applications/blot/pickn3.f @@ -33,10 +33,7 @@ SUBROUTINE PICKN3 (PROMPT, NUMNPF, XN, YN, ZN, HIDENP, PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /PICK/ INITP, PKDEF, - & PKMESH(KTOP), PKRMAT(3,3), PKRCEN(3), - & DMESH(KTOP), DVRAT, DXMID, DYMID, DXLAST, DYLAST - LOGICAL INITP, PKDEF + include 'pick.blk' CHARACTER*(*) PROMPT REAL XN(*), YN(*), ZN(*) diff --git a/packages/seacas/applications/blot/picknp.f b/packages/seacas/applications/blot/picknp.f index 619d88c01f..f3f879c66c 100644 --- a/packages/seacas/applications/blot/picknp.f +++ b/packages/seacas/applications/blot/picknp.f @@ -44,10 +44,7 @@ SUBROUTINE PICKNP (PROMPT, CURSOR, WINDOW, PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /PICK/ INITP, PKDEF, - & PKMESH(KTOP), PKRMAT(3,3), PKRCEN(3), - & DMESH(KTOP), DVRAT, DXMID, DYMID, DXLAST, DYLAST - LOGICAL INITP, PKDEF + include 'pick.blk' CHARACTER*(*) PROMPT LOGICAL CURSOR diff --git a/packages/seacas/applications/blot/plshow.f b/packages/seacas/applications/blot/plshow.f index b66f63fb4b..4c88f6f291 100644 --- a/packages/seacas/applications/blot/plshow.f +++ b/packages/seacas/applications/blot/plshow.f @@ -46,14 +46,8 @@ SUBROUTINE PLSHOW (SHOTYP, XYTYPE, MESHOK, TIMES, WHOTIM, IPTIMS) C -- Uses DOQA, DOLEG, DOAXIS, CAPTN of /LEGOPT/ C -- Uses NPTIMS, TMIN, TMAX, DELT, NINTV of /TIMES/ - COMMON /LEGOPT/ DOQA(2), DOLEG(2), DOAXIS(2), DOBOX - LOGICAL DOQA, DOLEG, DOAXIS, DOBOX - COMMON /LEGOPC/ CAPTN(3,2) - CHARACTER*80 CAPTN - COMMON /TIMES/ NPTIMS, NPTIMW, TMIN, TMAX, DELT, NINTV, - & NTIMIN, WHONLY, HISTOK - LOGICAL WHONLY, HISTOK - + include 'legopt.blk' + include 'times.blk' include 'plcolr.blk' CHARACTER*(*) SHOTYP diff --git a/packages/seacas/applications/blot/qepain.f b/packages/seacas/applications/blot/qepain.f index d24ea0d995..1dbd2774c6 100644 --- a/packages/seacas/applications/blot/qepain.f +++ b/packages/seacas/applications/blot/qepain.f @@ -37,11 +37,8 @@ SUBROUTINE QEPAIN (VARFAC, LENF, NLNKF, LINKF, HIDEF, C -- Uses NCNTR, NOCMIN, NOCMAX of /CNTR/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /CNTR/ CINTOK, LINCON, NCNTR, CMIN, CMAX, DELC, - & CINTV(256), NOCMIN, NOCMAX, LABINC, MAXMIN, MAXMAX - LOGICAL CINTOK, LINCON, NOCMIN, NOCMAX + include 'd3nums.blk' + include 'cntr.blk' REAL VARFAC(*) INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/qnpick.f b/packages/seacas/applications/blot/qnpick.f index 2d9fc5e57a..c6fdf47c2c 100644 --- a/packages/seacas/applications/blot/qnpick.f +++ b/packages/seacas/applications/blot/qnpick.f @@ -43,13 +43,8 @@ SUBROUTINE QNPICK (TYPE, ISUP, ISDEF, PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /PICK/ INITP, PKDEF, - & PKMESH(KTOP), PKRMAT(3,3), PKRCEN(3), - & DMESH(KTOP), DVRAT, DXMID, DYMID, DXLAST, DYLAST - LOGICAL INITP, PKDEF - - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'pick.blk' + include 'd3nums.blk' LOGICAL ISUP, ISDEF CHARACTER*(*) TYPE diff --git a/packages/seacas/applications/blot/qpaint.f b/packages/seacas/applications/blot/qpaint.f index a4430ecce0..c0315e9ce4 100644 --- a/packages/seacas/applications/blot/qpaint.f +++ b/packages/seacas/applications/blot/qpaint.f @@ -43,11 +43,8 @@ SUBROUTINE QPAINT (VARNP, LENF, NLNKF, LINKF, HIDEF, C -- Uses NCNTR, NOCMIN, NOCMAX of /CNTR/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /CNTR/ CINTOK, LINCON, NCNTR, CMIN, CMAX, DELC, - & CINTV(256), NOCMIN, NOCMAX, LABINC, MAXMIN, MAXMAX - LOGICAL CINTOK, LINCON, NOCMIN, NOCMAX + include 'd3nums.blk' + include 'cntr.blk' REAL VARNP(*) INTEGER LENF(0:NELBLK) diff --git a/packages/seacas/applications/blot/qsolid.f b/packages/seacas/applications/blot/qsolid.f index b7beb4a2e1..601cd8655b 100644 --- a/packages/seacas/applications/blot/qsolid.f +++ b/packages/seacas/applications/blot/qsolid.f @@ -45,8 +45,7 @@ SUBROUTINE QSOLID (LENF, NLNKF, LINKF, HIDEF, XN, YN, ZN, IELBST, C -- Uses IS3DIM of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/rotopt.blk b/packages/seacas/applications/blot/rotopt.blk index 8c2c5f779f..594d90b724 100644 --- a/packages/seacas/applications/blot/rotopt.blk +++ b/packages/seacas/applications/blot/rotopt.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /ROTOPT/ NEWROT, ROTMAT(3,3), ROTCEN(3), EYE(3) + COMMON /ROTOPT/ ROTMAT(3,3), ROTCEN(3), EYE(3), NEWROT LOGICAL NEWROT C --NEWROT - true iff coordinates are not set for the new rotation matrix C -- or center diff --git a/packages/seacas/applications/blot/scolor.f b/packages/seacas/applications/blot/scolor.f index 136c8a7173..6dbc498c9f 100644 --- a/packages/seacas/applications/blot/scolor.f +++ b/packages/seacas/applications/blot/scolor.f @@ -44,8 +44,7 @@ SUBROUTINE SCOLOR (INIT, INLINE, IFLD, INTYP, RFIELD, IFIELD, INTEGER IDELB(*) include 'dbnums.blk' - COMMON /BCOLR/ BCOLCH - LOGICAL BCOLCH + include 'bcolr.blk' LOGICAL FFMATC, FFEXST INTEGER IDCOL, LOCSTR diff --git a/packages/seacas/applications/blot/setmod.f b/packages/seacas/applications/blot/setmod.f index bd7d2f44ef..9c7df352e3 100644 --- a/packages/seacas/applications/blot/setmod.f +++ b/packages/seacas/applications/blot/setmod.f @@ -24,9 +24,7 @@ SUBROUTINE SETMOD (IVIEW, MMOD, MTYP) C -- Sets MODDET, MODTYP, NNDVAR, NEDVAR of /DETOPT/ include 'mshopt.blk' - COMMON /DETOPT/ IDTVAR(4), NNDVAR, NEDVAR - COMMON /DETOPC/ MODDET(4), MODTYP(4) - CHARACTER*8 MODDET, MODTYP + include 'detopt.blk' CHARACTER*(*) MMOD, MTYP diff --git a/packages/seacas/applications/blot/setup.f b/packages/seacas/applications/blot/setup.f index 3d03441783..a4af7b6f7b 100644 --- a/packages/seacas/applications/blot/setup.f +++ b/packages/seacas/applications/blot/setup.f @@ -32,12 +32,10 @@ SUBROUTINE SETUP (MSHDEF, ZMMESH) PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /VIEWS/ MULTIM, - & XISSYM, YISSYM, XAXSYM, YAXSYM, LFTSYM, BOTSYM - LOGICAL MULTIM, XISSYM, YISSYM, LFTSYM, BOTSYM - COMMON /LAYOUT/ CHLSIZ, DBORD0(KTOP), DVIEW0(KTOP) - COMMON /LAYOUD/ DVIEW(KTOP,4), WVIEW(KTOP,4) - COMMON /DEVDAT/ DTW, VWSCL + include 'views.blk' + include 'layout.blk' + include 'layoud.blk' + include 'devdat.blk' CHARACTER*(*) MSHDEF(4) REAL ZMMESH(KTOP) diff --git a/packages/seacas/applications/blot/setvw.f b/packages/seacas/applications/blot/setvw.f index 937b7ba83d..da1ac5e1aa 100644 --- a/packages/seacas/applications/blot/setvw.f +++ b/packages/seacas/applications/blot/setvw.f @@ -22,7 +22,7 @@ SUBROUTINE SETVW (IVIEW, *) PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4) - COMMON /LAYOUD/ DVIEW(KTOP,4), WVIEW(KTOP,4) + include 'layoud.blk' LOGICAL MPVIEW, MPORT2, LDUM LOGICAL GRABRT diff --git a/packages/seacas/applications/blot/solid.f b/packages/seacas/applications/blot/solid.f index f51f22944e..3f98941881 100644 --- a/packages/seacas/applications/blot/solid.f +++ b/packages/seacas/applications/blot/solid.f @@ -46,8 +46,7 @@ SUBROUTINE SOLID (LENF, NLNKF, LINKF, NXFAC, IXFAC, C -- Uses IS3DIM of /D3NUMS/ include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENF(0:NELBLK) INTEGER NLNKF(NELBLK) diff --git a/packages/seacas/applications/blot/solidf.f b/packages/seacas/applications/blot/solidf.f index 25012d8098..53713341f5 100644 --- a/packages/seacas/applications/blot/solidf.f +++ b/packages/seacas/applications/blot/solidf.f @@ -22,9 +22,7 @@ SUBROUTINE SOLIDF (NLNKF, LINKF1, XN, YN, ZN) REAL XN(*), YN(*), ZN(*) PARAMETER (KLFT=1, KRGT=2, KBOT=3, KTOP=4, KNEA=5, KFAR=6) - COMMON /MSHLIM/ UNMESH(KFAR), ALMESH(KFAR), - & ZMMESH(KTOP), RDMESH(KTOP), TICMSH, SQMESH - LOGICAL SQMESH + include 'mshlim.blk' REAL XPTS(20), YPTS(20) diff --git a/packages/seacas/applications/blot/sorlnk.f b/packages/seacas/applications/blot/sorlnk.f index 1d7f61f34f..395b28f4dd 100644 --- a/packages/seacas/applications/blot/sorlnk.f +++ b/packages/seacas/applications/blot/sorlnk.f @@ -38,8 +38,7 @@ SUBROUTINE SORLNK (A, NSETS, NEWELB, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' DIMENSION A(*) INTEGER NEWELB(*) diff --git a/packages/seacas/applications/blot/sorlnx.f b/packages/seacas/applications/blot/sorlnx.f index 91f3e94eb0..5a1253b337 100644 --- a/packages/seacas/applications/blot/sorlnx.f +++ b/packages/seacas/applications/blot/sorlnx.f @@ -37,8 +37,7 @@ SUBROUTINE SORLNX (NSETS, NEWELB, IE2ELB, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER NEWELB(*) INTEGER IE2ELB(*) diff --git a/packages/seacas/applications/blot/surf2d.f b/packages/seacas/applications/blot/surf2d.f index 936235a043..2f85d5fe8e 100644 --- a/packages/seacas/applications/blot/surf2d.f +++ b/packages/seacas/applications/blot/surf2d.f @@ -34,8 +34,7 @@ SUBROUTINE SURF2D (LENE, NLNKE, LINKE, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENE(0:NELBLK), LINKE(*) INTEGER NLNKE(NELBLK) diff --git a/packages/seacas/applications/blot/surf3d.f b/packages/seacas/applications/blot/surf3d.f index 34512209bd..48d0b881c9 100644 --- a/packages/seacas/applications/blot/surf3d.f +++ b/packages/seacas/applications/blot/surf3d.f @@ -41,8 +41,7 @@ SUBROUTINE SURF3D (LENSC, NLNKSC, LINKSC, IF2ESC, character*8 cdebug include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM + include 'd3nums.blk' INTEGER LENSC(0:NELBLK) INTEGER NLNKSC(NELBLK) diff --git a/packages/seacas/applications/blot/symbol.f b/packages/seacas/applications/blot/symbol.f index 1d9c691ca0..aeb5ea0011 100644 --- a/packages/seacas/applications/blot/symbol.f +++ b/packages/seacas/applications/blot/symbol.f @@ -54,10 +54,9 @@ SUBROUTINE SYMBOL_BL (ISYTYP, VARFAC, LENF, NLNKF, HIDEF, PARAMETER (KSCHSZ=2) include 'dbnums.blk' - COMMON /D3NUMS/ IS3DIM, NNPSUR, NUMNPF, LLNSET - LOGICAL IS3DIM - COMMON /ETCOPT/ VECSCL - COMMON /DEVDAT/ DTW, VWSCL + include 'd3nums.blk' + include 'etcopt.blk' + include 'devdat.blk' CHARACTER*(*) ISYTYP REAL VARFAC(*) diff --git a/packages/seacas/applications/blot/tpvars.blk b/packages/seacas/applications/blot/tpvars.blk index 10b54741d6..85c3fe9057 100644 --- a/packages/seacas/applications/blot/tpvars.blk +++ b/packages/seacas/applications/blot/tpvars.blk @@ -4,8 +4,8 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /TPVARS/ NTPCRV, NTPVAR, TIMPLT, - & ITVID(MXTVAR), ITVNE(MXTVAR) + COMMON /TPVARS/ NTPCRV, NTPVAR, + & ITVID(MXTVAR), ITVNE(MXTVAR), TIMPLT LOGICAL TIMPLT C --NTPCRV - the number of curves in this set C --NTPVAR - the number of plot variables requested in this set diff --git a/packages/seacas/applications/blot/ugrcol.f b/packages/seacas/applications/blot/ugrcol.f index 0a7c2a93d5..062ab139b6 100644 --- a/packages/seacas/applications/blot/ugrcol.f +++ b/packages/seacas/applications/blot/ugrcol.f @@ -58,19 +58,10 @@ SUBROUTINE UGRCOL (INDX, BLKCOL) PARAMETER (KCOLOR=1) PARAMETER (KCOLIN=6, KCOSYM=44) - COMMON /GRPCOC/ DEVNAM(2), DEVCOD(2) - CHARACTER*3 DEVNAM - CHARACTER*8 DEVCOD - COMMON /GRPCOM/ ICURDV, ISHARD, DEVOK(2), TALKOK(2), - & NSNAP(2), IFONT(2), SOFTCH(2), AUTOPL(2), - & MAXCOL(2), NUMCOL(0:1,2), MAPALT(2), MAPUSE(2) - LOGICAL ISHARD, DEVOK, TALKOK, SOFTCH, AUTOPL + include 'grpcom.blk' include 'dbnums.blk' include 'grcol.blk' - - COMMON /BCOLR/ BCOLCH - LOGICAL BCOLCH - + include 'bcolr.blk' include 'plcol2.blk' include 'params.blk' include 'cmap-lst.blk' diff --git a/packages/seacas/applications/blot/views.blk b/packages/seacas/applications/blot/views.blk index 14b1e8fb94..8ff94ff6bd 100644 --- a/packages/seacas/applications/blot/views.blk +++ b/packages/seacas/applications/blot/views.blk @@ -4,8 +4,8 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /VIEWS/ MULTIM, - & XISSYM, YISSYM, XAXSYM, YAXSYM, LFTSYM, BOTSYM + COMMON /VIEWS/ XAXSYM, YAXSYM, MULTIM, + & XISSYM, YISSYM, LFTSYM, BOTSYM LOGICAL MULTIM, XISSYM, YISSYM, LFTSYM, BOTSYM C --MULTIM - true iff times are overlaid C --XISSYM - true iff X views are symmetric vs copies diff --git a/packages/seacas/applications/blot/xyopt.blk b/packages/seacas/applications/blot/xyopt.blk index 2a529be745..d500bd58bd 100644 --- a/packages/seacas/applications/blot/xyopt.blk +++ b/packages/seacas/applications/blot/xyopt.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /XYOPT/ DOGRID, LINTYP, ISYTYP, OVERLY, OVERTM + COMMON /XYOPT/ LINTYP, ISYTYP, DOGRID, OVERLY, OVERTM LOGICAL DOGRID, OVERLY, OVERTM COMMON /XYOPC/ LABSID, IAXSCA CHARACTER*8 LABSID, IAXSCA diff --git a/packages/seacas/applications/gen3d/g3_params.blk b/packages/seacas/applications/gen3d/g3_params.blk index 8d3d8128ad..879a401fbd 100644 --- a/packages/seacas/applications/gen3d/g3_params.blk +++ b/packages/seacas/applications/gen3d/g3_params.blk @@ -10,7 +10,7 @@ C -*- Mode: fortran -*- COMMON /PARAMS/ ITRANT, NNREPL, NEREPL, DIM3, NRTRAN(MAXINT), * D3TRAN(MAXINT), ZGRAD(MAXINT), CENTER, NUMCOL, NUMCDM, - $ NUMROW, RGRAD, IWARP, DWARP, VEDGE, NBLK, HRAD, ROTAX, ISCENT + $ NUMROW, RGRAD, IWARP, DWARP, NBLK, HRAD, ROTAX, VEDGE, ISCENT LOGICAL VEDGE, ISCENT C --ITRANT - type of transformation: C = 1 if translation diff --git a/packages/seacas/applications/gen3d/g3_xyzrot.blk b/packages/seacas/applications/gen3d/g3_xyzrot.blk index 95bf5e57d9..0dadd70292 100644 --- a/packages/seacas/applications/gen3d/g3_xyzrot.blk +++ b/packages/seacas/applications/gen3d/g3_xyzrot.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /XYZROT/ ROT3D, ROTMAT(3,3), ROTCEN(3) + COMMON /XYZROT/ ROTMAT(3,3), ROTCEN(3), ROT3D LOGICAL ROT3D C --ROT3D - true iff 3D mesh is to be rotated C --ROTMAT - rotation matrix diff --git a/packages/seacas/applications/genshell/gs_xyzrot.blk b/packages/seacas/applications/genshell/gs_xyzrot.blk index 95bf5e57d9..0dadd70292 100644 --- a/packages/seacas/applications/genshell/gs_xyzrot.blk +++ b/packages/seacas/applications/genshell/gs_xyzrot.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /XYZROT/ ROT3D, ROTMAT(3,3), ROTCEN(3) + COMMON /XYZROT/ ROTMAT(3,3), ROTCEN(3), ROT3D LOGICAL ROT3D C --ROT3D - true iff 3D mesh is to be rotated C --ROTMAT - rotation matrix diff --git a/packages/seacas/applications/gjoin/gj_dbvars.blk b/packages/seacas/applications/gjoin/gj_dbvars.blk index 90fb2cb3ff..e1e6b73f8c 100644 --- a/packages/seacas/applications/gjoin/gj_dbvars.blk +++ b/packages/seacas/applications/gjoin/gj_dbvars.blk @@ -4,9 +4,9 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /DBVARS/ TWODB, NDIM, NEWNP, NUMNP1, NUMNP2, + COMMON /DBVARS/ NDIM, NEWNP, NUMNP1, NUMNP2, & NEWEL, NUMEL1, NUMEL2, NEWELB, NELBL1, NELBL2, & NEWNPS, NNPS1, NNPS2, NEWNNL, LNPSN1, LNPSN2, - & NEWESS, NESS1, NESS2, - & NEWSEL, LESSE1, LESSE2, NEWSNL, LESSN1, LESSN2 + & NEWESS, NESS1, NESS2, NEWSEL, LESSE1, LESSE2, + & NEWSNL, LESSN1, LESSN2, TWODB LOGICAL TWODB diff --git a/packages/seacas/applications/gjoin/gj_xyzrot.blk b/packages/seacas/applications/gjoin/gj_xyzrot.blk index 95bf5e57d9..0dadd70292 100644 --- a/packages/seacas/applications/gjoin/gj_xyzrot.blk +++ b/packages/seacas/applications/gjoin/gj_xyzrot.blk @@ -4,7 +4,7 @@ C NTESS, the U.S. Government retains certain rights in this software. C C See packages/seacas/LICENSE for details - COMMON /XYZROT/ ROT3D, ROTMAT(3,3), ROTCEN(3) + COMMON /XYZROT/ ROTMAT(3,3), ROTCEN(3), ROT3D LOGICAL ROT3D C --ROT3D - true iff 3D mesh is to be rotated C --ROTMAT - rotation matrix diff --git a/packages/seacas/applications/grepos/gp_attrot.blk b/packages/seacas/applications/grepos/gp_attrot.blk index 8bbaf8d3f2..66821cdd46 100644 --- a/packages/seacas/applications/grepos/gp_attrot.blk +++ b/packages/seacas/applications/grepos/gp_attrot.blk @@ -5,8 +5,8 @@ C C See packages/seacas/LICENSE for details C -*- Mode: fortran -*- - COMMON /ATTROT/ REVATT, ROTALL, ROTTYP, - * ROTATT(3,3), ATTIND, ATTBLK + COMMON /ATTROT/ ATTIND, ATTBLK, + * ROTATT(3,3), REVATT, ROTALL, ROTTYP INTEGER ATTBLK, ATTIND LOGICAL REVATT LOGICAL ROTALL diff --git a/packages/seacas/applications/grepos/gp_combine.blk b/packages/seacas/applications/grepos/gp_combine.blk index 2816bc0399..a52f10938b 100644 --- a/packages/seacas/applications/grepos/gp_combine.blk +++ b/packages/seacas/applications/grepos/gp_combine.blk @@ -5,7 +5,7 @@ C C See packages/seacas/LICENSE for details C -*- Mode: fortran -*- - common /combine/ equiv, eqtoler + common /combine/ eqtoler, equiv logical equiv real eqtoler C -- equiv - True if node equivalencing is to be performed diff --git a/packages/seacas/applications/grepos/gp_xyzrot.blk b/packages/seacas/applications/grepos/gp_xyzrot.blk index 9dc230fd67..49c5a2d2e0 100644 --- a/packages/seacas/applications/grepos/gp_xyzrot.blk +++ b/packages/seacas/applications/grepos/gp_xyzrot.blk @@ -5,7 +5,7 @@ C C See packages/seacas/LICENSE for details C -*- Mode: fortran -*- - COMMON /XYZROT/ ROT3D, ROTMAT(3,3), ROTCEN(3) + COMMON /XYZROT/ ROTMAT(3,3), ROTCEN(3), ROT3D LOGICAL ROT3D C --ROT3D - true iff 3D mesh is to be rotated C --ROTMAT - rotation matrix