clip.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\clip.f
00002 !
00068                      SUBROUTINE CLIP
00069 !                    ***************
00070 !
00071      &(F,XMIN,CLPMIN,XMAX,CLPMAX,NPOIN)
00072 !
00073 !***********************************************************************
00074 ! BIEF   V6P1                                   21/08/2010
00075 !***********************************************************************
00076 !
00077 !
00078 !
00079 !
00080 !
00081 !
00082 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00083 !| CLPMAX         |-->| LOGICAL, IF YES, CLIPPING OF MAXIMUM VALUE
00084 !| CLPMIN         |-->| LOGICAL, IF YES, CLIPPING OF MINIMUM VALUE
00085 !| F              |<->| ATTAY OF VALUES TO BE CHECKED
00086 !| NPOIN          |-->| NUMBER OF POINTS IN THE DOMAIN
00087 !| XMAX           |-->| MAXIMUM THRESHOLD VALUE
00088 !| XMIN           |-->| MINIMUM THRESHOLD VALUE
00089 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00090 !
00091       USE BIEF, EX_CLIP => CLIP
00092 !
00093       IMPLICIT NONE
00094       INTEGER LNG,LU
00095       COMMON/INFO/LNG,LU
00096 !
00097 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00098 !
00099       TYPE(BIEF_OBJ)  , INTENT(INOUT) :: F
00100       DOUBLE PRECISION, INTENT(IN)    :: XMIN,XMAX
00101       LOGICAL         , INTENT(IN)    :: CLPMIN,CLPMAX
00102       INTEGER         , INTENT(IN)    :: NPOIN
00103 !
00104 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00105 !
00106       INTEGER NP
00107 !
00108 !-----------------------------------------------------------------------
00109 !
00110       IF(F%TYPE.EQ.2) THEN
00111 !       F IS A VECTOR STRUCTURE
00112         IF(NPOIN.LT.0) THEN
00113           NP = - NPOIN
00114         ELSE
00115           NP = F%DIM1
00116         ENDIF
00117         IF(CLPMIN) CALL OV('X=+(Y,C)',F%R,F%R, F%R , XMIN , NP )
00118         IF(CLPMAX) CALL OV('X=-(Y,C)',F%R,F%R, F%R , XMAX , NP )
00119       ELSE
00120         IF(LNG.EQ.1) WRITE(LU,*) F%NAME,' N''EST PAS UN VECTEUR'
00121         IF(LNG.EQ.2) WRITE(LU,*) F%NAME,' IS NOT A VECTOR'
00122         CALL PLANTE(1)
00123         STOP
00124       ENDIF
00125 !
00126 !-----------------------------------------------------------------------
00127 !
00128       RETURN
00129       END

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