1
1

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.
Этот коммит содержится в:
Jeff Squyres 2005-10-14 19:50:30 +00:00
родитель 2c909383bb
Коммит f47c272986
4 изменённых файлов: 52 добавлений и 13035 удалений

Просмотреть файл

@ -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

Разница между файлами не показана из-за своего большого размера Загрузить разницу

Просмотреть файл

@ -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"

Просмотреть файл

@ -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"