ov_2.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\ov_2.f
00002 !
00050                      SUBROUTINE OV_2
00051 !                    ***************
00052 !
00053      & ( OP , X , DIMX , Y , DIMY , Z , DIMZ , C , DIM1 , NPOIN )
00054 !
00055 !***********************************************************************
00056 ! BIEF   V6P1                                  21/08/2010
00057 !***********************************************************************
00058 !
00059 !
00060 !
00061 !
00062 !
00063 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00064 !| C              |-->| A GIVEN CONSTANT
00065 !| DIM1           |-->| FIRST DIMENSION OF X, Y AND Z
00066 !| DIMX           |-->| SECOND DIMENSION OF X
00067 !| DIMY           |-->| SECOND DIMENSION OF Y
00068 !| DIMZ           |-->| SECOND DIMENSION OF Z
00069 !| NPOIN          |-->| SIZE OF VECTORS
00070 !| OP             |-->| STRING INDICATING THE OPERATION TO BE DONE
00071 !| X              |<--| RESULTING VECTOR
00072 !| Y              |-->| TO BE USED IN THE OPERATION
00073 !| Z              |-->| TO BE USED IN THE OPERATION
00074 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00075 !
00076       IMPLICIT NONE
00077       INTEGER LNG,LU
00078       COMMON/INFO/LNG,LU
00079 !
00080 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00081 !
00082       INTEGER,          INTENT(IN)    :: DIMX,DIMY,DIMZ,DIM1,NPOIN
00083       DOUBLE PRECISION, INTENT(IN)    :: C
00084       CHARACTER(LEN=8), INTENT(IN)    :: OP
00085       DOUBLE PRECISION, INTENT(INOUT) :: X(DIM1,*)
00086       DOUBLE PRECISION, INTENT(IN)    :: Y(DIM1,*),Z(DIM1,*)
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090       CALL OV( OP , X(1,DIMX) , Y(1,DIMY) , Z(1,DIMZ) , C , NPOIN )
00091 !
00092 !-----------------------------------------------------------------------
00093 !
00094       RETURN
00095       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0