200 REAL(KIND=JPRB) ::
gf3(18)
201 REAL(KIND=JPRB) ::
gf4(18)
204 REAL(KIND=JPRB) ::
rgl(18)
215 REAL(KIND=JPRB) ::
ea
222 REAL(KIND=JPRB) ::
ga
real(kind=jprb), dimension(18) gf3
real(kind=jprb), dimension(18) tref4
integer(kind=jpim) ntvgla
real(kind=jprb), dimension(0:9) sodelx
real(kind=jprb), dimension(18) rctveg
real(kind=jprb), dimension(0:3, 4) gcz0h
real(kind=jprb), dimension(18) gf4
integer(kind=jpim) ntvmer
real(kind=jprb), dimension(18) rgl