mini.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\mini.f
00002 !
00047                      SUBROUTINE MINI
00048 !                    ***************
00049 !
00050      &( XMIN , IMIN , X , NPOIN )
00051 !
00052 !***********************************************************************
00053 ! BIEF   V6P1                                   21/08/2010
00054 !***********************************************************************
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !| IMIN           |<--| INDEX OF MINIMUM
00062 !| NPOIN          |-->| DIMENSION OF X
00063 !| X              |-->| ARRAY WITH VALUES TO LOOK AT
00064 !| XMIN           |<--| THE MINIMUM
00065 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00066 !
00067       IMPLICIT NONE
00068       INTEGER LNG,LU
00069       COMMON/INFO/LNG,LU
00070 !
00071 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00072 !
00073       INTEGER, INTENT(IN)             :: NPOIN
00074       INTEGER, INTENT(INOUT)          :: IMIN
00075       DOUBLE PRECISION, INTENT(INOUT) :: XMIN
00076       DOUBLE PRECISION, INTENT(IN)    :: X(NPOIN)
00077 !
00078 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00079 !
00080       INTEGER I
00081 !
00082 !-----------------------------------------------------------------------
00083 !
00084       XMIN = X(1)
00085       IMIN = 1
00086 !
00087       DO I = 2, NPOIN
00088 !
00089         IF(X(I).LT.XMIN) THEN
00090           IMIN = I
00091           XMIN = X(I)
00092         ENDIF
00093 !
00094       ENDDO ! I
00095 !
00096 !-----------------------------------------------------------------------
00097 !
00098       RETURN
00099       END

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