subroutine cotwo |
( |
real, dimension(:), intent(in) |
PCSP, |
|
|
real, dimension(:), intent(in) |
PF2, |
|
|
real, dimension(:), intent(in) |
PIA, |
|
|
real, dimension(:), intent(in) |
PDS, |
|
|
real, dimension(:), intent(in) |
PGAMMT, |
|
|
real, dimension(:), intent(in) |
PFZERO, |
|
|
real, dimension(:), intent(in) |
PEPSO, |
|
|
real, dimension(:), intent(in) |
PANMAX, |
|
|
real, dimension(:), intent(in) |
PGMEST, |
|
|
real, dimension(:), intent(in) |
PGC, |
|
|
real, dimension(:), intent(in) |
PDMAX, |
|
|
real, dimension(:), intent(out) |
PAN, |
|
|
real, dimension(:), intent(out) |
PGS, |
|
|
real, dimension(:), intent(out) |
PRD, |
|
|
real, dimension(:), intent(in) |
PLAITOP, |
|
|
real, dimension(:), intent(in) |
PLAI |
|
) |
| |