Searched refs:y1 (Results 1 – 4 of 4) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | itrbc.f | 30 real*8 tmp(nshg), y1(nshg),q1(nshg) local
148 call getthm (y1, y(:,5), tmp,
155 y(:,1) = y1
|
| /phasta/phSolver/common/ |
| H A D | dtn.f | 301 real*8 x1,x2,y1,y2,x2old local
334 read (linein,*) x1,x2,y1,y2
344 table(3,i,j,islot) = y1*1.d-0
|
| H A D | bctint.f | 337 function distds(x1,y1,z1,x2,y2,z2)
339 real*8 x1,y1,z1,x2,y2,z2,x,y,z local
341 y=y1-y2
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_mls.f | 672 real(kind=8),dimension(amg_nshg(level)) :: pAux,y,res,y1 local
676 call ramg_mls_apply_fwd(y1,v,r,level,colm,rowp,lhsK,lhsP,
679 call ramg_calcAv_g(level,pAux,y1,colm,rowp,lhsK,lhsP,
687 u = smlsOm(level,1)*y+y1
|