subroutine lecsel |
( |
double precision, dimension(*), intent(inout) |
XINIT, |
|
|
double precision, dimension(*), intent(inout) |
YINIT, |
|
|
integer, dimension(nelem,ndp), intent(inout) |
IKINIT, |
|
|
integer, intent(inout) |
NPINIT, |
|
|
integer, intent(inout) |
NEINIT, |
|
|
double precision, dimension(*), intent(inout) |
X, |
|
|
double precision, dimension(*), intent(inout) |
Y, |
|
|
integer, dimension(nelmax,ndp), intent(inout) |
IKLE, |
|
|
integer, dimension(ndp,nelem), intent(inout) |
IKLES, |
|
|
real, dimension(*), intent(inout) |
W, |
|
|
character(len=72), intent(inout) |
TITRE, |
|
|
character(len=32), dimension(26), intent(inout) |
TEXTE, |
|
|
integer, intent(inout) |
NVARIN, |
|
|
integer, intent(inout) |
NVAR2, |
|
|
character(len=3), intent(in) |
STD, |
|
|
logical, intent(in) |
FUSION, |
|
|
integer, intent(in) |
NGEO, |
|
|
integer, intent(in) |
NFO1, |
|
|
integer, dimension(*), intent(inout) |
IPOBO, |
|
|
integer, dimension(10), intent(inout) |
IPARAM, |
|
|
integer, dimension(3), intent(inout) |
DATE, |
|
|
integer, dimension(3), intent(inout) |
TIME, |
|
|
integer, intent(inout) |
X_ORIG, |
|
|
integer, intent(inout) |
Y_ORIG |
|
) |
| |