Changeset 3733

Timestamp:

04/10/18 09:50:03 (7 years ago)

Author:

omamce

Message:

O.M. : cut lines to compile with gfortran

File:

• TOOLS/MOSAIX/src/MOSAIX/interpol.f90 (modified) (2 diffs)

TOOLS/MOSAIX/src/MOSAIX/interpol.f90

@@ -38 +38 @@
    CHARACTER (LEN = LEN ( "$Id$" )) :: &
       &   SVN_Id       =  "$Id$"
-   CHARACTER (LEN = LEN ( "$HeadURL$" )) :: &
-      &   SVN_HeadURL  =  "$HeadURL$"
+   CHARACTER (LEN = LEN ( & ! Strange line arrangement to match the max width (132 chars)
+    & "$HeadURL$" &
+    & )) :: &
+    & SVN_HeadURL  =  &
+    & "$HeadURL$"
 
    !!
@@ -85 +88 @@
    WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture domain_src ', 6I9)") rank, ni_src, nj_src
    ALLOCATE ( lon_src (ni_src, nj_src), lat_src (ni_src, nj_src) )
-   WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture lon lat src ', 6I9)") rank, SIZE (lon_src), SHAPE (lon_src), SIZE (lat_src), SHAPE (lat_src)
+   WRITE (UNIT=nout, FMT="('-- ', 1I4.4, ' -- lecture lon lat src ', 6I9)") rank, SIZE (lon_src), &
+      &        SHAPE (lon_src), SIZE (lat_src), SHAPE (lat_src)
    !!
    !