Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
z121 | Module: | File: OCNKPP.f |
Author :
Version:
Declaration:
subroutine z121 (v, kmtj, km)
- p5 :
real*8, parameter
- Initial Value
= 5d-1
- p25 :
real*8, parameter
- Initial Value
= 2.5d-1
- kmtj :
integer, intent(in)
- km :
integer, intent(in)
- v :
real*8, intent(inout), dimension(0:km+1)
- k :
integer
- tmp :
real*8