Go to the source code of this file.
|
| subroutine | ecrsel (VAINIT, IKINIT, NPINIT, NEINIT, SHP, ELT, NPOIN, NPOIN1, NPMAX, W, X, ZF, NSFOND, NCOLOR, COLOR, VAR, NVARIN, NVAROU, NVAR2, STD, FUSION, NRES, NGEO, NFO1, MAILLE, TEXTE) |
| |
◆ ecrsel()
| subroutine ecrsel |
( |
double precision, dimension(npinit), intent(inout) |
VAINIT, |
|
|
integer, dimension(neinit,3), intent(in) |
IKINIT, |
|
|
integer, intent(in) |
NPINIT, |
|
|
integer, intent(in) |
NEINIT, |
|
|
double precision, dimension(npmax,3), intent(in) |
SHP, |
|
|
integer, dimension(npoin), intent(in) |
ELT, |
|
|
integer, intent(in) |
NPOIN, |
|
|
integer, intent(in) |
NPOIN1, |
|
|
integer, intent(in) |
NPMAX, |
|
|
real, dimension(*), intent(inout) |
W, |
|
|
double precision, dimension(npoin), intent(inout) |
X, |
|
|
double precision, dimension(npoin), intent(in) |
ZF, |
|
|
integer, intent(in) |
NSFOND, |
|
|
integer, dimension(npoin), intent(in) |
NCOLOR, |
|
|
logical, intent(in) |
COLOR, |
|
|
double precision, dimension(npoin), intent(inout) |
VAR, |
|
|
integer, intent(in) |
NVARIN, |
|
|
integer, intent(in) |
NVAROU, |
|
|
integer, intent(in) |
NVAR2, |
|
|
character(len=3), intent(in) |
STD, |
|
|
logical, intent(in) |
FUSION, |
|
|
integer, intent(in) |
NRES, |
|
|
integer, intent(in) |
NGEO, |
|
|
integer, intent(in) |
NFO1, |
|
|
character(len=9), intent(in) |
MAILLE, |
|
|
character(len=32), dimension(nvarin), intent(in) |
TEXTE |
|
) |
| |
- Parameters
-
| [in] | npinit | [–> ] NRES Numero du canal du fichier de serafin |
| | |
Definition at line 9 of file ecrsel.f.
Here is the call graph for this function: