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

Go to the source code of this file.

Functions/Subroutines

subroutine ovd_2 (OP, X, DIMX, Y, DIMY, Z, DIMZ, C, DIM1, NPOIN, IOPT, INFINI, ZERO)
 

Function/Subroutine Documentation

◆ ovd_2()

subroutine ovd_2 ( character(len=8), intent(in)  OP,
double precision, dimension(dim1,*), intent(inout)  X,
integer, intent(in)  DIMX,
double precision, dimension(dim1,*), intent(in)  Y,
integer, intent(in)  DIMY,
double precision, dimension(dim1,*), intent(in)  Z,
integer, intent(in)  DIMZ,
double precision, intent(in)  C,
integer, intent(in)  DIM1,
integer, intent(in)  NPOIN,
integer, intent(in)  IOPT,
double precision, intent(in)  INFINI,
double precision, intent(in)  ZERO 
)
Parameters
[in]dimxC A given constant
[in]DIM1First dimension of x, y and z
[in]DIMXSecond dimension of x
[in]DIMYSecond dimension of y
[in]DIMZSecond dimension of z
[in]INFINIValue to put instead of 1/0
[in]IOPTOption for divisions by zero 1: NO TEST DONE (WILL CRASH IF DIVISION BY 0.). 2: INFINITE TERMS REPLACED BY CONSTANT INFINI. 3: STOP IF DIVISION BY ZERO. 4: DIVISIONS BY 0. REPLACED BY DIVISIONS/ZERO ZERO BEING AN OPTIONAL ARGUMENT
[in]NPOINSize of vectors
[in]OPString indicating the operation to be done
[out]XResulting vector
[in]YTo be used in the operation
[in]ZTo be used in the operation
[in]ZEROCriterion for division by zero
[in]dimyC A given constant
[in]DIM1First dimension of x, y and z
[in]DIMXSecond dimension of x
[in]DIMYSecond dimension of y
[in]DIMZSecond dimension of z
[in]INFINIValue to put instead of 1/0
[in]IOPTOption for divisions by zero 1: NO TEST DONE (WILL CRASH IF DIVISION BY 0.). 2: INFINITE TERMS REPLACED BY CONSTANT INFINI. 3: STOP IF DIVISION BY ZERO. 4: DIVISIONS BY 0. REPLACED BY DIVISIONS/ZERO ZERO BEING AN OPTIONAL ARGUMENT
[in]NPOINSize of vectors
[in]OPString indicating the operation to be done
[out]XResulting vector
[in]YTo be used in the operation
[in]ZTo be used in the operation
[in]ZEROCriterion for division by zero
[in]dimzC A given constant
[in]DIM1First dimension of x, y and z
[in]DIMXSecond dimension of x
[in]DIMYSecond dimension of y
[in]DIMZSecond dimension of z
[in]INFINIValue to put instead of 1/0
[in]IOPTOption for divisions by zero 1: NO TEST DONE (WILL CRASH IF DIVISION BY 0.). 2: INFINITE TERMS REPLACED BY CONSTANT INFINI. 3: STOP IF DIVISION BY ZERO. 4: DIVISIONS BY 0. REPLACED BY DIVISIONS/ZERO ZERO BEING AN OPTIONAL ARGUMENT
[in]NPOINSize of vectors
[in]OPString indicating the operation to be done
[out]XResulting vector
[in]YTo be used in the operation
[in]ZTo be used in the operation
[in]ZEROCriterion for division by zero
[in]dim1C A given constant
[in]DIM1First dimension of x, y and z
[in]DIMXSecond dimension of x
[in]DIMYSecond dimension of y
[in]DIMZSecond dimension of z
[in]INFINIValue to put instead of 1/0
[in]IOPTOption for divisions by zero 1: NO TEST DONE (WILL CRASH IF DIVISION BY 0.). 2: INFINITE TERMS REPLACED BY CONSTANT INFINI. 3: STOP IF DIVISION BY ZERO. 4: DIVISIONS BY 0. REPLACED BY DIVISIONS/ZERO ZERO BEING AN OPTIONAL ARGUMENT
[in]NPOINSize of vectors
[in]OPString indicating the operation to be done
[out]XResulting vector
[in]YTo be used in the operation
[in]ZTo be used in the operation
[in]ZEROCriterion for division by zero
[in]npoinC A given constant
[in]DIM1First dimension of x, y and z
[in]DIMXSecond dimension of x
[in]DIMYSecond dimension of y
[in]DIMZSecond dimension of z
[in]INFINIValue to put instead of 1/0
[in]IOPTOption for divisions by zero 1: NO TEST DONE (WILL CRASH IF DIVISION BY 0.). 2: INFINITE TERMS REPLACED BY CONSTANT INFINI. 3: STOP IF DIVISION BY ZERO. 4: DIVISIONS BY 0. REPLACED BY DIVISIONS/ZERO ZERO BEING AN OPTIONAL ARGUMENT
[in]NPOINSize of vectors
[in]OPString indicating the operation to be done
[out]XResulting vector
[in]YTo be used in the operation
[in]ZTo be used in the operation
[in]ZEROCriterion for division by zero
[in]ioptC A given constant
[in]DIM1First dimension of x, y and z
[in]DIMXSecond dimension of x
[in]DIMYSecond dimension of y
[in]DIMZSecond dimension of z
[in]INFINIValue to put instead of 1/0
[in]IOPTOption for divisions by zero 1: NO TEST DONE (WILL CRASH IF DIVISION BY 0.). 2: INFINITE TERMS REPLACED BY CONSTANT INFINI. 3: STOP IF DIVISION BY ZERO. 4: DIVISIONS BY 0. REPLACED BY DIVISIONS/ZERO ZERO BEING AN OPTIONAL ARGUMENT
[in]NPOINSize of vectors
[in]OPString indicating the operation to be done
[out]XResulting vector
[in]YTo be used in the operation
[in]ZTo be used in the operation
[in]ZEROCriterion for division by zero

Definition at line 8 of file ovd_2.f.

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