forked from Nek5000-deprecated/Nek5000-deprecated
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathCTIMER
50 lines (49 loc) · 2.26 KB
/
CTIMER
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
C
COMMON /CTIMER/ tmxmf,tmxms,tdsum,taxhm,tcopy,tinvc,tinv3
COMMON /CTIME2/ tsolv,tgsum,tdsnd,tdadd,tcdtp,tmltd,tprep
$ ,tpres,thmhz,tgop ,tgop1,tdott,tbsol,tbso2
$ ,tsett,tslvb,tusbc,tddsl,tcrsl,tdsmx,tdsmn
$ ,tgsmn,tgsmx,teslv,tbbbb,tcccc,tdddd,teeee
$ ,tvdss,tschw,tadvc,tspro,tgop_sync,tsyc
$ ,twal,tgp2
C
REAL*8 tmxmf,tmxms,tdsum,taxhm,tcopy,tinvc,tinv3
REAL*8 tsolv,tgsum,tdsnd,tdadd,tcdtp,tmltd,tprep
$ ,tpres,thmhz,tgop ,tgop1,tdott,tbsol,tbso2
$ ,tsett,tslvb,tusbc,tddsl,tcrsl,tdsmx,tdsmn
$ ,tgsmn,tgsmx,teslv,tbbbb,tcccc,tdddd,teeee
$ ,tvdss,tschw,tadvc,tspro,tgop_sync,tsyc
$ ,twal,tgp2
C
COMMON /ITIMER/ nmxmf,nmxms,ndsum,naxhm,ncopy,ninvc,ninv3
COMMON /ITIME2/ nsolv,ngsum,ndsnd,ndadd,ncdtp,nmltd,nprep
$ ,npres,nhmhz,ngop ,ngop1,ndott,nbsol,nbso2
$ ,nsett,nslvb,nusbc,nddsl,ncrsl,ndsmx,ndsmn
$ ,ngsmn,ngsmx,neslv,nbbbb,ncccc,ndddd,neeee
$ ,nvdss,nadvc,nspro,ngop_sync,nsyc,nwal,ngp2
C
COMMON /PTIMER/ pmxmf,pmxms,pdsum,paxhm,pcopy,pinvc,pinv3
$ ,psolv,pgsum,pdsnd,pdadd,pcdtp,pmltd,pprep
$ ,ppres,phmhz,pgop ,pgop1,pdott,pbsol,pbso2
$ ,psett,pslvb,pusbc,pddsl,pcrsl,pdsmx,pdsmn
$ ,pgsmn,pgsmx,peslv,pbbbb,pcccc,pdddd,peeee
$ ,pvdss,pspro,pgop_sync,psyc,pwal,pgp2
C
REAL*8 pmxmf,pmxms,pdsum,paxhm,pcopy,pinvc,pinv3
REAL*8 psolv,pgsum,pdsnd,pdadd,pcdtp,pmltd,pprep
$ ,ppres,phmhz,pgop ,pgop1,pdott,pbsol,pbso2
$ ,psett,pslvb,pusbc,pddsl,pcrsl,pdsmx,pdsmn
$ ,pgsmn,pgsmx,peslv,pbbbb,pcccc,pdddd,peeee
$ ,pvdss,pspro,pgop_sync,psyc,pwal,pgp2
C
REAL*8 etime1,etime2,etime0,gtime1,tscrtch
REAL*8 dnekclock,dnekclock_sync
C
COMMON /CTIME3/ etimes,ttotal,tttstp,etims0,ttime
real*8 etimes,ttotal,tttstp,etims0,ttime
C
integer icalld
save icalld
data icalld /0/
common /ctimel/ ifsync
logical ifsync