| 1 | c
|
|---|
| 2 | c Input parameters from preprocessors.
|
|---|
| 3 | c
|
|---|
| 4 | c Note that in parallel implementations, we distinguish between
|
|---|
| 5 | c distributed data (LELT) and uniformly distributed data.
|
|---|
| 6 | c
|
|---|
| 7 | c Input common block structure:
|
|---|
| 8 | c
|
|---|
| 9 | c INPUT1: REAL INPUT5: REAL with LELT entries
|
|---|
| 10 | c INPUT2: INTEGER INPUT6: INTEGER with LELT entries
|
|---|
| 11 | c INPUT3: LOGICAL INPUT7: LOGICAL with LELT entries
|
|---|
| 12 | c INPUT4: CHARACTER INPUT8: CHARACTER with LELT entries
|
|---|
| 13 | c
|
|---|
| 14 | real param(200),rstim,vnekton
|
|---|
| 15 | $ ,cpfld(ldimt1,3)
|
|---|
| 16 | $ ,cpgrp(-5:10,ldimt1,3)
|
|---|
| 17 | $ ,qinteg(ldimt3,maxobj)
|
|---|
| 18 | $ ,uparam(20)
|
|---|
| 19 | $ ,atol(0:ldimt1)
|
|---|
| 20 | $ ,restol(0:ldimt1)
|
|---|
| 21 | $ ,fem_amg_param(15)
|
|---|
| 22 | $ ,crs_param(15)
|
|---|
| 23 | $ ,filterType
|
|---|
| 24 |
|
|---|
| 25 | common /input1/ param,rstim,vnekton,cpfld,cpgrp,qinteg,uparam,
|
|---|
| 26 | $ atol,restol,fem_amg_param,crs_param,
|
|---|
| 27 | $ filterType
|
|---|
| 28 |
|
|---|
| 29 | integer matype(-5:10,ldimt1)
|
|---|
| 30 | $ ,nktonv,nhis,lochis(4,lhis+maxobj)
|
|---|
| 31 | $ ,ipscal,npscal,ipsco, ifldmhd
|
|---|
| 32 | $ ,irstv,irstt,irstim,nmember(maxobj),nobj
|
|---|
| 33 | $ ,ngeom,idpss(ldimt),meshPartitioner
|
|---|
| 34 | common /input2/ matype,nktonv,nhis,lochis,ipscal,npscal,ipsco
|
|---|
| 35 | $ ,ifldmhd,irstv,irstt,irstim,nmember,nobj
|
|---|
| 36 | $ ,ngeom,idpss,meshPartitioner
|
|---|
| 37 |
|
|---|
| 38 | logical if3d,ifflow,ifheat,iftran,ifaxis,ifstrs,ifsplit
|
|---|
| 39 | $ ,ifmgrid
|
|---|
| 40 | $ ,ifadvc(ldimt1),ifdiff(ldimt1),ifdeal(ldimt1)
|
|---|
| 41 | $ ,iffilter(ldimt1),ifprojfld(0:ldimt1)
|
|---|
| 42 | $ ,iftmsh(0:ldimt1),ifdgfld(0:ldimt1),ifdg
|
|---|
| 43 | $ ,ifmvbd,ifchar,ifnonl(ldimt1)
|
|---|
| 44 | $ ,ifvarp(ldimt1),ifpsco(ldimt1),ifvps
|
|---|
| 45 | $ ,ifmodel,ifkeps,ifintq,ifcons
|
|---|
| 46 | $ ,ifxyo,ifpo,ifvo,ifto,iftgo,ifpso(ldimt1),iffmtin
|
|---|
| 47 | $ ,ifbo,ifanls,ifanl2,ifmhd,ifessr,ifpert,ifbase
|
|---|
| 48 | $ ,ifcvode,iflomach,ifexplvis,ifschclob,ifuservp
|
|---|
| 49 | $ ,ifcyclic,ifmoab,ifcoup, ifvcoup, ifusermv,ifreguo
|
|---|
| 50 | $ ,ifxyo_,ifaziv,ifneknek,ifneknekm,ifneknekc
|
|---|
| 51 | $ ,ifcvfld(ldimt1),ifdp0dt
|
|---|
| 52 | $ ,ifmpiio,ifrich,ifvvisp
|
|---|
| 53 |
|
|---|
| 54 | common /input3/ if3d,ifflow,ifheat,iftran,ifaxis,ifstrs,ifsplit
|
|---|
| 55 | $ ,ifmgrid
|
|---|
| 56 | $ ,ifadvc,ifdiff,ifdeal
|
|---|
| 57 | $ ,iffilter, ifprojfld
|
|---|
| 58 | $ ,iftmsh,ifdgfld,ifdg
|
|---|
| 59 | $ ,ifmvbd,ifchar,ifnonl
|
|---|
| 60 | $ ,ifvarp ,ifpsco ,ifvps
|
|---|
| 61 | $ ,ifmodel,ifkeps,ifintq,ifcons
|
|---|
| 62 | $ ,ifxyo,ifpo,ifvo,ifto,iftgo,ifpso ,iffmtin
|
|---|
| 63 | $ ,ifbo,ifanls,ifanl2,ifmhd,ifessr,ifpert,ifbase
|
|---|
| 64 | $ ,ifcvode,iflomach,ifexplvis,ifschclob,ifuservp
|
|---|
| 65 | $ ,ifcyclic,ifmoab,ifcoup, ifvcoup, ifusermv,ifreguo
|
|---|
| 66 | $ ,ifxyo_,ifaziv,ifneknek,ifneknekm,ifneknekc
|
|---|
| 67 | $ ,ifcvfld,ifdp0dt
|
|---|
| 68 | $ ,ifmpiio,ifrich,ifvvisp
|
|---|
| 69 |
|
|---|
| 70 | logical ifnav
|
|---|
| 71 | equivalence (ifnav, ifadvc(1))
|
|---|
| 72 |
|
|---|
| 73 | character*1 hcode(11,lhis+maxobj)
|
|---|
| 74 | character*2 ocode(8)
|
|---|
| 75 | character*10 drivc(5)
|
|---|
| 76 | character*14 rstv,rstt
|
|---|
| 77 | character*40 textsw(100,2)
|
|---|
| 78 | character*132 initc(15)
|
|---|
| 79 | common /input4/ hcode,ocode,rstv,rstt,drivc,initc,textsw
|
|---|
| 80 |
|
|---|
| 81 | character*40 turbmod
|
|---|
| 82 | equivalence (turbmod,textsw(1,1))
|
|---|
| 83 |
|
|---|
| 84 | character*132 reafle,fldfle,dmpfle,hisfle,schfle,orefle,nrefle
|
|---|
| 85 | common /cfiles/ reafle,fldfle,dmpfle,hisfle,schfle,orefle,nrefle
|
|---|
| 86 |
|
|---|
| 87 | character*132 session,path,re2fle,parfle,amgfile
|
|---|
| 88 | common /cfile2/ session,path,re2fle,parfle,amgfile
|
|---|
| 89 |
|
|---|
| 90 | integer cr_re2,fh_re2
|
|---|
| 91 | common /handles_re2/ cr_re2,fh_re2
|
|---|
| 92 |
|
|---|
| 93 | integer*8 re2off_b
|
|---|
| 94 | common /off_re2/ re2off_b
|
|---|
| 95 | c
|
|---|
| 96 | c proportional to LELT
|
|---|
| 97 | c
|
|---|
| 98 | real xc(8,lelt),yc(8,lelt),zc(8,lelt)
|
|---|
| 99 | $ ,bc(5,6,lelt,0:ldimt1)
|
|---|
| 100 | $ ,curve(6,12,lelt)
|
|---|
| 101 | $ ,cerror(lelt)
|
|---|
| 102 | common /input5/ xc,yc,zc,bc,curve,cerror
|
|---|
| 103 |
|
|---|
| 104 | integer igroup(lelt),object(maxobj,maxmbr,2)
|
|---|
| 105 | common /input6/ igroup,object
|
|---|
| 106 |
|
|---|
| 107 | integer lbid
|
|---|
| 108 | parameter(lbid = 100)
|
|---|
| 109 |
|
|---|
| 110 | character*1 ccurve(12,lelt),cdof(6,lelt)
|
|---|
| 111 | character*3 cbc(6,lelt,0:ldimt1)
|
|---|
| 112 | character*3 cbc_bmap(lbid,ldimt1)
|
|---|
| 113 | common /input8/ cbc,ccurve,cdof,cbc_bmap
|
|---|
| 114 |
|
|---|
| 115 | integer ieact(lelt),neact
|
|---|
| 116 | common /input9/ ieact,neact
|
|---|
| 117 | c
|
|---|
| 118 | c material set ids, BC set ids, materials (f=fluid, s=solid), bc types
|
|---|
| 119 | c
|
|---|
| 120 | integer numsts
|
|---|
| 121 | parameter (numsts=50)
|
|---|
| 122 |
|
|---|
| 123 | integer numflu,numoth,numbcs
|
|---|
| 124 | $ ,matindx(numsts),matids(numsts),imatie(lelt)
|
|---|
| 125 | $ ,ibcsts(numsts)
|
|---|
| 126 | common /inputmi/ numflu,numoth,numbcs,matindx,matids,imatie
|
|---|
| 127 | $ ,ibcsts
|
|---|
| 128 |
|
|---|
| 129 | integer bcf(numsts)
|
|---|
| 130 | common /inputmr/ bcf
|
|---|
| 131 |
|
|---|
| 132 | character*3 bctyps(numsts)
|
|---|
| 133 | common /inputmc/ bctyps
|
|---|
