Go to the source code of this file.
|
subroutine | checkl (I, NNB, XI, XIDOT, RS2, FIRR, FREG, FD, FDR) |
|
subroutine checkl |
( |
|
I, |
|
|
|
NNB, |
|
|
real*8, dimension(3) |
XI, |
|
|
real*8, dimension(3) |
XIDOT, |
|
|
|
RS2, |
|
|
real*8, dimension(3) |
FIRR, |
|
|
real*8, dimension(3) |
FREG, |
|
|
real*8, dimension(3) |
FD, |
|
|
real*8, dimension(3) |
FDR |
|
) |
| |