Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
setbak | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine setbak( getbak_flag )
- getbak_flag :
integer, optional
- srax :
real*8, save, dimension(LX, 6, 5)
- sras :
real*8, save, dimension(LX, 6, 5)
- srac :
real*8, save, dimension(LX, 6, 5)
- ifirst :
integer, save
- Initial Value
= 1
- nl0 :
integer, save
- Initial Value
= 0
- sgoldh :
real*8, dimension(5)
- tgoldh :
real*8, dimension(5)
- c :
real*8
- bc :
real*8
- abc :
real*8
- hxpb :
real*8
- hxpt :
real*8
- abcd :
real*8
- i :
integer
- j :
integer
- k :
integer
- l :
integer
- jj :
integer