Lines Matching refs:em
530 real*8, allocatable, dimension(:,:,:) :: em local
585 allocate ( em(npro,nshl,nshl) )
589 & shglf(lcsyst,:,1:nshl,:), shpf(lcsyst,1:nshl,:), em,
593 & em, lhsG,
597 deallocate ( em )
878 subroutine getgram (x, ien, shgl, shp, em, Qwtf) argument
885 & em(npro,nshl,nshl), Qwtf(ngaussf)
889 call cmass(shp,shgl,xl,em)
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)
1650 real*8, allocatable, dimension(:,:,:) :: em local
1694 allocate ( em(npro,nshl,nshl) )
1698 & shglf(lcsyst,:,1:nshl,:), shpf(lcsyst,1:nshl,:), em,
1706 & em, lhsG,
1710 deallocate ( em )