Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/filtrez

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

Location:

LMDZ6/branches/Amaury_dev/libf/filtrez

Files:

• eigen.f90 (modified) (1 diff)
• lmdz_filtreg.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/filtrez/eigen.f90

@@ -4 +4 @@
   IMPLICIT NONE
   INCLUDE "dimensions.h"
-  real :: e( iim,iim ), d( iim )
-  real :: asm( iim )
-  integer :: im,i,j
+  REAL :: e( iim,iim ), d( iim )
+  REAL :: asm( iim )
+  INTEGER :: im,i,j
   im=iim
   !

LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90

@@ -433 +433 @@
 
     ! local variables:
-    integer :: IP, IQ, I, J
-    real :: SM, TRESH, G, H, T, THETA, C, S, TAU
-    real :: B(N)
-    real :: Z(N)
+    INTEGER :: IP, IQ, I, J
+    REAL :: SM, TRESH, G, H, T, THETA, C, S, TAU
+    REAL :: B(N)
+    REAL :: Z(N)
 
     DO IP = 1, N
@@ -558 +558 @@
   SUBROUTINE acc(vec, d, im)
     IMPLICIT NONE
-    integer :: im
-    real :: vec(im, im), d(im)
-    integer :: i, j
-    real :: sum
+    INTEGER :: im
+    REAL :: vec(im, im), d(im)
+    INTEGER :: i, j
+    REAL :: sum
     real, external :: ssum
     do j = 1, im
@@ -573 +573 @@
       enddo
     enddo
-    return
-  end subroutine acc
+    RETURN
+  END SUBROUTINE acc