Lines Matching refs:nshg
35 integer ilwork(nlwork), iper(nshg), iBC(nshg)
49 allocate ( stsVec(nshg,nResDims) )
52 allocate ( stsReg(nshg) )
53 allocate ( stsMInv(nshg,6) )
54 allocate ( stsB(nshg,3) )
55 allocate ( stsDInv(nshg,3) )
56 allocate ( stsCInv(nshg,6) )
59 allocate ( stsPres(nshg) )
60 allocate ( stsPresSqr(nshg) )
61 allocate ( stsVel(nshg,3) )
62 allocate ( stsVelSqr(nshg,6) )
63 allocate ( stsVelReg(nshg,3) )
64 allocate ( stsStress(nshg,6) )
79 call stsInitLhs( nshg )
89 subroutine stsInitLhs(nshg) argument
92 integer nshg local
101 do i = 1, nshg
118 do i = 1, nshg
144 do i = 1, nshg
197 real*8 y(nshg,ndof), yold(nshg,ndof),
198 & ac(nshg,ndof), acold(nshg,ndof),
199 & u(nshg,nsd), uold(nshg,nsd),
203 & BC(nshg,ndofBC), lhsK(9,nnz_tot),
206 integer iBC(nshg), iper(nshg),
207 & ilwork(nlwork), rowp(nshg*nnz),
208 & colm(nshg+1)
211 real*8 yAlpha(nshg,ndof), acAlpha(nshg,ndof),
212 & uAlpha(nshg,nsd),
241 do i = 1, nshg
333 do i = 1, nshg
394 real*8 outvec(nshg,19)
424 write (iofile) numnp, nshg, nTimeStep
425 write (iofile) outvec(1:nshg,:)