subroutine OI_FCTVEG |
( |
INTEGER |
IH, |
|
|
REAL |
PVEG, |
|
|
REAL, dimension(24), intent(in) |
VGAT1, |
|
|
REAL, dimension(24), intent(in) |
VGAT2, |
|
|
REAL, dimension(24), intent(in) |
VGAT3, |
|
|
REAL, dimension(24), intent(in) |
VGBT1, |
|
|
REAL, dimension(24), intent(in) |
VGBT2, |
|
|
REAL, dimension(24), intent(in) |
VGBT3, |
|
|
REAL, dimension(24), intent(in) |
VGCT1, |
|
|
REAL, dimension(24), intent(in) |
VGCT2, |
|
|
REAL, dimension(24), intent(in) |
VGAH1, |
|
|
REAL, dimension(24), intent(in) |
VGAH2, |
|
|
REAL, dimension(24), intent(in) |
VGAH3, |
|
|
REAL, dimension(24), intent(in) |
VGBH1, |
|
|
REAL, dimension(24), intent(in) |
VGBH2, |
|
|
REAL, dimension(24), intent(in) |
VGBH3, |
|
|
REAL, dimension(24), intent(in) |
VGCH1, |
|
|
REAL, dimension(24), intent(in) |
VGCH2, |
|
|
REAL, dimension(24), intent(in) |
SIGT2MP, |
|
|
REAL, dimension(24), intent(in) |
SIGHP2, |
|
|
REAL |
G1, |
|
|
REAL |
G2, |
|
|
REAL |
G3, |
|
|
REAL |
G4, |
|
|
REAL |
VGST, |
|
|
REAL |
VGSH, |
|
|
REAL |
VGPT1, |
|
|
REAL |
VGPH1, |
|
|
REAL |
VGPT2, |
|
|
REAL |
VGPH2 |
|
) |
| |