Searched refs:srcp (Results 1 – 5 of 5) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | e3source.f | 228 & rti, rLyti, srcp,
283 & bf (npro), srcp (npro),
408 srcp = saCb1*(sclrm*stp+Stilde)
411 if(srcp(i).le.zero .and. srcp(i).le.srcrat(i)) then
412 srcp(i)=srcp(i)
414 srcp(i)=srcrat(i)
416 srcp(i)=zero
431 srcp = zero
462 srcp(ii) = sign_levelset(ii)
480 mytmp = srcp(:) / sqrt( g1yti(:) * g1yti(:)
[all …]
|
| H A D | e3massl.f | 81 & EGmasst,srcp) argument
104 & shpij(npro), srcp(npro)
121 & - shpij*WdetJ(:) * srcp(:)
|
| H A D | e3.f | 373 & Sclr(npro), srcp (npro)
420 srcp = zero
448 & rti, rLyti, srcp,
486 if (ilset.eq.2) srcp = zero
500 & srcp)
523 call e3masslSclr (shape, WdetJ, A0t, EGmasst,srcp)
|
| H A D | e3b.f | 451 & heat(npro), srcp(npro)
523 srcp(ii) = sign_levelset(ii)
541 mytmp = srcp / sqrt ( g1yti * g1yti
|
| H A D | e3ls.f | 783 & srcp) argument
843 & srcp(npro)
953 A1tautA0(:) = Ataut(:)*(a0t(:)*fct1-srcp(:))
983 A2tautA0(:) = Ataut(:)*(a0t(:)*fct1-srcp(:))
1012 A3tautA0(:) = Ataut(:)*(a0t(:)*fct1-srcp(:))
|