1       subroutine itrdrv (y,         ac,           argument
55         real*8    y(nshg,ndof),              ac(nshg,ndof),             local
154         yold   = y
244          call itrSetup ( y, acold )
256             call calcRCRic(y,nsrflistRCR,numRCRSrfs)
362             call itrPredict(yold, y,   acold,  ac ,  uold,  u, iBC)
363             call itrBC (y,  ac,  iBC,  BC,  iper,ilwork)
367                call itrBCSclr (y, ac,  iBC, BC, iper, ilwork)
370                call itrBCSclr (y, ac,  iBC, BC, iper, ilwork)
389                      call SolFlow(y,          ac,        u,
418                            y(:,7)=y(:,6) ! redistance field initialized
420                            call itrBCSclr (  y,  ac,  iBC,  BC, iper,
442                      call SolSclr(y,          ac,        u,
463                      call itrCorrect ( y,    ac,    u,   solinc, iBC)
464                      call itrBC (y,  ac,  iBC,  BC, iper, ilwork)
469                         call itrCorrectSclrPos(y,ac,solinc(1,isclr+5))
471                         call itrCorrectSclr (y, ac, solinc(1,isclr+5))
475                            call itrBCSclr (  y,  ac,  iBC,  BC, iper,
480                            call solvecon (y,    x,      iBC,  BC, 
486                         call itrBCSclr (  y,  ac,  iBC,  BC, iper,
497                call stsGetStats( y,      yold,     ac,     acold,
517             call itrUpdate( yold,  acold,   uold,  y,    ac,   u)
584                call UpdHistConv(y,nsrflistImp,numImpSrfs) !uses Delt(1)
591                call UpdHistConv(y,nsrflistRCR,numRCRSrfs) !uses lstep
849       subroutine lesmodels(y,     ac,        shgl,      shp,   argument
856       real*8    y(nshg,ndof),              ac(nshg,ndof),             local
894             call SUPGdis(y,      ac,        shgl,      shp, 
908                   call getdmc (y,       shgl,      shp, 
912                   call stdfdmc (y,       shgl,      shp, 
919                call widefdmc(y,       shgl,      shp, 
930             call cdelBHsq (y,       shgl,      shp, 
933             call FiltRat (y,       shgl,      shp, 
940                call DFWRsfdmc(y,       shgl,      shp, 
944                call DFWRwfdmc(y,       shgl,      shp, 
952             call dmcSUPG (y,           ac,         shgl,      
960             call ediss (y,        ac,      shgl,      
970          call bardmc (y,       shgl,      shp, 
979             call projdmc (y,       shgl,      shp, 
982             call cpjdmcnoi (y,      shgl,      shp, 
1064       subroutine UpdHistConv(y,nsrfIdList,numSrfs)  argument
1075       real*8    y(nshg,3) !velocity at time n+1     local
1079       call GetFlowQ(NewQ,y,nsrfIdList,numSrfs) !new flow at time n+1
1237       subroutine calcRCRic(y,srfIdList,numSrfs)  argument
1244       real*8    y(nshg,4) !need velocity and pressure  local
1253          VelOnly(:,1:3)=y(:,1:3)
1256          POnly(:)=y(:,4)        ! pressure