1156 |
printf " Do we have the etime() command using $FC... " |
printf " Do we have the etime() command using $FC... " |
1157 |
cat > genmake_tcomp.f <<EOF |
cat > genmake_tcomp.f <<EOF |
1158 |
program hello |
program hello |
1159 |
REAL*4 TARRAY(2) |
REAL*4 ACTUAL, TARRAY(2) |
1160 |
call etime( tarray ) |
EXTERNAL ETIME |
1161 |
|
REAL*4 ETIME |
1162 |
|
actual = etime( tarray ) |
1163 |
print *, tarray |
print *, tarray |
1164 |
end |
end |
1165 |
EOF |
EOF |
1797 |
echo 'OBJFILES = $(SRCFILES:.F=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.F90=.o)' >> $MAKEFILE |
echo 'OBJFILES = $(SRCFILES:.F=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.F90=.o)' >> $MAKEFILE |
1798 |
echo >> $MAKEFILE |
echo >> $MAKEFILE |
1799 |
echo '.SUFFIXES:' >> $MAKEFILE |
echo '.SUFFIXES:' >> $MAKEFILE |
1800 |
echo '.SUFFIXES: .o .F .p .'$FS' .c .F90 .'$FS90 >> $MAKEFILE |
echo '.SUFFIXES: .o .'$FS' .p .F .c .'$FS90' .F90' >> $MAKEFILE |
1801 |
rm -f srclist.inc csrclist.inc hlist.inc flist.tmp clist.tmp f90srclist.inc |
rm -f srclist.inc csrclist.inc hlist.inc flist.tmp clist.tmp f90srclist.inc |
1802 |
rm -f ad_flow_files.inc |
rm -f ad_flow_files.inc |
1803 |
|
|