The TELEMAC-MASCARET system  trunk
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)

## ◆ 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] dimx C A given constant [in] DIM1 First dimension of x, y and z [in] DIMX Second dimension of x [in] DIMY Second dimension of y [in] DIMZ Second dimension of z [in] INFINI Value to put instead of 1/0 [in] IOPT Option 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] NPOIN Size of vectors [in] OP String indicating the operation to be done [out] X Resulting vector [in] Y To be used in the operation [in] Z To be used in the operation [in] ZERO Criterion for division by zero [in] dimy C A given constant [in] DIM1 First dimension of x, y and z [in] DIMX Second dimension of x [in] DIMY Second dimension of y [in] DIMZ Second dimension of z [in] INFINI Value to put instead of 1/0 [in] IOPT Option 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] NPOIN Size of vectors [in] OP String indicating the operation to be done [out] X Resulting vector [in] Y To be used in the operation [in] Z To be used in the operation [in] ZERO Criterion for division by zero [in] dimz C A given constant [in] DIM1 First dimension of x, y and z [in] DIMX Second dimension of x [in] DIMY Second dimension of y [in] DIMZ Second dimension of z [in] INFINI Value to put instead of 1/0 [in] IOPT Option 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] NPOIN Size of vectors [in] OP String indicating the operation to be done [out] X Resulting vector [in] Y To be used in the operation [in] Z To be used in the operation [in] ZERO Criterion for division by zero [in] dim1 C A given constant [in] DIM1 First dimension of x, y and z [in] DIMX Second dimension of x [in] DIMY Second dimension of y [in] DIMZ Second dimension of z [in] INFINI Value to put instead of 1/0 [in] IOPT Option 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] NPOIN Size of vectors [in] OP String indicating the operation to be done [out] X Resulting vector [in] Y To be used in the operation [in] Z To be used in the operation [in] ZERO Criterion for division by zero [in] npoin C A given constant [in] DIM1 First dimension of x, y and z [in] DIMX Second dimension of x [in] DIMY Second dimension of y [in] DIMZ Second dimension of z [in] INFINI Value to put instead of 1/0 [in] IOPT Option 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] NPOIN Size of vectors [in] OP String indicating the operation to be done [out] X Resulting vector [in] Y To be used in the operation [in] Z To be used in the operation [in] ZERO Criterion for division by zero [in] iopt C A given constant [in] DIM1 First dimension of x, y and z [in] DIMX Second dimension of x [in] DIMY Second dimension of y [in] DIMZ Second dimension of z [in] INFINI Value to put instead of 1/0 [in] IOPT Option 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] NPOIN Size of vectors [in] OP String indicating the operation to be done [out] X Resulting vector [in] Y To be used in the operation [in] Z To be used in the operation [in] ZERO Criterion 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: