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

Go to the source code of this file.

Functions/Subroutines

subroutine lecdoi (F1, NAME1, MODE1, F2, NAME2, MODE2, F3, NAME3, MODE3, NPOIN2, NDON, FFORMAT, AT, TV1, TV2, F11, F12, F21, F22, F31, F32, INDIC, CHDON, NVAR, TEXTE, TROUVE, UNITIME, PHASTIME)
 

Function/Subroutine Documentation

◆ lecdoi()

subroutine lecdoi ( double precision, dimension(npoin2), intent(inout)  F1,
character(len=32), intent(in)  NAME1,
integer, intent(in)  MODE1,
double precision, dimension(npoin2), intent(inout)  F2,
character(len=32), intent(in)  NAME2,
integer, intent(in)  MODE2,
double precision, dimension(npoin2), intent(inout)  F3,
character(len=32), intent(in)  NAME3,
integer, intent(in)  MODE3,
integer, intent(in)  NPOIN2,
integer, intent(in)  NDON,
character(len=8), intent(in)  FFORMAT,
double precision, intent(in)  AT,
double precision, intent(inout)  TV1,
double precision, intent(inout)  TV2,
double precision, dimension(npoin2), intent(inout)  F11,
double precision, dimension(npoin2), intent(inout)  F12,
double precision, dimension(npoin2), intent(inout)  F21,
double precision, dimension(npoin2), intent(inout)  F22,
double precision, dimension(npoin2), intent(inout)  F31,
double precision, dimension(npoin2), intent(inout)  F32,
integer, intent(in)  INDIC,
character(len=7), intent(in)  CHDON,
integer, intent(inout)  NVAR,
character(len=32), dimension(30), intent(inout)  TEXTE,
logical, dimension(3), intent(inout)  TROUVE,
double precision, intent(in)  UNITIME,
double precision, intent(in)  PHASTIME 
)
Parameters
[in]ndonAT Computation time
[in]FONFMTData file format
[in]CHDONName of the variable read from the data file
[out]F1First variable to read
[out]F2Second variable to read
[out]F3Third variable to read
[in,out]F11Data values at time tv1 in the data file for f1
[in,out]F12Data values at time tv2 in the data file for f1
[in,out]F21Data values at time tv1 in the data file for f2
[in,out]F22Data values at time tv2 in the data file for f2
[in,out]F31Data values at time tv1 in the data file for f3
[in,out]F32Data values at time tv2 in the data file for f3
[in]INDICFile format
[in]MODE1Mode: 0= do not read 1= READ IF PRESENT 2= READ AND STOP IF NOT PRESENT
[in]MODE2Like mode1 for second variable
[in]MODE3Like mode1 for third variable
[in]NAME1Name of first variable
[in]NAME2Name of second variable
[in]NAME3Name of third variable
[in]NDONLogical unit number of tha data file
[in]NPOIN2Number of points in 2d mesh
[out]NVARNumber of variables read
[in]PHASTIMETime shift in file
[in,out]TEXTENames of variables in serafin file
[in,out]TROUVE3 logical, will say if variables have been found
[in,out]TV1Data time t1
[in,out]TV2Data time t2
[in]UNITIMEUnit of time in file
[in]npoin2AT Computation time
[in]FONFMTData file format
[in]CHDONName of the variable read from the data file
[out]F1First variable to read
[out]F2Second variable to read
[out]F3Third variable to read
[in,out]F11Data values at time tv1 in the data file for f1
[in,out]F12Data values at time tv2 in the data file for f1
[in,out]F21Data values at time tv1 in the data file for f2
[in,out]F22Data values at time tv2 in the data file for f2
[in,out]F31Data values at time tv1 in the data file for f3
[in,out]F32Data values at time tv2 in the data file for f3
[in]INDICFile format
[in]MODE1Mode: 0= do not read 1= READ IF PRESENT 2= READ AND STOP IF NOT PRESENT
[in]MODE2Like mode1 for second variable
[in]MODE3Like mode1 for third variable
[in]NAME1Name of first variable
[in]NAME2Name of second variable
[in]NAME3Name of third variable
[in]NDONLogical unit number of tha data file
[in]NPOIN2Number of points in 2d mesh
[out]NVARNumber of variables read
[in]PHASTIMETime shift in file
[in,out]TEXTENames of variables in serafin file
[in,out]TROUVE3 logical, will say if variables have been found
[in,out]TV1Data time t1
[in,out]TV2Data time t2
[in]UNITIMEUnit of time in file
[in]indicAT Computation time
[in]FONFMTData file format
[in]CHDONName of the variable read from the data file
[out]F1First variable to read
[out]F2Second variable to read
[out]F3Third variable to read
[in,out]F11Data values at time tv1 in the data file for f1
[in,out]F12Data values at time tv2 in the data file for f1
[in,out]F21Data values at time tv1 in the data file for f2
[in,out]F22Data values at time tv2 in the data file for f2
[in,out]F31Data values at time tv1 in the data file for f3
[in,out]F32Data values at time tv2 in the data file for f3
[in]INDICFile format
[in]MODE1Mode: 0= do not read 1= READ IF PRESENT 2= READ AND STOP IF NOT PRESENT
[in]MODE2Like mode1 for second variable
[in]MODE3Like mode1 for third variable
[in]NAME1Name of first variable
[in]NAME2Name of second variable
[in]NAME3Name of third variable
[in]NDONLogical unit number of tha data file
[in]NPOIN2Number of points in 2d mesh
[out]NVARNumber of variables read
[in]PHASTIMETime shift in file
[in,out]TEXTENames of variables in serafin file
[in,out]TROUVE3 logical, will say if variables have been found
[in,out]TV1Data time t1
[in,out]TV2Data time t2
[in]UNITIMEUnit of time in file

Definition at line 10 of file lecdoi.f.

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