| 16 |
|
|
| 17 |
for filename in *.F90 *.F *.h; do |
for filename in *.F90 *.F *.h; do |
| 18 |
# quick check for "use" to speed up processing |
# quick check for "use" to speed up processing |
| 19 |
if grep -q -i '^ *use ' $filename; then |
if grep -i '^ *use ' $filename > /dev/null; then |
| 20 |
# extract module name in lower case |
# extract module name in lower case |
| 21 |
modreflist=$(grep -i '^ *use ' $filename | awk '{sub(/,.*/,"",$2); print tolower($2)}') |
modreflist=$(grep -i '^ *use ' $filename | awk '{print tolower($2)}' | sed 's/,.*$//') |
| 22 |
|
|
| 23 |
echo "$filename => $modreflist" >> f90mkdepend.log |
echo "$filename => $modreflist" >> f90mkdepend.log |
| 24 |
|
|
| 30 |
# ignore modules that don't have an appropriately named source file |
# ignore modules that don't have an appropriately named source file |
| 31 |
if [ -f $m.F90 ] || [ -f $m.F ]; then |
if [ -f $m.F90 ] || [ -f $m.F ]; then |
| 32 |
depline="$depline $m.o" |
depline="$depline $m.o" |
| 33 |
|
elif [ -f ${m%_mod}.F90 ] || [ -f ${m%_mod}.F ]; then |
| 34 |
|
# source file name is module name without "_mod" |
| 35 |
|
depline="$depline ${m%_mod}.o" |
| 36 |
|
else |
| 37 |
|
echo "WARNING: f90mkdepend: no source file found for module $m" 1>&2 |
| 38 |
fi |
fi |
| 39 |
done |
done |
| 40 |
echo $depline |
echo $depline |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch