46 |
PKG_GROUPS=$ROOTDIR"/pkg/pkg_groups" |
PKG_GROUPS=$ROOTDIR"/pkg/pkg_groups" |
47 |
if test -r $PKG_GROUPS ; then |
if test -r $PKG_GROUPS ; then |
48 |
cat $PKG_GROUPS | sed -e 's/#.*$//g' | sed -e 's/:/ : /g' > ./p1.tmp |
cat $PKG_GROUPS | sed -e 's/#.*$//g' | sed -e 's/:/ : /g' > ./p1.tmp |
49 |
cat ./p1.tmp | awk '(NF>2 && $2==":"){ print $0 }' > ./p2.tmp |
cat ./p1.tmp | $AWK '(NF>2 && $2==":"){ print $0 }' > ./p2.tmp |
50 |
matched=0 |
matched=0 |
51 |
for i in $PACKAGES ; do |
for i in $PACKAGES ; do |
52 |
line=`grep "^ *$i" ./p2.tmp` |
line=`grep "^ *$i" ./p2.tmp` |
53 |
RETVAL=$? |
RETVAL=$? |
54 |
if test "x$RETVAL" = x0 ; then |
if test "x$RETVAL" = x0 ; then |
55 |
matched=1 |
matched=1 |
56 |
replace=`echo $line | awk '{ $1=""; $2=""; print $0 }'` |
replace=`echo $line | $AWK '{ $1=""; $2=""; print $0 }'` |
57 |
echo " replacing \"$i\" with: $replace" |
echo " replacing \"$i\" with: $replace" |
58 |
new_packages="$new_packages $replace" |
new_packages="$new_packages $replace" |
59 |
else |
else |
136 |
echo " The possible FORTRAN compilers found in your path are:" |
echo " The possible FORTRAN compilers found in your path are:" |
137 |
echo " "$p_FC |
echo " "$p_FC |
138 |
if test "x$FC" = x ; then |
if test "x$FC" = x ; then |
139 |
FC=`echo $p_FC | awk '{print $1}'` |
FC=`echo $p_FC | $AWK '{print $1}'` |
140 |
fi |
fi |
141 |
fi |
fi |
142 |
|
|
202 |
# strip the comments and then convert the dependency file into |
# strip the comments and then convert the dependency file into |
203 |
# two arrays: PNAME, DNAME |
# two arrays: PNAME, DNAME |
204 |
cat $1 | sed -e 's/#.*$//g' \ |
cat $1 | sed -e 's/#.*$//g' \ |
205 |
| awk 'BEGIN{nn=0;} (NF>0){ for(i=2;i<=NF;i++){nn++; print "PNAME["nn"]="$1"\nDNAME["nn"]="$i} }' \ |
| $AWK 'BEGIN{nn=0;} (NF>0){ for(i=2;i<=NF;i++){nn++; print "PNAME["nn"]="$1"\nDNAME["nn"]="$i} }' \ |
206 |
> ./.pd_tmp |
> ./.pd_tmp |
207 |
source ./.pd_tmp |
source ./.pd_tmp |
208 |
rm -f ./.pd_tmp |
rm -f ./.pd_tmp |
319 |
|
|
320 |
PWD=`pwd` |
PWD=`pwd` |
321 |
MAKE=make |
MAKE=make |
322 |
|
AWK=awk |
323 |
THISHOSTNAME=`hostname` |
THISHOSTNAME=`hostname` |
324 |
THISCWD=`pwd` |
THISCWD=`pwd` |
325 |
THISDATE=`date` |
THISDATE=`date` |
722 |
# Strip the comments and then convert the dependency file into |
# Strip the comments and then convert the dependency file into |
723 |
# two arrays: PNAME, DNAME |
# two arrays: PNAME, DNAME |
724 |
cat $PDEPEND | sed -e 's/#.*$//g' \ |
cat $PDEPEND | sed -e 's/#.*$//g' \ |
725 |
| awk 'BEGIN{nn=-1;} (NF>0){ for(i=2;i<=NF;i++){nn++; print "PNAME_"nn"="$1"\nDNAME_"nn"="$i}} END{print "nname="nn}' \ |
| $AWK 'BEGIN{nn=-1;} (NF>0){ for(i=2;i<=NF;i++){nn++; print "PNAME_"nn"="$1"\nDNAME_"nn"="$i}} END{print "nname="nn}' \ |
726 |
> ./.pd_tmp |
> ./.pd_tmp |
727 |
RETVAL=$? |
RETVAL=$? |
728 |
if test ! "x${RETVAL}" = x0 ; then |
if test ! "x${RETVAL}" = x0 ; then |
756 |
else |
else |
757 |
echo " using PDEFAULT=\"$PDEFAULT\"" |
echo " using PDEFAULT=\"$PDEFAULT\"" |
758 |
# Strip the comments and add all the names |
# Strip the comments and add all the names |
759 |
def=`cat $PDEFAULT | sed -e 's/#.*$//g' | awk '(NF>0){print $0}'` |
def=`cat $PDEFAULT | sed -e 's/#.*$//g' | $AWK '(NF>0){print $0}'` |
760 |
RETVAL=$? |
RETVAL=$? |
761 |
if test "x${RETVAL}" != x0 ; then |
if test "x${RETVAL}" != x0 ; then |
762 |
echo -n "Error: can't parse default package list " |
echo -n "Error: can't parse default package list " |
936 |
fi |
fi |
937 |
done |
done |
938 |
if test "x$has_pack" = xf ; then |
if test "x$has_pack" = xf ; then |
939 |
undef=`echo "ALLOW_$n" | awk '{print toupper($0)}'` |
undef=`echo "ALLOW_$n" | $AWK '{print toupper($0)}'` |
940 |
echo "#undef $undef" >> $PACKAGES_DOT_H".tmp" |
echo "#undef $undef" >> $PACKAGES_DOT_H".tmp" |
941 |
# DEFINES="$DEFINES -U$undef" |
# DEFINES="$DEFINES -U$undef" |
942 |
|
|
962 |
C Packages enabled by genmake: |
C Packages enabled by genmake: |
963 |
EOF |
EOF |
964 |
for i in $PACKAGES ; do |
for i in $PACKAGES ; do |
965 |
def=`echo "ALLOW_$i" | awk '{print toupper($0)}'` |
def=`echo "ALLOW_$i" | $AWK '{print toupper($0)}'` |
966 |
echo "#define $def" >> $PACKAGES_DOT_H".tmp" |
echo "#define $def" >> $PACKAGES_DOT_H".tmp" |
967 |
#eh3 DEFINES="$DEFINES -D$def" |
#eh3 DEFINES="$DEFINES -D$def" |
968 |
|
|
1049 |
rm -f ./ad_files |
rm -f ./ad_files |
1050 |
fi |
fi |
1051 |
echo " Creating the list of files for the adjoint compiler." |
echo " Creating the list of files for the adjoint compiler." |
1052 |
for i in $SOURCEDIRS . ; do |
for i in $SOURCEDIRS ; do |
1053 |
list_files=`( cd $i && ls -1 *.list 2>/dev/null )` |
list_files=`( cd $i && ls -1 *.list 2>/dev/null )` |
1054 |
for j in $list_files ; do |
for j in $list_files ; do |
1055 |
cat $i/$j >> ad_files |
cat $i/$j >> ad_files |
1056 |
done |
done |
1057 |
done |
done |
|
cat <<EOF > adjoint_sed |
|
1058 |
|
|
1059 |
sed 's/call adopen(/call adopen ( mythid,\ |
cat <<EOF > adjoint_sed |
1060 |
|
s/call adopen(/call adopen ( mythid,\\ |
1061 |
\& /g |
\& /g |
1062 |
s/call adclose(/call adclose( mythid,\ |
s/call adclose(/call adclose( mythid,\\ |
1063 |
\& /g |
\& /g |
1064 |
s/call adread(/call adread ( mythid,\ |
s/call adread(/call adread ( mythid,\\ |
1065 |
|
\& /g |
1066 |
|
s/call adwrite(/call adwrite( mythid,\\ |
1067 |
\& /g |
\& /g |
|
s/call adwrite(/call adwrite( mythid,\ |
|
|
\& /g' < ad_code_ad.f |
|
1068 |
|
|
1069 |
EOF |
EOF |
|
chmod +x adjoint_sed |
|
|
|
|
1070 |
|
|
1071 |
echo |
echo |
1072 |
echo "=== Creating the Makefile ===" |
echo "=== Creating the Makefile ===" |
1088 |
echo -n 'CSRCFILES = ' > csrclist.inc |
echo -n 'CSRCFILES = ' > csrclist.inc |
1089 |
echo -n 'F90SRCFILES = ' > f90srclist.inc |
echo -n 'F90SRCFILES = ' > f90srclist.inc |
1090 |
echo -n 'HEADERFILES = ' > hlist.inc |
echo -n 'HEADERFILES = ' > hlist.inc |
1091 |
|
echo -n 'AD_FLOW_FILES = ' > ad_flow_files.inc |
1092 |
alldirs="$SOURCEDIRS $INCLUDEDIRS ." |
alldirs="$SOURCEDIRS $INCLUDEDIRS ." |
1093 |
for d in $alldirs ; do |
for d in $alldirs ; do |
1094 |
deplist= |
deplist= |
1095 |
sfiles=`( cd $d; echo *.[h,c,F] )` |
sfiles=`( cd $d; echo *.[h,c,F] *.flow )` |
1096 |
sfiles=`( echo $sfiles; cd $d; echo *.F90 )` |
sfiles=`( echo $sfiles; cd $d; echo *.F90 )` |
1097 |
for sf in $sfiles ; do |
for sf in $sfiles ; do |
1098 |
if test ! -r ".links.tmp/$sf" ; then |
if test ! -r ".links.tmp/$sf" ; then |
1099 |
if test -f "$d/$sf" ; then |
if test -f "$d/$sf" ; then |
1100 |
extn=`echo $sf | awk -F '.' '{print $NF}'` |
extn=`echo $sf | $AWK -F '.' '{print $NF}'` |
1101 |
touch .links.tmp/$sf |
touch .links.tmp/$sf |
1102 |
deplist="$deplist $sf" |
deplist="$deplist $sf" |
1103 |
case $extn in |
case $extn in |
1117 |
echo " \\" >> hlist.inc |
echo " \\" >> hlist.inc |
1118 |
echo -n " $sf" >> hlist.inc |
echo -n " $sf" >> hlist.inc |
1119 |
;; |
;; |
1120 |
|
flow) |
1121 |
|
echo " \\" >> ad_flow_files.inc |
1122 |
|
echo -n " $sf" >> ad_flow_files.inc |
1123 |
|
;; |
1124 |
esac |
esac |
1125 |
fi |
fi |
1126 |
fi |
fi |
1137 |
echo "" >> csrclist.inc |
echo "" >> csrclist.inc |
1138 |
echo "" >> f90srclist.inc |
echo "" >> f90srclist.inc |
1139 |
echo "" >> hlist.inc |
echo "" >> hlist.inc |
1140 |
|
echo "" >> ad_flow_files.inc |
1141 |
|
|
1142 |
if test -e $MAKEFILE ; then |
if test -e $MAKEFILE ; then |
1143 |
mv -f $MAKEFILE "$MAKEFILE.bak" |
mv -f $MAKEFILE "$MAKEFILE.bak" |
1227 |
|
|
1228 |
EOF |
EOF |
1229 |
|
|
1230 |
cat srclist.inc >> $MAKEFILE |
cat srclist.inc >> $MAKEFILE |
1231 |
cat csrclist.inc >> $MAKEFILE |
cat csrclist.inc >> $MAKEFILE |
1232 |
cat f90srclist.inc >> $MAKEFILE |
cat f90srclist.inc >> $MAKEFILE |
1233 |
cat hlist.inc >> $MAKEFILE |
cat hlist.inc >> $MAKEFILE |
1234 |
|
cat ad_flow_files.inc >> $MAKEFILE |
1235 |
echo >> $MAKEFILE |
echo >> $MAKEFILE |
1236 |
echo 'F77FILES = $(SRCFILES:.F=.f)' >> $MAKEFILE |
echo 'F77FILES = $(SRCFILES:.F=.f)' >> $MAKEFILE |
1237 |
echo 'F90FILES = $(F90SRCFILES:.F90=.f90)' >> $MAKEFILE |
echo 'F90FILES = $(F90SRCFILES:.F90=.f90)' >> $MAKEFILE |
1238 |
echo 'OBJFILES = $(SRCFILES:.F=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.F90=.o)' >> $MAKEFILE |
echo 'OBJFILES = $(SRCFILES:.F=.o) $(CSRCFILES:.c=.o) $(F90SRCFILES:.F90=.o)' >> $MAKEFILE |
1239 |
|
|
1240 |
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 |
1241 |
|
rm -f ad_flow_files.inc |
1242 |
|
|
1243 |
cat >>$MAKEFILE <<EOF |
cat >>$MAKEFILE <<EOF |
1244 |
|
|
1274 |
-find \$(EXEDIR) -name "fort.*" -exec rm {} \; |
-find \$(EXEDIR) -name "fort.*" -exec rm {} \; |
1275 |
-rm -f \$(EXECUTABLE) output.txt |
-rm -f \$(EXECUTABLE) output.txt |
1276 |
|
|
1277 |
|
Makefile: makefile |
1278 |
makefile: |
makefile: |
1279 |
${0} $@ |
${0} $@ |
1280 |
cleanlinks: |
cleanlinks: |
1329 |
|
|
1330 |
cat >>$MAKEFILE <<EOF |
cat >>$MAKEFILE <<EOF |
1331 |
|
|
|
# AD_FILES_SMALLF = \$(AD_FILES:.F=.f) |
|
1332 |
|
|
1333 |
EXE_AD_TAMC = ${EXECUTABLE}_ad_tamc |
ad_input_code.f: \$(F77FILES) |
1334 |
\$(EXE_AD_TAMC): \$(OBJFILES) |
@make \$(AD_FLOW_FILES) |
1335 |
|
cat \$(AD_FLOW_FILES) \$(AD_FILES) > ad_input_code.f |
1336 |
|
|
1337 |
|
|
1338 |
EXE_AD_TAF = ${EXECUTABLE} |
ad_taf_output.f: ad_input_code.f |
|
ad_taf: \$(OBJFILES) |
|
|
cat \$(AD_FILES) >! ad_input_code.f |
|
1339 |
\$(TAF) \$(AD_TAF_FLAGS) ad_input_code.f |
\$(TAF) \$(AD_TAF_FLAGS) ad_input_code.f |
1340 |
./adjoint_sed >! ad_output_code.f |
cat ad_input_code_ad.f | sed -f adjoint_sed > ad_taf_output.f |
1341 |
@make ad_output_code.o |
|
1342 |
\$(LINK) -o ${EXECUTABLE} \$(FFLAGS) \$(FOPTIM) \$(OBJFILES) ad_output_code.o \$(LIBS) |
ad_taf: ad_taf_output.o \$(OBJFILES) |
1343 |
|
\$(LINK) -o ${EXECUTABLE} \$(FFLAGS) \$(FOPTIM) \$(OBJFILES) ad_taf_output.o \$(LIBS) |
1344 |
|
|
1345 |
|
|
1346 |
|
ad_tamc_output.f: ad_input_code.f |
1347 |
|
\$(TAMC) \$(AD_TAMC_FLAGS) ad_input_code.f |
1348 |
|
cat ad_input_code_ad.f | sed -f adjoint_sed > ad_taf_output.f |
1349 |
|
|
1350 |
|
ad_tamc: ad_tamc_output.o \$(OBJFILES) |
1351 |
|
\$(LINK) -o ${EXECUTABLE} \$(FFLAGS) \$(FOPTIM) \$(OBJFILES) ad_tamc_output.o \$(LIBS) |
1352 |
|
|
1353 |
|
|
1354 |
|
flt_taf_output.f: ad_input_code.f |
1355 |
|
\$(TAF) \$(FTL_TAF_FLAGS) ad_input_code.f |
1356 |
|
cat ad_input_code_ad.f | sed -f adjoint_sed > flt_taf_output.f |
1357 |
|
|
1358 |
|
flt_taf: flt_taf_output.o \$(OBJFILES) |
1359 |
|
\$(LINK) -o ${EXECUTABLE} \$(FFLAGS) \$(FOPTIM) \$(OBJFILES) flt_taf_output.o \$(LIBS) |
1360 |
|
|
|
EXE_FTL_TAMC = ${EXECUTABLE}_ftl_tamc |
|
|
EXE_FTL_TAF = ${EXECUTABLE}_ftl_taf |
|
1361 |
|
|
|
EXE_SVD_TAF = ${EXECUTABLE}_ftl_taf |
|
|
EXE_BOTH_TAF = ${EXECUTABLE}_ftl_taf |
|
1362 |
|
|
1363 |
#========================================= |
#========================================= |
1364 |
|
|