Home
last modified time | relevance | path

Searched refs:wght (Results 1 – 8 of 8) sorted by relevance

/phasta/phSolver/common/
H A Dshp10t.f1 subroutine shp10T (QuadPt, nQpt, shp, shgl, wght) argument
40 & shgl(nsd,nen,*), wght(*)
72 wght(m) = QuadPt(4,m)
H A Dshp4t.f1 subroutine shp4T (QuadPt, nQpt, shp, shgl, wght) argument
40 & shgl(nsd,nen,*), wght(*)
70 wght(m) = QuadPt(4,m)
H A Dasithf.f82 wght=Qwtf(intp)
83 WdetJ = wght / tmp
H A Dbardmc.f751 wght = Qwtf(intp)
752 WdetJ(:) = wght / tmp(:)
907 wght=Qwt(lcsyst,intp) ! may be different now
909 WdetJ = wght / tmp
1140 wght=Qwt(lcsyst,intp)
1141 WdetJ = wght / tmp
/phasta/phSolver/compressible/
H A Ditrfdi.f154 & ilwork, shp, shgl, wght,
210 & shgl, wght, iBC,
236 & shgl, wght, iBC,
248 & shgl, wght, iBC,
/phasta/phSolver/AMG/
H A Dramg_coarse.f467 subroutine ramg_initheap(heap,invMap,wght,nheaps,ilen) argument
471 real(kind=8),dimension(0:ilen-1),intent(in) :: wght local
482 do while ( ( k.gt.0 ).and.(wght(heap(k)).gt.wght(heap(j))) )
497 subroutine ramg_popheap(heap,invmap,wght,nheaps,popid,ilen) argument
501 real(kind=8),dimension(0:ilen-1),intent(in) :: wght local
508 call ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen)
512 subroutine ramg_adjheap(heap,invmap,wght,nheaps,popid,ilen) argument
516 real(kind=8),dimension(0:ilen-1),intent(in) :: wght local
523 do while ( (i.gt.0).and.(wght(heap(j)).lt.wght(heap(i))))
536 if ((j.lt.(nheaps-1)).and.(wght(heap(j)).lt.wght(heap(j+1))))
[all …]
/phasta/phSolver/incompressible/
H A Dfilters.f83 wght=Qwtf(intp)
84 WdetJ(:) = wght / tmp(:)
273 wght=Qwt(lcsyst,intp) ! may be different now
275 WdetJ = wght / tmp
483 wght=Qwtf(intp)
484 WdetJ(:) = wght / tmp(:)
687 wght=Qwtf(intp)
688 WdetJ = wght / tmp
862 wght=Qwtf(intp)
863 WdetJ(:) = wght / tmp(:)
[all …]
H A DadvLES.f159 wght=Qwtf(intp)
160 WdetJ = wght / tmp