From 47c8a5dd1ccc1f3267ad8822d84c9005ed201d3e Mon Sep 17 00:00:00 2001
From: ballabio <ballabio@c92efa57-630b-4861-b058-cf58834340f0>
Date: Fri, 21 Nov 2003 09:53:37 +0000
Subject: [PATCH] fixed problem with uppercase module names [Gerardo]

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@413 c92efa57-630b-4861-b058-cf58834340f0
---
 install/moduledep.sh | 21 +++++++++++----------
 moduledep.sh         | 21 +++++++++++----------
 2 files changed, 22 insertions(+), 20 deletions(-)

diff --git a/install/moduledep.sh b/install/moduledep.sh
index 1723117f8..4836414e1 100755
--- a/install/moduledep.sh
+++ b/install/moduledep.sh
@@ -17,22 +17,23 @@ rm -f moduledep.tmp1 moduledep.tmp2 # destroy previous contents
 # create list of module dependencies
 # each line is of the form:
 # file_name.o : @module_name@
-egrep -i "^ *use " $sources |     # look for "USE name"
+# cast all module names to lowercase because Fortran is case insensitive
+egrep -i "^ *use " $sources |             # look for "USE name"
 sed 's/f90:/o /
-     s/,/ /' |                   # replace extension, insert space
-#                                #   and remove trailing comma
-awk '{print $1 " : @" $3 "@"}' | # create dependency entry
-sort | uniq > moduledep.tmp1     # remove duplicates
+     s/,/ /' |                            # replace extension, insert space
+#                                         #   and remove trailing comma
+awk '{print $1 " : @" tolower($3) "@"}' | # create dependency entry
+sort | uniq > moduledep.tmp1              # remove duplicates
 
 # create list of available modules
 # for each module, create a line of the form:
 # s/@module_name@/file_name/g
-egrep -i "^ *module " $sources_all |   # look for "MODULE name"
+egrep -i "^ *module " $sources_all |           # look for "MODULE name"
 sed 's/f90:/o /
-     s/\//\\\//g' |                   # replace extension, insert space
-#                                     #   and escape slashes
-awk '{print "s/@" $3 "@/" $1 "/" }' | # create substitution line
-sort | uniq > moduledep.tmp2          # remove duplicates
+     s/\//\\\//g' |                            # replace extension, insert
+#                                              #   space and escape slashes
+awk '{print "s/@" tolower($3) "@/" $1 "/" }' | # create substitution line
+sort | uniq > moduledep.tmp2                   # remove duplicates
 
 # replace module names with file names
 # by applying the file of substitution patterns just created
diff --git a/moduledep.sh b/moduledep.sh
index 1723117f8..4836414e1 100755
--- a/moduledep.sh
+++ b/moduledep.sh
@@ -17,22 +17,23 @@ rm -f moduledep.tmp1 moduledep.tmp2 # destroy previous contents
 # create list of module dependencies
 # each line is of the form:
 # file_name.o : @module_name@
-egrep -i "^ *use " $sources |     # look for "USE name"
+# cast all module names to lowercase because Fortran is case insensitive
+egrep -i "^ *use " $sources |             # look for "USE name"
 sed 's/f90:/o /
-     s/,/ /' |                   # replace extension, insert space
-#                                #   and remove trailing comma
-awk '{print $1 " : @" $3 "@"}' | # create dependency entry
-sort | uniq > moduledep.tmp1     # remove duplicates
+     s/,/ /' |                            # replace extension, insert space
+#                                         #   and remove trailing comma
+awk '{print $1 " : @" tolower($3) "@"}' | # create dependency entry
+sort | uniq > moduledep.tmp1              # remove duplicates
 
 # create list of available modules
 # for each module, create a line of the form:
 # s/@module_name@/file_name/g
-egrep -i "^ *module " $sources_all |   # look for "MODULE name"
+egrep -i "^ *module " $sources_all |           # look for "MODULE name"
 sed 's/f90:/o /
-     s/\//\\\//g' |                   # replace extension, insert space
-#                                     #   and escape slashes
-awk '{print "s/@" $3 "@/" $1 "/" }' | # create substitution line
-sort | uniq > moduledep.tmp2          # remove duplicates
+     s/\//\\\//g' |                            # replace extension, insert
+#                                              #   space and escape slashes
+awk '{print "s/@" tolower($3) "@/" $1 "/" }' | # create substitution line
+sort | uniq > moduledep.tmp2                   # remove duplicates
 
 # replace module names with file names
 # by applying the file of substitution patterns just created