Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
gtsalb | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine gtsalb(gin, tauin, rbbout, rbbin, egin, tauout, kgtaur)
- gin :
real*8, intent(in)
- tauin :
real*8, intent(in)
- rbbin :
real*8, intent(in)
- egin :
real*8, intent(in)
- kgtaur :
integer, intent(in)
- rbbout :
real*8, intent(out)
- tauout :
real*8, intent(out)
- ffkg :
real*8, dimension(4, 3)
- rbbk :
real*8, dimension(3)
- gvalue :
real*8, parameter, dimension(14)
- Initial Value
= (/.0,.25,.45,.50,.55, .60,.65,.70,.75,.80,.85,.90,.95,1./)
- rbb :
real*8
- g :
real*8
- tau :
real*8
- eg :
real*8
- deltau :
real*8
- ti :
real*8
- wtj :
real*8
- wti :
real*8
- gi :
real*8
- wgi :
real*8
- wgj :
real*8
- f1 :
real*8
- f2 :
real*8
- f3 :
real*8
- f4 :
real*8
- f21 :
real*8
- f32 :
real*8
- f43 :
real*8
- f3221 :
real*8
- f4332 :
real*8
- a :
real*8
- b :
real*8
- c :
real*8
- d :
real*8
- xf :
real*8
- ffcusp :
real*8
- xexm :
real*8
- fflinr :
real*8
- rb2 :
real*8
- rb3 :
real*8
- tbb :
real*8
- tb2 :
real*8
- tb3 :
real*8
- xg :
real*8
- xm :
real*8
- xp :
real*8
- rbbb :
real*8
- ri :
real*8
- wrj :
real*8
- wri :
real*8
- ei :
real*8
- wei :
real*8
- wej :
real*8
- delalb :
real*8
- x1 :
real*8
- x2 :
real*8
- x3 :
real*8
- x4 :
real*8
- xx :
real*8
- bb :
real*8
- dtau :
real*8
- i :
integer
- j :
integer
- k :
integer
- kterpl :
integer
- it :
integer
- jt :
integer
- ig :
integer
- jg :
integer
- iterpl :
integer
- igm :
integer
- jgp :
integer
- kg :
integer
- ir :
integer
- jr :
integer
- ie :
integer
- je :
integer
- iem :
integer
- jep :
integer
- compute :
real*8, external