Searched refs:em (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | cmass.f | 20 subroutine cmass (shp, shgl, xl, em) argument
35 & em(npro,nshl,nshl),
43 em = zero
62 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
73 subroutine cmassl (shp, shgl, shpf, shglf, xl, em, Qwtf) argument
89 & em(npro,nshl,nshl), eml(npro,nshl),
97 em = zero
162 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
180 em = (one-flump)*em
184 em(iel,na,na) = em(iel,na,na)+flump*eml(iel,na)
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 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)
[all …]
|