5      &     cdelsq, shgl, shp, Qwtf, shglo, shpo, stress, diss, vol)  argument
17      &          Qwtf(ngaussf),              acl(npro,nshl,ndof), 
159         wght=Qwtf(intp)
580      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
590      &          Qwtf(lcsyst,1:ngaussf))
878       subroutine getgram (x, ien, shgl, shp, em, Qwtf)  argument
885      &          em(npro,nshl,nshl),      Qwtf(ngaussf)
899       subroutine getgram2 (x, ien, shgl, shp, shglf, shpf, em, Qwtf)  argument
907      &          em(npro,nshl,nshl),      Qwtf(ngaussf) 
912       call cmassl(shp,shgl,shpf,shglf,xl,em,Qwtf)
921       subroutine getgram3 (x, ien, shgl, shp, shglf, shpf, em, Qwtf)  argument
929      &          em(npro,nshl,nshl),      Qwtf(ngaussf) 
934       call cmasstl(shp,shgl,shpf,shglf,xl,em,Qwtf)
1009      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
1063      &               shp(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
1456      &                   shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf),
1690      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
1699      &          Qwtf(lcsyst,1:ngaussf))
1891      &                   shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf),
2177      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
2564      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
3253      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))
3310      &               shpf(lcsyst,1:nshl,:),Qwtf(lcsyst,1:ngaussf))