Go to the source code of this file.
|
subroutine | pxcamj (ITKDM, NT, PT, YCUT, NJ, IJ, PJ, IERR) |
|
subroutine pxcamj |
( |
integer |
ITKDM, |
|
|
integer |
NT, |
|
|
real, dimension(itkdm,*) |
PT, |
|
|
real |
YCUT, |
|
|
integer |
NJ, |
|
|
integer, dimension(*) |
IJ, |
|
|
real, dimension(4,*) |
PJ, |
|
|
integer |
IERR |
|
) |
| |