The TELEMAC-MASCARET system  trunk
Functions/Subroutines
lecsel.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine lecsel (XINIT, YINIT, IKINIT, NPINIT, NEINIT, X, Y, IKLE, IKLES, W, TITRE, TEXTE, NVARIN, NVAR2, STD, FUSION, NGEO, NFO1, IPOBO, IPARAM, DATE, TIME, X_ORIG, Y_ORIG)
 

Function/Subroutine Documentation

◆ lecsel()

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 
)
Parameters
[in,out]xinit[–> ] NRES Numero du canal du fichier de serafin

Definition at line 9 of file lecsel.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: