Lines Matching refs:ycl
1 subroutine e3bvar (yl, ycl, BCB, shpb, shglb, argument
54 & ycl(npro,nshl,ndof),
115 temp = temp + shpb(:,n) * ycl(:,n,isc)
376 subroutine e3bvarSclr(ycl, BCB, shpb, shglb, argument
414 dimension ycl(npro,nshl,ndof), BCB(npro,nshlb,ndBCB),
458 pres = pres + shpb(:,nodlcl) * ycl(:,nodlcl,1)
459 u1 = u1 + shpb(:,nodlcl) * ycl(:,nodlcl,2)
460 u2 = u2 + shpb(:,nodlcl) * ycl(:,nodlcl,3)
461 u3 = u3 + shpb(:,nodlcl) * ycl(:,nodlcl,4)
462 T = T + shpb(:,nodlcl) * ycl(:,nodlcl,5)
463 Sclr = Sclr + shpb(:,nodlcl) * ycl(:,nodlcl,id)
587 gl1yti(:) = gl1yti(:) + shglb(:,1,n) * ycl(:,n,id)
588 gl2yti(:) = gl2yti(:) + shglb(:,2,n) * ycl(:,n,id)
589 gl3yti(:) = gl3yti(:) + shglb(:,3,n) * ycl(:,n,id)