/[MITgcm]/MITgcm/tools/genmake2
ViewVC logotype

Diff of /MITgcm/tools/genmake2

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.270 by jmc, Tue Feb 24 17:34:54 2015 UTC revision 1.277 by jmc, Tue Jan 12 20:43:00 2016 UTC
# Line 1964  else Line 1964  else
1964  fi  fi
1965  rm -f genmake_tcomp*  rm -f genmake_tcomp*
1966    
1967  printf "  Do we have the etime() command using $FC...  "  printf "  Do we have the etime() command using $FC... "
1968  cat > genmake_tcomp.$FS <<EOF  cat > genmake_tcomp_1.$FS <<EOF
1969        program hello        program hello
1970        REAL*4 ACTUAL, TARRAY(2)        REAL*4 actual, tarray(2)
1971        EXTERNAL ETIME        EXTERNAL ETIME
1972        REAL*4 ETIME        REAL*4 ETIME
1973        actual = etime( tarray )        actual = ETIME( tarray )
1974        print *, tarray        print *, tarray
1975        end        end
1976  EOF  EOF
1977  $FC $FFLAGS -o genmake_tcomp genmake_tcomp.$FS > genmake_tcomp.log 2>&1  $FC $FFLAGS -o genmake_tcomp_1 genmake_tcomp_1.$FS > genmake_tcomp.log 2>&1
1978  RETVAL=$?  RETVAL=$?
1979  if test "x$RETVAL" = x0 ; then  if test "x$RETVAL" = x0 ; then
1980      HAVE_ETIME=t      HAVE_ETIME='Fct'
1981      DEFINES="$DEFINES -DHAVE_ETIME"      DEFINES="$DEFINES -DHAVE_ETIME_FCT"
1982      echo "yes"      echo " yes (${HAVE_ETIME})"
1983  else  else
1984      cat > genmake_tcomp_2.$FS <<EOF
1985          program hello
1986          REAL*4 actual, tarray(2)
1987          actual = -999.
1988          call ETIME( tarray, actual )
1989          if ( actual.ge.0. ) then
1990            print *, 0, tarray, actual
1991          else
1992            print *, 1, tarray, actual
1993          endif
1994          end
1995    EOF
1996      $FC $FFLAGS -o genmake_tcomp_2 genmake_tcomp_2.$FS >> genmake_tcomp.log 2>&1
1997      RETVAL=$?
1998      if test "x$RETVAL" = x0 ; then
1999        echo -n 'c,'
2000        ./genmake_tcomp_2 > genmake_tcomp_2.out 2>&1
2001        RETVAL=$?
2002      fi
2003      if test "x$RETVAL" = x0 ; then
2004        echo -n 'r:'
2005        RETVAL=`cat genmake_tcomp_2.out | $AWK '{print $1}'`
2006      fi
2007      if test "x$RETVAL" = x0 ; then
2008        HAVE_ETIME='SbR'
2009        DEFINES="$DEFINES -DHAVE_ETIME_SBR"
2010        echo " yes (${HAVE_ETIME})"
2011      else
2012      HAVE_ETIME=      HAVE_ETIME=
2013      echo "no"      echo " no"
2014      fi
2015  fi  fi
2016    #mkdir chk_etime ; cp -p -f genmake_tcomp* chk_etime
2017  rm -f genmake_tcomp*  rm -f genmake_tcomp*
2018    
2019  printf "  Can we call simple C routines (here, \"cloc()\") using $FC...  "  printf "  Can we call simple C routines (here, \"cloc()\") using $FC...  "
# Line 2901  CPPINCLUDES = ${CPPINCLUDES} Line 2931  CPPINCLUDES = ${CPPINCLUDES}
2931  KFLAGS1 = ${KFLAGS1}  KFLAGS1 = ${KFLAGS1}
2932  KFLAGS2 = ${KFLAGS2}  KFLAGS2 = ${KFLAGS2}
2933  # Optim./debug for FC  # Optim./debug for FC
2934  FFLAGS = ${FFLAGS} ${FEXTRAFLAGS}  FFLAGS = ${FFLAGS}
2935  FOPTIM = ${FOPTIM}  FOPTIM = ${FOPTIM} ${FEXTRAFLAGS}
2936  # Optim./debug for FC  # Optim./debug for FC
2937  F90FLAGS = ${F90FLAGS}  F90FLAGS = ${F90FLAGS}
2938  F90OPTIM = ${F90OPTIM}  F90OPTIM = ${F90OPTIM}
# Line 3417  OAD_active.F90 \ Line 3447  OAD_active.F90 \
3447  OAD_cp.F90 \  OAD_cp.F90 \
3448  OAD_rev.F90 \  OAD_rev.F90 \
3449  OAD_tape.F90 \  OAD_tape.F90 \
3450    OAD_regular_cp.F90 \
3451  revolve.F90  revolve.F90
3452    
3453  OPENAD_SUPPORT_C_SRC_FILES = \  OPENAD_SUPPORT_C_SRC_FILES = \
Legend:
Removed from v.1.270  
changed lines
  Added in v.1.277
  ViewVC Help
Powered by ViewVC 1.1.22