Home
last modified time | relevance | path

Searched refs:wlnorm (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/common/
H A Dfindslpw.f20 allocate(wlnorm(nshg,nsd,9))
26 wlnorm=0
62 wlnorm(nn,:,islpw)=wlnorm(nn,:,islpw)+elnrm(:)
69 if(numpe.gt.1) call commu(wlnorm(:,:,k),ilwork,3,'in ')
70 call bc3per(iBC,wlnorm(:,:,k),iper,ilwork,3)
71 if(numpe.gt.1) call commu(wlnorm(:,:,k),ilwork,3,'out')
96 AA(:)=wlnorm(nn,:,IDslpw(i))
97 BB(:)=wlnorm(nn,:,IDslpw(j))
101 wlnorm(nn,:,IDslpw(i))=AA(:)+BB(:)
108 wn1(:)=wlnorm(nn,:,k)
[all …]
H A DslpwBC.f1 subroutine slpwBC(nslpw,ihis,iBCg,BCg,BCtmpg,iBC,BC,wlnorm) argument
9 real*8 wlnorm(3,9) local
33 wn1(:)=wlnorm(:,islpw)
60 wn1(:)=wlnorm(:,islpw)
61 wn2(:)=wlnorm(:,jslpw)
108 wn1(:)=wlnorm(:,islpw)
159 wn1(:)=wlnorm(:,islpw)
160 wn2(:)=wlnorm(:,jslpw)
188 wn1(:)=wlnorm(:,islpw)
209 wn1(:)=wlnorm(:,islpw)
[all …]
H A Dmod_slpw.f5 real*8, allocatable :: wlnorm(:,:,:) variable
H A Dgenbc.f109 & wlnorm(nn,:,:) )
117 deallocate(wlnorm)