Changeset 5367 for LMDZ6/trunk/libf/phylmd/dyn1d

Timestamp:

Dec 3, 2024, 10:40:13 AM (7 weeks ago)

Author:

abarral

Message:

(WIP) Turn implicit into explicit declarations

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h

@@ -822 +822 @@
       ENDIF
       END
+
       CHARACTER*(*) FUNCTION SPACES(STR,NSPACE)
 !
@@ -831 +832 @@
 !-    replaced by NSPACE blanks inside the string STR
 !
-      CHARACTER*(*) STR
+      CHARACTER*(*), INTENT(OUT) :: str
+      INTEGER, INTENT(INOUT) :: nspace
+      INTEGER :: iblank, inonbl, ispace, lenspa, i, lens
 !
       LENSPA = LEN(SPACES)
@@ -854 +857 @@
       IF (ISPACE.LE.LENSPA)                         GO TO 100
   999 END
-      FUNCTION INDEXC(STR,SSTR)
+
+      INTEGER FUNCTION INDEXC(STR,SSTR)
 !
 ! CERN PROGLIB# M433    INDEXC          .VERSION KERNFOR  4.14  860211
@@ -862 +866 @@
 !-    string STR scanning forward
 !
-      CHARACTER*(*) STR,SSTR
+      CHARACTER*(*), INTENT(IN) :: str, sstr
+      INTEGER :: lens, lenss, i
 !
       LENS   = LEN(STR)