Searched refs:ylist (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | aveprep.f | 3 real*8, allocatable :: ylist(:) variable
17 allocate ( ylist(idim) )
39 ylist = zero
52 call getylist( ylist, ifathe(iel:inum,:), shp(lcsyst,1:nshl,:),
208 subroutine getylist (ylist, lfathe, shp, x, ien) argument
214 & xl(npro,nenl,nsd), ylist(idim)
239 ylist(nlist) = yint
246 if( abs(yint-ylist(ilist)) .lt. 0.00001 ) then
253 ylist(nlist) = yint
|