675 |
} |
} |
676 |
|
|
677 |
|
|
678 |
|
check_HAVE_STAT() { |
679 |
|
get_fortran_c_namemangling |
680 |
|
cat <<EOF > genmake_tc_1.c |
681 |
|
$FC_NAMEMANGLE |
682 |
|
#include <stdio.h> |
683 |
|
#include <stdlib.h> |
684 |
|
#include <unistd.h> |
685 |
|
#include <sys/stat.h> |
686 |
|
#include <sys/types.h> |
687 |
|
void FC_NAMEMANGLE(tfsize) ( int *nbyte ) |
688 |
|
{ |
689 |
|
char name[512]; |
690 |
|
struct stat astat; |
691 |
|
|
692 |
|
name[0] = 'a'; name[1] = '\0'; |
693 |
|
if (! stat(name, &astat)) |
694 |
|
*nbyte = (int)(astat.st_size); |
695 |
|
else |
696 |
|
*nbyte = -1; |
697 |
|
} |
698 |
|
EOF |
699 |
|
make genmake_tc_1.o >> genmake_tc.log 2>&1 |
700 |
|
RET_C=$? |
701 |
|
cat <<EOF > genmake_tc_2.f |
702 |
|
program hello |
703 |
|
integer nbyte |
704 |
|
call tfsize(nbyte) |
705 |
|
print *," HELLO WORLD", nbyte |
706 |
|
end program hello |
707 |
|
EOF |
708 |
|
$FC $FFLAGS -o genmake_tc genmake_tc_2.f genmake_tc_1.o >> genmake_tc.log 2>&1 |
709 |
|
RET_F=$? |
710 |
|
test -x ./genmake_tc && ./genmake_tc >> genmake_tc.log 2>&1 |
711 |
|
RETVAL=$? |
712 |
|
if test "x$RETVAL" = x0 ; then |
713 |
|
HAVE_STAT=t |
714 |
|
DEFINES="$DEFINES -DHAVE_STAT" |
715 |
|
fi |
716 |
|
rm -f genmake_tc* |
717 |
|
} |
718 |
|
|
719 |
|
|
720 |
check_netcdf_libs() { |
check_netcdf_libs() { |
721 |
echo "" > genmake_tnc.log |
echo "" > genmake_tnc.log |
722 |
cat <<EOF > genmake_tnc.for |
cat <<EOF > genmake_tnc.for |
810 |
HAVE_FDATE= |
HAVE_FDATE= |
811 |
FC_NAMEMANGLE= |
FC_NAMEMANGLE= |
812 |
HAVE_CLOC= |
HAVE_CLOC= |
813 |
|
HAVE_STAT= |
814 |
HAVE_NETCDF= |
HAVE_NETCDF= |
815 |
HAVE_ETIME= |
HAVE_ETIME= |
816 |
|
|
1333 |
echo "yes" |
echo "yes" |
1334 |
else |
else |
1335 |
echo "no" |
echo "no" |
1336 |
|
fi |
1337 |
|
rm -f genmake_t* |
1338 |
|
|
1339 |
|
printf " Can we use stat() through C calls... " |
1340 |
|
check_HAVE_STAT |
1341 |
|
if test "x$HAVE_STAT" != x ; then |
1342 |
|
echo "yes" |
1343 |
|
else |
1344 |
|
echo "no" |
1345 |
fi |
fi |
1346 |
rm -f genmake_t* |
rm -f genmake_t* |
1347 |
|
|