Lines Matching refs:acl
1 subroutine e3ivar (yl, acl, shpfun, argument
56 & acl(npro,nshl,ndof), shpfun(npro,nshl),
136 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
137 aci(:,2) = aci(:,2) + shpfun(:,n) * acl(:,n,3)
138 aci(:,3) = aci(:,3) + shpfun(:,n) * acl(:,n,4)
314 subroutine e3ivarSclr (yl, acl, shpfun, argument
327 dimension yl(npro,nshl,ndof), acl(npro,nshl,ndof),
372 Sdot = Sdot + shpfun(:,n) * acl(:,n,id)
425 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
426 aci(:,2) = aci(:,2) + shpfun(:,n) * acl(:,n,3)
427 aci(:,3) = aci(:,3) + shpfun(:,n) * acl(:,n,4)