Go to the source code of this file.
|
subroutine | cls_t (PTA, PQA, PPA, PPS, PHT, PCD, PCH, PRI, PTS, PZ0H, PH, PTNM) |
|
subroutine cls_t |
( |
real, dimension(:), intent(in) |
PTA, |
|
|
real, dimension(:), intent(in) |
PQA, |
|
|
real, dimension(:), intent(in) |
PPA, |
|
|
real, dimension(:), intent(in) |
PPS, |
|
|
real, dimension(:), intent(in) |
PHT, |
|
|
real, dimension(:), intent(in) |
PCD, |
|
|
real, dimension(:), intent(in) |
PCH, |
|
|
real, dimension(:), intent(in) |
PRI, |
|
|
real, dimension(:), intent(in) |
PTS, |
|
|
real, dimension(:), intent(in) |
PZ0H, |
|
|
real, dimension(:), intent(in) |
PH, |
|
|
real, dimension(:), intent(out) |
PTNM |
|
) |
| |