Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/misc/vampir.F90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/misc/vampir.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/vampir.F90

@@ -20 +20 @@
 #ifdef USE_VT
     include 'VT.inc'
-    integer :: ierr
+    INTEGER :: ierr
     
     CALL VTSYMDEF(VTcaldyn,"caldyn","caldyn",ierr)
@@ -33 +33 @@
 #ifdef USE_MPE
     include 'mpe_logf.h' 
-    integer :: ierr,i
+    INTEGER :: ierr,i
     
     DO i=1,nb_inst
@@ -54 +54 @@
 #ifdef USE_VT    
     include 'VT.inc'
-    integer :: ierr
+    INTEGER :: ierr
     
     CALL VTBEGIN(number,ierr)
@@ -60 +60 @@
 #ifdef USE_MPE
     include 'mpe_logf.h' 
-    integer :: ierr,i
+    INTEGER :: ierr,i
     ierr = MPE_Log_event( MPE_begin(number), 0, '' )
 #endif
@@ -71 +71 @@
 #ifdef USE_VT    
     include 'VT.inc'
-    integer :: ierr
+    INTEGER :: ierr
    
     CALL VTEND(number,ierr)
@@ -78 +78 @@
 #ifdef USE_MPE
     include 'mpe_logf.h' 
-    integer :: ierr,i
+    INTEGER :: ierr,i
     ierr = MPE_Log_event( MPE_end(number), 0, '' )
 #endif