source: CIVL/examples/fortran/nek5000/core/CTIMER

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100755
File size: 2.9 KB
Line 
1c
2c Timer variables
3c
4 real*8 tmxmf,tmxms,tdsum,taxhm,tcopy,tinvc,tinv3
5 $ ,tinit,tadc3,tcol3,ta2s2,tcol2,tadd2
6 common /ctimer/ tmxmf,tmxms,tdsum,taxhm,tcopy,tinvc,tinv3
7 $ ,tinit,tadc3,tcol3,ta2s2,tcol2,tadd2
8c
9 real*8 tsolv,tgsum,tdsnd,tdadd,tcdtp,tmltd,tprep
10 $ ,tpres,thmhz,tgop ,tgop1,tdott,tbsol,tbso2
11 $ ,tsett,tslvb,tusbc,tddsl,tcrsl,tdsmx,tdsmn
12 $ ,tgsmn,tgsmx,teslv,tbbbb,tcccc,tdddd,teeee
13 $ ,tvdss,tschw,tadvc,tspro,tgop_sync,tsyc
14 $ ,twal,tgp2,tcvf,tproj,tusfq,tuchk
15 $ ,tmakf,tmakq
16 common /ctime2/ tsolv,tgsum,tdsnd,tdadd,tcdtp,tmltd,tprep
17 $ ,tpres,thmhz,tgop ,tgop1,tdott,tbsol,tbso2
18 $ ,tsett,tslvb,tusbc,tddsl,tcrsl,tdsmx,tdsmn
19 $ ,tgsmn,tgsmx,teslv,tbbbb,tcccc,tdddd,teeee
20 $ ,tvdss,tschw,tadvc,tspro,tgop_sync,tsyc
21 $ ,twal,tgp2,tcvf,tproj,tusfq,tuchk
22 $ ,tmakf,tmakq
23c
24 integer nmxmf,nmxms,ndsum,naxhm,ncopy,ninvc,ninv3
25 common /itimer/ nmxmf,nmxms,ndsum,naxhm,ncopy,ninvc,ninv3
26c
27 integer nsolv,ngsum,ndsnd,ndadd,ncdtp,nmltd,nprep
28 $ ,npres,nhmhz,ngop ,ngop1,ndott,nbsol,nbso2
29 $ ,nsett,nslvb,nusbc,nddsl,ncrsl,ndsmx,ndsmn
30 $ ,ngsmn,ngsmx,neslv,nbbbb,ncccc,ndddd,neeee
31 $ ,nvdss,nadvc,nspro,ngop_sync,nsyc,nwal,ngp2
32 $ ,ncvf
33 common /itime2/ nsolv,ngsum,ndsnd,ndadd,ncdtp,nmltd,nprep
34 $ ,npres,nhmhz,ngop ,ngop1,ndott,nbsol,nbso2
35 $ ,nsett,nslvb,nusbc,nddsl,ncrsl,ndsmx,ndsmn
36 $ ,ngsmn,ngsmx,neslv,nbbbb,ncccc,ndddd,neeee
37 $ ,nvdss,nadvc,nspro,ngop_sync,nsyc,nwal,ngp2
38 $ ,ncvf
39c
40 real*8 pmxmf,pmxms,pdsum,paxhm,pcopy,pinvc,pinv3
41 $ ,psolv,pgsum,pdsnd,pdadd,pcdtp,pmltd,pprep
42 $ ,ppres,phmhz,pgop ,pgop1,pdott,pbsol,pbso2
43 $ ,psett,pslvb,pusbc,pddsl,pcrsl,pdsmx,pdsmn
44 $ ,pgsmn,pgsmx,peslv,pbbbb,pcccc,pdddd,peeee
45 $ ,pvdss,pspro,pgop_sync,psyc,pwal,pgp2
46 common /ptimer/ pmxmf,pmxms,pdsum,paxhm,pcopy,pinvc,pinv3
47 $ ,psolv,pgsum,pdsnd,pdadd,pcdtp,pmltd,pprep
48 $ ,ppres,phmhz,pgop ,pgop1,pdott,pbsol,pbso2
49 $ ,psett,pslvb,pusbc,pddsl,pcrsl,pdsmx,pdsmn
50 $ ,pgsmn,pgsmx,peslv,pbbbb,pcccc,pdddd,peeee
51 $ ,pvdss,pspro,pgop_sync,psyc,pwal,pgp2
52
53c
54 real*8 etime1,etime2,etime0,gtime1,tscrtch
55 real*8 dnekclock,dnekclock_sync
56c
57 real*8 etimes,ttotal,tttstp,etims0,ttime
58 common /ctime3/ etimes,ttotal,tttstp,etims0,ttime
59c
60 integer icalld
61 save icalld
62 data icalld /0/
63
64 logical ifsync
65 common /ctimel/ ifsync
Note: See TracBrowser for help on using the repository browser.