scaleq.f90

subroutine i2mex_scaleQ (psii, qi, ier)

Apply Bateman's scaling to get q=qi at surface psii

real(i2mex_r8), intent(in) :: psii, qi

integer, intent(out) :: ier

Send comments about this document to Alexander Ppletzer. Thu Jan 26 12:43:47 2006