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... " |