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

Annotation of /MITgcm/tools/f90mkdepend

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


Revision 1.4 - (hide annotations) (download)
Fri Apr 30 19:55:17 2010 UTC (13 years, 11 months ago) by jahn
Branch: MAIN
Changes since 1.3: +27 -26 lines
switch to bash and speed up a little

1 jahn 1.4 #!/bin/bash
2 jahn 1.3 # $Header$
3     # $Name$
4 cnh 1.1 #
5     # Generate some make file dependency entries for a Fortran 90 file that employs "use".
6 jahn 1.4 #
7     # For every "use" statement, generate a dependency on lowercase(modulename).o
8     #
9 cnh 1.1 # Note: We assume that the name of a module and the same of source are the same.
10 jahn 1.3 # The name of the source file should be all lower case (except for the extension).
11 jahn 1.4
12     # don't complain if *.F90 doesn't match any files
13     shopt -s nullglob
14    
15 jahn 1.3 cat /dev/null > f90mkdepend.log
16    
17 jahn 1.4 for filename in *.F90 *.F *.h; do
18     # quick check for "use" to speed up processing
19     if grep -q -i '^ *use ' $filename; then
20     # extract module name in lower case
21     modreflist=$(grep -i '^ *use ' $filename | awk '{sub(/,.*/,"",$2); print tolower($2)}')
22 cnh 1.1
23 jahn 1.3 echo "$filename => $modreflist" >> f90mkdepend.log
24 cnh 1.1
25 jahn 1.4 # 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
38    

  ViewVC Help
Powered by ViewVC 1.1.22