Lines Matching refs:up
103 up=sqrt(
108 BC(nodw,7)=savarw(up,rm,saCv1,nodw,x(nodw,:))
187 real*8 u,err,utau,yrmi,y,rm,yp,up,kup,f,dfds,rat,efac local
202 up=u/utau
203 kup=kappa*up
206 f= up-yp+efac*(exp(kup)-1.0-kup - kup2*pt5 - kup3*sxth)
207 dfds=up+yp+efac*(exp(kup)*kup-kup - kup2 - kup3*pt5) !/-utau in rat
252 function savarw(up,rm,cv1,nodw,x)
254 real*8 err,savarw,rm,up,cv1,f,dfds,rat,efac local
265 xmut=rm*kappa*efac*(exp(kappa*up)-1.0-kappa*up
266 & -pt5*(kappa**2)*(up**2))
281 write(*,*) up,rm