Lines Matching refs:srcp
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(:)
491 rti (:,4) = rti (:,4) - srcp(:)
495 rLyti(:) = rLyti(:) - srcp(:)
504 srcp = zero