Changeset 87

Timestamp:

May 10, 2000, 12:32:47 PM (24 years ago)

Author:

lmdzadmin

Message:

Une distinction entre les *.F et les *.F90 est effectuee dans cette
version
LF

File:

• LMDZ.3.3/branches/rel-LF/create_make_gcm (modified) (6 diffs)

LMDZ.3.3/branches/rel-LF/create_make_gcm

@@ -58 +58 @@
    echo 'COMPILE = $(F77) $(OPTIM) $(INCLUDE) -c'
    echo 'COMPILE90 = $(F90) $(OPTIM90) $(INCLUDE) -c'
+   echo 'COMPTRU90 = $(F90) $(OPTIMTRU90) $(INCLUDE) -c'
    echo 'LINK    = f90'
    echo "AR      = ar"
@@ -109 +110 @@
 do
    if [ -d $diri ] ; then
-   if [ "`ls $diri/*.F`" != "" ] ; then 
+   if [ "`ls $diri/*.F`" != "" ] || [ "`ls $diri/*.F90`" != "" ]  ; then 
       cd $diri >/dev/null 2>&1
       echo
@@ -121 +122 @@
          fi
       done
+      for i in `ls *.F90`
+      do
+         fili=`basename $i .F90`
+         test=` (  head $i | grep '      PROGRAM' ) `
+         if [ "$test" = "" ] ; then
+            listlib=$listlib" "$fili
+         fi 
+      done
 #
       echo
@@ -140 +149 @@
       for fili in $listlib
       do
-         F90=0 ; egrep -i '^ *use ' $fili.F > /dev/null 2>&1 && F90=1
-                 egrep -i '^ *module ' $fili.F > /dev/null 2>&1 && F90=1
-         str1='$(LIBO)/lib'$diri'.a('$fili'.o) : $(LIBF)/'$diri/$fili.F
+         if [ -f $fili.F90 ] ; then
+           trufile=$fili.F90
+         else
+           trufile=$fili.F
+         fi
+         F90=0 ; egrep -i '^ *use ' $trufile > /dev/null 2>&1 && F90=1
+                 egrep -i '^ *module ' $trufile > /dev/null 2>&1 && F90=1
+         str1='$(LIBO)/lib'$diri'.a('$fili'.o) : $(LIBF)/'$diri/$trufile
          [ "$fili" = "chem.subs" ] && str1=$str1' $(LIBF)/'$diri/chem.mods.F
-         for stri in ` ( sed -n "/\#include/s/\#include//p" $fili.F | sed 's/\"//g' ; egrep -i '^ *use ' $fili.F | awk ' { print $2 } ' ) `
+         for stri in ` ( sed -n "/\#include/s/\#include//p" $trufile | sed 's/\"//g' ; egrep -i '^ *use ' $trufile | awk ' { print $2 } ' ) `
          do
             stri=`echo $stri | tr [A-Z] [a-z]`
@@ -151 +165 @@
                str1='$(LIBF)/'$diri'/'$stri
             else
-               if [ -f $stri.F ] ; then
+               if [ -f $stri.F ] || [ -f $stri.F90 ] ; then
                   str1='$(LIBO)/lib'$diri'.a('$stri'.o)'
                else
@@ -166 +180 @@
          echo $str1
          if [ "$F90" -eq '0' ] ; then
-            echo '      cd $(LOCAL_DIR); \'
-            echo '      $(COMPILE) $(LIBF)/'$diri'/'$fili'.F ; \'
+        echo '  cd $(LOCAL_DIR); \'
+            echo '      $(COMPILE) $(LIBF)/'$diri'/'$trufile' ; \'
          else
-            echo '      cd $(LOCAL_DIR); \'
-            echo '      $(COMPILE90) $(LIBF)/'$diri'/'$fili'.F ; \'
-            MODU=0; egrep -i ' *module ' $fili.F> /dev/null 2>&1 && MODU=1
+        echo '  cd $(LOCAL_DIR); \'
+        if [ -f $fili.F90 ] ; then
+              echo '    $(COMPTRU90) $(LIBF)/'$diri'/'$trufile' ; \'
+        else
+              echo '    $(COMPILE90) $(LIBF)/'$diri'/'$trufile' ; \'
+        fi
+            MODU=0; egrep -i ' *module ' $trufile> /dev/null 2>&1 && MODU=1
             if [ "$MODU" -eq '1' -a "$CRAY" != '1' ] ; then
               if [ "$os" = 'UNIX_System_V' ] ; then