Changeset 634 for trunk/LMDZ.COMMON/create_make_gcm

Timestamp:

Apr 26, 2012, 10:03:22 AM (13 years ago)

Author:

emillour

Message:

All GCMs:

• Improved 'create_make_gcm' scripts: better control of wether files are identified as main programs or routines.

EM

File:

• trunk/LMDZ.COMMON/create_make_gcm (modified) (3 diffs)

trunk/LMDZ.COMMON/create_make_gcm

@@ -141 +141 @@
       do
          fili=`basename $i .F`
-         test=` (  head $i | grep '      PROGRAM' ) `
+         # Check if file is a routine or main program
+         # i.e: look for the "program" keword preceeded by leading spaces
+         test=` (  head $i | grep -i '^ *program' ) `
          if [ "$test" = "" ] ; then 
+            # if it is not a main program, add it to the list
             listlib=$listlib" "$fili
          fi
@@ -149 +152 @@
       do
          fili=`basename $i .F90`
-         test=` (  head $i | grep '      PROGRAM' ) `
+         # Check if file is a routine or main program
+         # i.e. look for "program" keyword (with possibly some leading spaces)
+         test=` (  head $i | grep -i '^ \{0,\}program' ) `
          if [ "$test" = "" ] ; then
+            # if it is not a main program, add it to the list
             listlib=$listlib" "$fili
          fi 
@@ -249 +255 @@
       do
          fili=`basename $i .c`
-         test=` (  head $i | grep '      PROGRAM' ) `
+         # Check if file is a function or main program
+         # i.e. look for "int main" keywords (with possibly some leading spaces)
+         test=` (  head $i | grep '^ \{0,\}int main' ) `
          if [ "$test" = "" ] ; then 
+            # if it is not a main program, add it to the list
             listlib=$listlib" "$fili
          fi