Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
getl1 | Module: SOCPBL | File: PBL.f |
Author : Ye Cheng/G. Hartke
Version:
Declaration:
subroutine getl1(e, zhat, dzh, lscale, n)
- n :
integer, intent(in)
- array dimension
- e :
real*8, dimension(n-1), intent(in)
- zhat :
real*8, dimension(n-1), intent(in)
- dzh :
real*8, dimension(n-1), intent(in)
- lscale :
real*8, dimension(n-1), intent(out)
- alpha :
real*8, parameter
- Initial Value
= 0.2d0
- sum1 :
real*8
- sum2 :
real*8
- l0 :
real*8
- l1 :
real*8
- j :
integer