1       subroutine itrdrv (y,         ac,           subroutine
55         real*8    y(nshg,ndof),              ac(nshg,ndof),           
56      &            yold(nshg,ndof),           acold(nshg,ndof),
57      &            u(nshg,nsd),               uold(nshg,nsd),
58      &            x(numnp,nsd),              solinc(nshg,ndof),
59      &            BC(nshg,ndofBC),           tf(nshg,ndof),
60      &            GradV(nshg,nsdsq)
63         real*8    res(nshg,ndof)
65         real*8    shp(MAXTOP,maxsh,MAXQPT),  
66      &            shgl(MAXTOP,nsd,maxsh,MAXQPT), 
67      &            shpb(MAXTOP,maxsh,MAXQPT),
68      &            shglb(MAXTOP,nsd,maxsh,MAXQPT) 
70         integer   rowp(nshg,nnz),         colm(nshg+1),
71      &            iBC(nshg),
72      &            ilwork(nlwork),
73      &            iper(nshg),            ifuncs(6)
75         real*8 vbc_prof(nshg,3)
77         integer stopjob
78         character*10 cname2
79         character*5  cname
87         real*8   almit, alfit, gamit
89         character*20    fname1,fmt1
90         character*20    fname2,fmt2
91         character*60    fnamepold, fvarts
92         character*4     fname4c ! 4 characters
93         integer         iarray(50) ! integers for headers
94         integer         isgn(ndof), isgng(ndof)
96         real*8, allocatable, dimension(:,:) :: rerr
97         real*8, allocatable, dimension(:,:) :: ybar, strain, vorticity
98         real*8, allocatable, dimension(:,:) :: wallssVec, wallssVecbar
100         real*8 tcorecp(2), tcorecpscal(2)
102         real*8, allocatable, dimension(:,:,:) :: yphbar
103         real*8 CFLworst(numel)
105         integer :: iv_rankpernode, iv_totnodes, iv_totcores
106         integer :: iv_node, iv_core, iv_thread
110       INTEGER svLS_nFaces
111       TYPE(svLS_lhsType) svLS_lhs
112       TYPE(svLS_lsType) svLS_ls
114       TYPE(svLS_lhsType) svLS_lhs_S(4)
115       TYPE(svLS_lsType) svLS_ls_S(4)
560            call printmeminfo("itrdrv after checkpoint"//char(0))  argument
633  2003       continue ! we get here if stopjob equals lstep and this jumped over
741  2000 continue
742  2002 continue
810           write(*,*) 'itrdrv - done with aerodynamic forces'  argument
843           write(*,*) 'itrdrv - done - BACK TO process.f'  argument