/[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.275 by jmc, Fri Nov 20 18:12:50 2015 UTC revision 1.276 by jmc, Thu Jan 7 20:21:42 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.$FS <<EOF
1969        program hello        program hello
1970        REAL*4 ACTUAL, TARRAY(2)        REAL*4 actual, tarray(2)
1971        EXTERNAL ETIME        actual = -999.
1972        REAL*4 ETIME        call ETIME( tarray, actual )
1973        actual = etime( tarray )        if ( actual.ge.0. ) then
1974        print *, tarray          print *, 0, tarray, actual
1975          else
1976            print *, 1, tarray, actual
1977          endif
1978        end        end
1979  EOF  EOF
1980  $FC $FFLAGS -o genmake_tcomp genmake_tcomp.$FS > genmake_tcomp.log 2>&1  $FC $FFLAGS -o genmake_tcomp genmake_tcomp.$FS > genmake_tcomp.log 2>&1
1981  RETVAL=$?  RETVAL=$?
1982  if test "x$RETVAL" = x0 ; then  if test "x$RETVAL" = x0 ; then
1983        echo -n 'c,'
1984        ./genmake_tcomp > genmake_tcomp.out 2>&1
1985        RETVAL=$?
1986    fi
1987    if test "x$RETVAL" = x0 ; then
1988        echo -n 'r:'
1989        RETVAL=`cat genmake_tcomp.out | $AWK '{print $1}'`
1990    fi
1991    if test "x$RETVAL" = x0 ; then
1992      HAVE_ETIME=t      HAVE_ETIME=t
1993      DEFINES="$DEFINES -DHAVE_ETIME"      DEFINES="$DEFINES -DHAVE_ETIME"
1994      echo "yes"      echo " yes"
1995  else  else
1996      HAVE_ETIME=      HAVE_ETIME=
1997      echo "no"      echo " no"
1998  fi  fi
1999    #mkdir chk_etime ; cp -p -f genmake_tcomp* chk_etime
2000  rm -f genmake_tcomp*  rm -f genmake_tcomp*
2001    
2002  printf "  Can we call simple C routines (here, \"cloc()\") using $FC...  "  printf "  Can we call simple C routines (here, \"cloc()\") using $FC...  "

Legend:
Removed from v.1.275  
changed lines
  Added in v.1.276

  ViewVC Help
Powered by ViewVC 1.1.22