Ignore:
Timestamp:
May 10, 2000, 12:32:47 PM (25 years ago)
Author:
lmdzadmin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/create_make_gcm

    r79 r87  
    5858   echo 'COMPILE = $(F77) $(OPTIM) $(INCLUDE) -c'
    5959   echo 'COMPILE90 = $(F90) $(OPTIM90) $(INCLUDE) -c'
     60   echo 'COMPTRU90 = $(F90) $(OPTIMTRU90) $(INCLUDE) -c'
    6061   echo 'LINK    = f90'
    6162   echo "AR      = ar"
     
    109110do
    110111   if [ -d $diri ] ; then
    111    if [ "`ls $diri/*.F`" != "" ] ; then
     112   if [ "`ls $diri/*.F`" != "" ] || [ "`ls $diri/*.F90`" != "" ]  ; then
    112113      cd $diri >/dev/null 2>&1
    113114      echo
     
    121122         fi
    122123      done
     124      for i in `ls *.F90`
     125      do
     126         fili=`basename $i .F90`
     127         test=` (  head $i | grep '      PROGRAM' ) `
     128         if [ "$test" = "" ] ; then
     129            listlib=$listlib" "$fili
     130         fi
     131      done
    123132#
    124133      echo
     
    140149      for fili in $listlib
    141150      do
    142          F90=0 ; egrep -i '^ *use ' $fili.F > /dev/null 2>&1 && F90=1
    143                  egrep -i '^ *module ' $fili.F > /dev/null 2>&1 && F90=1
    144          str1='$(LIBO)/lib'$diri'.a('$fili'.o) : $(LIBF)/'$diri/$fili.F
     151         if [ -f $fili.F90 ] ; then
     152           trufile=$fili.F90
     153         else
     154           trufile=$fili.F
     155         fi
     156         F90=0 ; egrep -i '^ *use ' $trufile > /dev/null 2>&1 && F90=1
     157                 egrep -i '^ *module ' $trufile > /dev/null 2>&1 && F90=1
     158         str1='$(LIBO)/lib'$diri'.a('$fili'.o) : $(LIBF)/'$diri/$trufile
    145159         [ "$fili" = "chem.subs" ] && str1=$str1' $(LIBF)/'$diri/chem.mods.F
    146          for stri in ` ( sed -n "/\#include/s/\#include//p" $fili.F | sed 's/\"//g' ; egrep -i '^ *use ' $fili.F | awk ' { print $2 } ' ) `
     160         for stri in ` ( sed -n "/\#include/s/\#include//p" $trufile | sed 's/\"//g' ; egrep -i '^ *use ' $trufile | awk ' { print $2 } ' ) `
    147161         do
    148162            stri=`echo $stri | tr [A-Z] [a-z]`
     
    151165               str1='$(LIBF)/'$diri'/'$stri
    152166            else
    153                if [ -f $stri.F ] ; then
     167               if [ -f $stri.F ] || [ -f $stri.F90 ] ; then
    154168                  str1='$(LIBO)/lib'$diri'.a('$stri'.o)'
    155169               else
     
    166180         echo $str1
    167181         if [ "$F90" -eq '0' ] ; then
    168             echo '      cd $(LOCAL_DIR); \'
    169             echo '      $(COMPILE) $(LIBF)/'$diri'/'$fili'.F ; \'
     182        echo '  cd $(LOCAL_DIR); \'
     183            echo '      $(COMPILE) $(LIBF)/'$diri'/'$trufile' ; \'
    170184         else
    171             echo '      cd $(LOCAL_DIR); \'
    172             echo '      $(COMPILE90) $(LIBF)/'$diri'/'$fili'.F ; \'
    173             MODU=0; egrep -i ' *module ' $fili.F> /dev/null 2>&1 && MODU=1
     185        echo '  cd $(LOCAL_DIR); \'
     186        if [ -f $fili.F90 ] ; then
     187              echo '    $(COMPTRU90) $(LIBF)/'$diri'/'$trufile' ; \'
     188        else
     189              echo '    $(COMPILE90) $(LIBF)/'$diri'/'$trufile' ; \'
     190        fi
     191            MODU=0; egrep -i ' *module ' $trufile> /dev/null 2>&1 && MODU=1
    174192            if [ "$MODU" -eq '1' -a "$CRAY" != '1' ] ; then
    175193              if [ "$os" = 'UNIX_System_V' ] ; then
Note: See TracChangeset for help on using the changeset viewer.