subroutine fm3sel |
( |
double precision, dimension(*), intent(in) |
X, |
|
|
double precision, dimension(*), intent(in) |
Y, |
|
|
integer, intent(inout) |
NPOIN, |
|
|
integer, dimension(*), intent(in) |
NBOR, |
|
|
integer, intent(in) |
NFIC, |
|
|
character(len=3), intent(in) |
STD, |
|
|
integer, intent(inout) |
NVAR, |
|
|
character(len=32), dimension(*), intent(in) |
TEXTE, |
|
|
character(len=32), dimension(*), intent(inout) |
TEXTLU, |
|
|
character(len=32), dimension(nvarcl), intent(in) |
VARCLA, |
|
|
integer, intent(in) |
NVARCL, |
|
|
character(len=72), intent(in) |
TITRE, |
|
|
logical, dimension(*), intent(in) |
SORLEO, |
|
|
integer, intent(in) |
NSOR, |
|
|
real, dimension(*), intent(inout) |
W, |
|
|
integer, dimension(*), intent(inout) |
IKLE, |
|
|
integer, dimension(*), intent(inout) |
IKLES, |
|
|
integer, dimension(*), intent(inout) |
ITRAV, |
|
|
integer, intent(inout) |
NELEM, |
|
|
integer, intent(inout) |
NPTFR, |
|
|
integer, intent(inout) |
NDP, |
|
|
integer, intent(inout) |
MXPTVS, |
|
|
integer, intent(inout) |
MXELVS, |
|
|
integer, dimension(3), intent(inout) |
DATE, |
|
|
integer, dimension(3), intent(inout) |
TIME, |
|
|
logical, intent(in) |
DEBU, |
|
|
logical, intent(in) |
SUIT, |
|
|
logical, intent(in) |
ECRI, |
|
|
logical, intent(in) |
LISTIN, |
|
|
integer, dimension(10), intent(in) |
IPARAM, |
|
|
integer, dimension(*), intent(in) |
IPOBO, |
|
|
integer, intent(in) |
X_ORIG, |
|
|
integer, intent(in) |
Y_ORIG |
|
) |
| |