/[MITgcm]/MITgcm/tools/f90mkdepend
ViewVC logotype

Contents of /MITgcm/tools/f90mkdepend

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.5 - (show annotations) (download)
Sat May 1 17:48:17 2010 UTC (13 years, 11 months ago) by jahn
Branch: MAIN
Changes since 1.4: +2 -2 lines
replace -q grep option not supported by older Unix

1 #!/bin/bash
2 # $Header$
3 # $Name$
4 #
5 # Generate some make file dependency entries for a Fortran 90 file that employs "use".
6 #
7 # For every "use" statement, generate a dependency on tolower(modulename).o
8 #
9 # Note: We assume that the name of a module and the same of source are the same.
10 # The name of the source file should be all lower case (except for the extension).
11
12 # don't complain if *.F90 doesn't match any files
13 shopt -s nullglob
14
15 cat /dev/null > f90mkdepend.log
16
17 for filename in *.F90 *.F *.h; do
18 # quick check for "use" to speed up processing
19 if grep -i '^ *use ' $filename > /dev/null; then
20 # extract module name in lower case
21 modreflist=$(grep -i '^ *use ' $filename | awk '{sub(/,.*/,"",$2); print tolower($2)}')
22
23 echo "$filename => $modreflist" >> f90mkdepend.log
24
25 # change .F90 into .f90, .F into .f for target
26 preprocessed=$(echo $filename | sed -e 's/\.F$/.f/' -e 's/\.F90$/.f90/')
27
28 depline="$preprocessed:"
29 for m in $modreflist; do
30 # ignore modules that don't have an appropriately named source file
31 if [ -f $m.F90 ] || [ -f $m.F ]; then
32 depline="$depline $m.o"
33 fi
34 done
35 echo $depline
36 fi
37 done

  ViewVC Help
Powered by ViewVC 1.1.22