Fix for the max-31-F90-symbol-limit problem: keep the interface names

the same (since those are both mandated by MPI and <31 characters),
but change some of the back-end subroutine names so that they are <31
characters and therefore obey the F90 standard.  Remove an outdated /
useless (and confusing) script.

This commit was SVN r7764.

ompi/mpi/f90/scripts/mpi-f90-interfaces.h.sh

@@ -5516,6 +5516,14 @@ procedure='MPI_File_read_ordered_begin'
 echo "interface ${procedure}"
 echo
 rank=0
+
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+procedure=MPI_File_read_ord_begin
+
 for kind in $lkinds
 do
   proc="${procedure}${rank}DL${kind}"
@@ -5636,6 +5644,9 @@ do
   done
   echo
 done
+# JMS: Override -- see above.  Put it back to the full name.
+# #$%@#$%@#$%
+procedure=MPI_File_read_ordered_begin
 echo
 echo "end interface ${procedure}"
 echo
@@ -6917,6 +6928,14 @@ procedure='MPI_File_write_at_all_begin'
 echo "interface ${procedure}"
 echo
 rank=0
+
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+procedure=MPI_File_wr_at_all_begin
+
 for kind in $lkinds
 do
   proc="${procedure}${rank}DL${kind}"
@@ -7053,6 +7072,9 @@ do
   done
   echo
 done
+# JMS: Override -- see above.  Put it back to the full name.
+# #$%@#$%@#$%
+procedure=MPI_File_write_at_all_begin
 echo
 echo "end interface ${procedure}"
 echo

ompi/mpi/f90/scripts/mpi_file_read_ordered_begin_f90.f90.sh

@@ -4,10 +4,17 @@
 
 procedure='MPI_File_read_ordered_begin'
 
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+short=MPI_File_read_ord_begin
+
 rank=0
 for kind in $lkinds
 do
-  proc="${procedure}${rank}DL${kind}"
+  proc="${short}${rank}DL${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -24,7 +31,7 @@ done
 rank=0
 for kind in $ikinds
 do
-  proc="${procedure}${rank}DI${kind}"
+  proc="${short}${rank}DI${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -41,7 +48,7 @@ done
 rank=0
 for kind in $rkinds
 do
-  proc="${procedure}${rank}DR${kind}"
+  proc="${short}${rank}DR${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -58,7 +65,7 @@ done
 rank=0
 for kind in $ckinds
 do
-  proc="${procedure}${rank}DC${kind}"
+  proc="${short}${rank}DC${kind}"
   echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
   echo "  use mpi_kinds"
   echo "  integer, intent(inout) :: fh"
@@ -85,7 +92,7 @@ do
 
   for kind in $lkinds
   do
-    proc="${procedure}${rank}DL${kind}"
+    proc="${short}${rank}DL${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"
@@ -101,7 +108,7 @@ do
 
   for kind in $ikinds
   do
-    proc="${procedure}${rank}DI${kind}"
+    proc="${short}${rank}DI${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"
@@ -117,7 +124,7 @@ do
 
   for kind in $rkinds
   do
-    proc="${procedure}${rank}DR${kind}"
+    proc="${short}${rank}DR${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"
@@ -133,7 +140,7 @@ do
 
   for kind in $ckinds
   do
-    proc="${procedure}${rank}DC${kind}"
+    proc="${short}${rank}DC${kind}"
     echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
     echo "  use mpi_kinds"
     echo "  integer, intent(inout) :: fh"

ompi/mpi/f90/scripts/mpi_file_write_at_all_begin_f90.f90.sh

@@ -4,10 +4,17 @@
 
 procedure='MPI_File_write_at_all_begin'
 
+# JMS: Override -- need to make the back-end function less than 31
+# characters because F90 standard says that symbol max lengths are 31
+# characters.  So change the value of $procedure to something slightly
+# shorter.  $proc, hard code it to something slightly different.
+# #$%@#$%@#$%
+short=MPI_File_wr_at_all_begin
+
 rank=0
 for kind in $lkinds
 do
-  proc="${procedure}${rank}DL${kind}"
+  proc="${short}${rank}DL${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -27,7 +34,7 @@ done
 rank=0
 for kind in $ikinds
 do
-  proc="${procedure}${rank}DI${kind}"
+  proc="${short}${rank}DI${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -47,7 +54,7 @@ done
 rank=0
 for kind in $rkinds
 do
-  proc="${procedure}${rank}DR${kind}"
+  proc="${short}${rank}DR${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -67,7 +74,7 @@ done
 rank=0
 for kind in $ckinds
 do
-  proc="${procedure}${rank}DC${kind}"
+  proc="${short}${rank}DC${kind}"
   echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
   echo "  use mpi_kinds"
@@ -97,7 +104,7 @@ do
 
   for kind in $lkinds
   do
-    proc="${procedure}${rank}DL${kind}"
+    proc="${short}${rank}DL${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"
@@ -116,7 +123,7 @@ do
 
   for kind in $ikinds
   do
-    proc="${procedure}${rank}DI${kind}"
+    proc="${short}${rank}DI${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"
@@ -135,7 +142,7 @@ do
 
   for kind in $rkinds
   do
-    proc="${procedure}${rank}DR${kind}"
+    proc="${short}${rank}DR${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"
@@ -154,7 +161,7 @@ do
 
   for kind in $ckinds
   do
-    proc="${procedure}${rank}DC${kind}"
+    proc="${short}${rank}DC${kind}"
     echo "subroutine ${proc}(fh, offset, buf, count, datatype&
         , ierr)"
     echo "  use mpi_kinds"