elmsec.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	elmsec (ELPSEC, SEUSEC, TPSFIN, X, Y, IKLE, NCOLOR, ISDRY, IHAUT, NVAR, H, WORK, NEW, STD, NGEO, TEXTE)

Function/Subroutine Documentation

elmsec()

subroutine elmsec	(	logical, intent(in)	ELPSEC,
		double precision, intent(in)	SEUSEC,
		double precision, dimension(1), intent(inout)	TPSFIN,
		double precision, dimension(npmax), intent(inout)	X,
		double precision, dimension(npmax), intent(inout)	Y,
		integer, dimension(nelmax,4), intent(inout)	IKLE,
		integer, dimension(npmax), intent(inout)	NCOLOR,
		integer, dimension(npmax), intent(inout)	ISDRY,
		integer, intent(in)	IHAUT,
		integer, intent(in)	NVAR,
		double precision, dimension(npmax), intent(inout)	H,
		real, dimension(*), intent(inout)	WORK,
		integer, dimension(npmax), intent(inout)	NEW,
		character(len=3), intent(in)	STD,
		integer, intent(in)	NGEO,
		character(len=32), dimension(nvar), intent(in)	TEXTE
	)

Parameters

[in]	elpsec	[–> ] NRES Numero du canal du fichier de serafin

Definition at line 8 of file elmsec.f.

Here is the call graph for this function:

Here is the caller graph for this function: