281 |
cat > genmake_test.c <<EOF |
cat > genmake_test.c <<EOF |
282 |
void tcall( char * string ) { tsub( string ); } |
void tcall( char * string ) { tsub( string ); } |
283 |
EOF |
EOF |
284 |
$MAKE genmake_test.o > genmake_test.log 2>&1 |
$MAKE genmake_test.o >> genmake_warnings 2>&1 |
285 |
RETVAL=$? |
RETVAL=$? |
286 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
|
cat genmake_test.log >> genmake_errors |
|
287 |
FC_NAMEMANGLE=$default_nm |
FC_NAMEMANGLE=$default_nm |
288 |
echo |
cat <<EOF>> genmake_errors |
289 |
echo "WARNING: C test compile fails -- please see \"genmake_errors\"" |
|
290 |
echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'" |
WARNING: C test compile fails |
291 |
echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here." |
WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE' |
292 |
rm -f genmake_tcomp.* genmake_test.* |
WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here |
293 |
|
EOF |
294 |
return 1 |
return 1 |
295 |
fi |
fi |
296 |
c_tcall=`nm genmake_test.o | grep tcall | cut -d ' ' -f 3` |
c_tcall=`nm genmake_test.o | grep tcall | cut -d ' ' -f 3` |
297 |
RETVAL=$? |
RETVAL=$? |
298 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
299 |
FC_NAMEMANGLE=$default_nm |
FC_NAMEMANGLE=$default_nm |
300 |
echo |
cat <<EOF>> genmake_warnings |
301 |
echo "WARNING: The \"nm\" command failed." |
|
302 |
echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'" |
WARNING: The "nm" command failed. |
303 |
echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here." |
WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE' |
304 |
rm -f genmake_tcomp.* genmake_test.* |
WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here |
305 |
|
EOF |
306 |
return 1 |
return 1 |
307 |
fi |
fi |
308 |
cat > genmake_tcomp.f <<EOF |
cat > genmake_tcomp.f <<EOF |
311 |
call tsub( string ) |
call tsub( string ) |
312 |
end |
end |
313 |
EOF |
EOF |
314 |
$FC $FFLAGS $DEFINES -c genmake_tcomp.f > genmake_tcomp.log 2>&1 |
$FC $FFLAGS $DEFINES -c genmake_tcomp.f >> genmake_warnings 2>&1 |
315 |
RETVAL=$? |
RETVAL=$? |
316 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
|
cat genmake_tcomp.log >> genmake_errors |
|
317 |
FC_NAMEMANGLE=$default_nm |
FC_NAMEMANGLE=$default_nm |
318 |
echo |
cat <<EOF>> genmake_warnings |
319 |
echo "WARNING: FORTRAN test compile fails -- please see \"genmake_errors\"" |
|
320 |
echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'" |
WARNING: FORTRAN test compile fails -- please see "genmake_errors" |
321 |
echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here." |
WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE' |
322 |
rm -f genmake_tcomp.* genmake_test.* |
WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here. |
323 |
|
EOF |
324 |
return 1 |
return 1 |
325 |
fi |
fi |
326 |
f_tcall=`nm genmake_tcomp.o | grep tcall | cut -d ' ' -f 3` |
f_tcall=`nm genmake_tcomp.o | grep tcall | cut -d ' ' -f 3` |
327 |
RETVAL=$? |
RETVAL=$? |
328 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
329 |
FC_NAMEMANGLE=$default_nm |
FC_NAMEMANGLE=$default_nm |
330 |
echo |
cat <<EOF>> genmake_warnings |
331 |
echo "WARNING: The \"nm\" command failed." |
|
332 |
echo "WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE'" |
WARNING: The "nm" command failed. |
333 |
echo "WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here." |
WARNING: We'll try to use: FC_NAMEMANGLE='$FC_NAMEMANGLE' |
334 |
rm -f genmake_tcomp.* genmake_test.* |
WARNING: Please contact <MITgcm-support@mitgcm.org> if you need help here. |
335 |
|
EOF |
336 |
return 1 |
return 1 |
337 |
fi |
fi |
338 |
|
|
359 |
rm -f genmake_tcomp.* genmake_test.* |
rm -f genmake_tcomp.* genmake_test.* |
360 |
} |
} |
361 |
|
|
362 |
|
|
363 |
|
check_HAVE_CLOC() { |
364 |
|
get_fortran_c_namemangling |
365 |
|
cat <<EOF > genmake_tc_1.c |
366 |
|
$FC_NAMEMANGLE |
367 |
|
#include <stdio.h> |
368 |
|
#include <stdlib.h> |
369 |
|
#include <unistd.h> |
370 |
|
#include <assert.h> |
371 |
|
#include <sys/time.h> |
372 |
|
void FC_NAMEMANGLE(cloc) ( double *curtim ) |
373 |
|
{ |
374 |
|
struct timeval tv1; |
375 |
|
gettimeofday(&tv1 , (void *)NULL ); |
376 |
|
*curtim = (double)((tv1.tv_usec)+(tv1.tv_sec)*1.E6); |
377 |
|
*curtim = *curtim/1.E6; |
378 |
|
} |
379 |
|
EOF |
380 |
|
make genmake_tc_1.o >> genmake_tc.log 2>&1 |
381 |
|
RET_C=$? |
382 |
|
cat <<EOF > genmake_tc_2.f |
383 |
|
program hello |
384 |
|
Real*8 wtime |
385 |
|
external cloc |
386 |
|
call cloc(wtime) |
387 |
|
print *," HELLO WORLD", wtime |
388 |
|
end program hello |
389 |
|
EOF |
390 |
|
$FC $FFLAGS -o genmake_tc genmake_tc_2.f genmake_tc_1.o >> genmake_tc.log 2>&1 |
391 |
|
RET_F=$? |
392 |
|
test -x ./genmake_tc && ./genmake_tc >> genmake_tc.log 2>&1 |
393 |
|
RETVAL=$? |
394 |
|
if test "x$RETVAL" = x0 ; then |
395 |
|
HAVE_CLOC=t |
396 |
|
DEFINES="$DEFINES -DHAVE_CLOC" |
397 |
|
fi |
398 |
|
rm -f genmake_tc* |
399 |
|
} |
400 |
|
|
401 |
|
|
402 |
# Set defaults here |
# Set defaults here |
403 |
COMMANDL="$0 $@" |
COMMANDL="$0 $@" |
404 |
|
|
434 |
HAVE_SYSTEM= |
HAVE_SYSTEM= |
435 |
HAVE_FDATE= |
HAVE_FDATE= |
436 |
FC_NAMEMANGLE= |
FC_NAMEMANGLE= |
437 |
|
HAVE_CLOC= |
438 |
|
|
439 |
MODS= |
MODS= |
440 |
TOOLSDIR= |
TOOLSDIR= |
751 |
fi |
fi |
752 |
fi |
fi |
753 |
|
|
754 |
# Check that FC, LINK, CPP, S64, and LN are defined. If not, |
# Check that FC, LINK, CPP, S64, LN, and MAKE are defined. If not, |
755 |
# complain and abort! |
# either set defaults or complain and abort! |
756 |
if test "x$FC" = x ; then |
if test "x$FC" = x ; then |
757 |
cat <<EOF 1>&2 |
cat <<EOF 1>&2 |
758 |
|
|
769 |
if test "x$CPP" = x ; then |
if test "x$CPP" = x ; then |
770 |
CPP="cpp" |
CPP="cpp" |
771 |
fi |
fi |
772 |
|
if test "x$MAKE" = x ; then |
773 |
|
MAKE="make" |
774 |
|
fi |
775 |
echo "#define A a" | $CPP > test_cpp 2>&1 |
echo "#define A a" | $CPP > test_cpp 2>&1 |
776 |
RETVAL=$? |
RETVAL=$? |
777 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
808 |
fi |
fi |
809 |
rm -f genmake_test_ln genmake_tlink |
rm -f genmake_test_ln genmake_tlink |
810 |
|
|
811 |
|
|
812 |
printf "\n=== Checking system libraries ===\n" |
printf "\n=== Checking system libraries ===\n" |
813 |
echo -n " Do we have the system() command using $FC... " |
echo -n " Do we have the system() command using $FC... " |
814 |
cat > genmake_tcomp.f <<EOF |
cat > genmake_tcomp.f <<EOF |
849 |
fi |
fi |
850 |
rm -f genmake_tcomp* |
rm -f genmake_tcomp* |
851 |
|
|
852 |
echo " The name mangling convention for $FC is... " |
echo -n " Can we call simple C routines (here, \"cloc()\") using $FC... " |
853 |
#FC_NAMEMANGLE="#define FC_NAMEMANGLE(X) X ## _" |
check_HAVE_CLOC |
854 |
if test "x$FC_NAMEMANGLE" = x ; then |
if test "x$HAVE_CLOC" != x ; then |
855 |
get_fortran_c_namemangling |
echo "yes" |
856 |
|
else |
857 |
|
echo "no" |
858 |
fi |
fi |
|
echo " '$FC_NAMEMANGLE'" |
|
859 |
echo "$FC_NAMEMANGLE" > FC_NAMEMANGLE.h.template |
echo "$FC_NAMEMANGLE" > FC_NAMEMANGLE.h.template |
860 |
cmp FC_NAMEMANGLE.h FC_NAMEMANGLE.h.template > /dev/null 2>&1 |
cmp FC_NAMEMANGLE.h FC_NAMEMANGLE.h.template > /dev/null 2>&1 |
861 |
RETVAL=$? |
RETVAL=$? |
862 |
if test "x$RETVAL" != x0 ; then |
if test "x$RETVAL" != x0 ; then |
863 |
mv -f FC_NAMEMANGLE.h.template FC_NAMEMANGLE.h |
mv -f FC_NAMEMANGLE.h.template FC_NAMEMANGLE.h |
864 |
fi |
fi |
865 |
|
rm -f genmake_t* |
866 |
|
|
867 |
|
|
868 |
printf "\n=== Setting defaults ===\n" |
printf "\n=== Setting defaults ===\n" |