Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/misc/ismin.f90

Timestamp:

Jul 23, 2024, 7:14:34 PM (3 months ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

File:

• LMDZ6/branches/Amaury_dev/libf/misc/ismin.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/misc/ismin.F) (1 diff)

LMDZ6/branches/Amaury_dev/libf/misc/ismin.f90

@@ -2 +2 @@
 ! $Header$
 
-      FUNCTION ismin(n,sx,incx)
-c
-      IMPLICIT NONE
-c
-      integer n,i,incx,ismin,ix
-      real sx((n-1)*incx+1),sxmin
-c
-      ix=1
-      ismin=1
-      sxmin=sx(1)
-      DO i=1,n-1
-         ix=ix+incx
-         if(sx(ix)<sxmin) then
-             sxmin=sx(ix)
-             ismin=i+1
-         endif
-      ENDDO
-c
-      return
-      end
-C
+FUNCTION ismin(n,sx,incx)
+  !
+  IMPLICIT NONE
+  !
+  integer :: n,i,incx,ismin,ix
+  real :: sx((n-1)*incx+1),sxmin
+  !
+  ix=1
+  ismin=1
+  sxmin=sx(1)
+  DO i=1,n-1
+     ix=ix+incx
+     if(sx(ix)<sxmin) then
+         sxmin=sx(ix)
+         ismin=i+1
+     endif
+  ENDDO
+  !
+
+end function ismin
+!