64      5   ipc,rpc,pc,ac,cc,fc,tru)  argument
81       double precision rpc(*),pc(*),ac(*),cc(*),fc(*),tru(*)  local
108      5      ipc,rpc,pc,ac,cc,fc,tru)
133      5   ipc,rpc,pc,ac,cc,fc,tru)
142      5   ipc,rpc,pc,ac,cc,fc,tru)  argument
160       double precision rpc(*),pc(*),ac(*),cc(*),fc(*),tru(*)  local
211          rsden = xnrm2(nx,ny,nz,tru(iz(1,lev)))
213          rsden = xnrm2(nx,ny,nz,tru(iz(1,lev)))
218      4      tru(iz(1,lev)),w1,w2)
219          rsden = dsqrt(xdot(nx,ny,nz,tru(iz(1,lev)),w1))
260      2      tru(iz(1,lev)))
297      5      ipc,rpc,pc,ac,cprime,rhs,tru)
391                call xcopy(nx,ny,nz,tru(iz(1,lev)),w1)
395                call xcopy(nx,ny,nz,tru(iz(1,lev)),w1)
399                call xcopy(nx,ny,nz,tru(iz(1,lev)),w1)
403                call xcopy(nx,ny,nz,tru(iz(1,lev)),w1)
459      6      ipc,rpc,pc,ac,cprime,tru)