Go to the source code of this file.
|
subroutine | sycone (NJREQ, NTRAK, ITKMAX, PTRAK, R, EPS, NJMAX, NJET, PJET, IPASS, IJMUL, IERR) |
|
subroutine sycone |
( |
integer |
NJREQ, |
|
|
integer |
NTRAK, |
|
|
integer |
ITKMAX, |
|
|
real, dimension(itkmax,*) |
PTRAK, |
|
|
real |
R, |
|
|
real |
EPS, |
|
|
integer |
NJMAX, |
|
|
integer |
NJET, |
|
|
real, dimension(itkmax,*) |
PJET, |
|
|
integer, dimension(*) |
IPASS, |
|
|
integer, dimension(*) |
IJMUL, |
|
|
integer |
IERR |
|
) |
| |