Initial version.
This commit was SVN r4030.
Этот коммит содержится в:
Craig E Rasmussen
родитель
e62c6a4fd6
Коммит
6323a0ac4f
208
src/mpi/f90/scripts/mpi_accumulate_f90.f90.sh
Исполняемый файл
208
src/mpi/f90/scripts/mpi_accumulate_f90.f90.sh
Исполняемый файл
@ -0,0 +1,208 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Accumulate'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
136
src/mpi/f90/scripts/mpi_address_f90.f90.sh
Исполняемый файл
136
src/mpi/f90/scripts/mpi_address_f90.f90.sh
Исполняемый файл
@ -0,0 +1,136 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Address'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(location, address, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: location"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(out) :: address"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(location, address, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
209
src/mpi/f90/scripts/mpi_allocate_f90.f90.sh
Исполняемый файл
209
src/mpi/f90/scripts/mpi_allocate_f90.f90.sh
Исполняемый файл
@ -0,0 +1,209 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Accumulate'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, op, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
echo
|
||||
done
|
||||
echo
|
||||
echo
|
||||
echo
|
||||
185
src/mpi/f90/scripts/mpi_allreduce_f90.f90.sh
Исполняемый файл
185
src/mpi/f90/scripts/mpi_allreduce_f90.f90.sh
Исполняемый файл
@ -0,0 +1,185 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Allreduce'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: sendbuf"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: sendbuf"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: sendbuf"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: recvbuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: op"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(sendbuf, recvbuf, count, datatype, op, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
echo
|
||||
done
|
||||
echo
|
||||
echo
|
||||
echo
|
||||
176
src/mpi/f90/scripts/mpi_bcast_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_bcast_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Bcast'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: root"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, count, datatype, root, comm&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_bsend_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_bsend_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Bsend'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_bsend_init_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_bsend_init_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Bsend_init'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
136
src/mpi/f90/scripts/mpi_buffer_attach_f90.f90.sh
Исполняемый файл
136
src/mpi/f90/scripts/mpi_buffer_attach_f90.f90.sh
Исполняемый файл
@ -0,0 +1,136 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Buffer_attach'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buffer"
|
||||
echo " integer, intent(in) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
136
src/mpi/f90/scripts/mpi_buffer_detach_f90.f90.sh
Исполняемый файл
136
src/mpi/f90/scripts/mpi_buffer_detach_f90.f90.sh
Исполняемый файл
@ -0,0 +1,136 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Buffer_detach'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buffer, size, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buffer"
|
||||
echo " integer, intent(out) :: size"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buffer, size, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_file_iread_at_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_file_iread_at_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_iread_at'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_iread_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_iread_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_iread'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_iread_shared_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_iread_shared_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_iread_shared'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_file_iwrite_at_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_file_iwrite_at_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_iwrite_at'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_iwrite_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_iwrite_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_iwrite'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_iwrite_shared_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_iwrite_shared_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_iwrite_shared'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, request&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
152
src/mpi/f90/scripts/mpi_file_read_all_begin_f90.f90.sh
Исполняемый файл
152
src/mpi/f90/scripts/mpi_file_read_all_begin_f90.f90.sh
Исполняемый файл
@ -0,0 +1,152 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_all_begin'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
144
src/mpi/f90/scripts/mpi_file_read_all_end_f90.f90.sh
Исполняемый файл
144
src/mpi/f90/scripts/mpi_file_read_all_end_f90.f90.sh
Исполняемый файл
@ -0,0 +1,144 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_all_end'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_read_all_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_read_all_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_all'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_read_at_all_begin_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_read_at_all_begin_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_at_all_begin'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
144
src/mpi/f90/scripts/mpi_file_read_at_all_end_f90.f90.sh
Исполняемый файл
144
src/mpi/f90/scripts/mpi_file_read_at_all_end_f90.f90.sh
Исполняемый файл
@ -0,0 +1,144 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_at_all_end'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_file_read_at_all_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_file_read_at_all_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_at_all'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_file_read_at_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_file_read_at_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_at'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(in) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_read_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_read_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
152
src/mpi/f90/scripts/mpi_file_read_ordered_begin_f90.f90.sh
Исполняемый файл
152
src/mpi/f90/scripts/mpi_file_read_ordered_begin_f90.f90.sh
Исполняемый файл
@ -0,0 +1,152 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_ordered_begin'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
144
src/mpi/f90/scripts/mpi_file_read_ordered_end_f90.f90.sh
Исполняемый файл
144
src/mpi/f90/scripts/mpi_file_read_ordered_end_f90.f90.sh
Исполняемый файл
@ -0,0 +1,144 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_ordered_end'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_read_ordered_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_read_ordered_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_ordered'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_read_shared_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_read_shared_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_read_shared'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
152
src/mpi/f90/scripts/mpi_file_write_all_begin_f90.f90.sh
Исполняемый файл
152
src/mpi/f90/scripts/mpi_file_write_all_begin_f90.f90.sh
Исполняемый файл
@ -0,0 +1,152 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_all_begin'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
144
src/mpi/f90/scripts/mpi_file_write_all_end_f90.f90.sh
Исполняемый файл
144
src/mpi/f90/scripts/mpi_file_write_all_end_f90.f90.sh
Исполняемый файл
@ -0,0 +1,144 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_all_end'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_write_all_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_write_all_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_all'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_write_at_all_begin_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_write_at_all_begin_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_at_all_begin'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
144
src/mpi/f90/scripts/mpi_file_write_at_all_end_f90.f90.sh
Исполняемый файл
144
src/mpi/f90/scripts/mpi_file_write_at_all_end_f90.f90.sh
Исполняемый файл
@ -0,0 +1,144 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_at_all_end'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_file_write_at_all_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_file_write_at_all_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_at_all'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_file_write_at_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_file_write_at_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_at'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_OFFSET_KIND), intent(in) :: offset"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, offset, buf, count, datatype, &
|
||||
status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_write_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_write_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
152
src/mpi/f90/scripts/mpi_file_write_ordered_begin_f90.f90.sh
Исполняемый файл
152
src/mpi/f90/scripts/mpi_file_write_ordered_begin_f90.f90.sh
Исполняемый файл
@ -0,0 +1,152 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_ordered_begin'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
144
src/mpi/f90/scripts/mpi_file_write_ordered_end_f90.f90.sh
Исполняемый файл
144
src/mpi/f90/scripts/mpi_file_write_ordered_end_f90.f90.sh
Исполняемый файл
@ -0,0 +1,144 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_ordered_end'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_write_ordered_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_write_ordered_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_ordered'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
176
src/mpi/f90/scripts/mpi_file_write_shared_f90.f90.sh
Исполняемый файл
176
src/mpi/f90/scripts/mpi_file_write_shared_f90.f90.sh
Исполняемый файл
@ -0,0 +1,176 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_File_write_shared'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer, intent(inout) :: fh"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(out) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(fh, buf, count, datatype, status&
|
||||
, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
200
src/mpi/f90/scripts/mpi_get_f90.f90.sh
Исполняемый файл
200
src/mpi/f90/scripts/mpi_get_f90.f90.sh
Исполняемый файл
@ -0,0 +1,200 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Get'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_ibsend_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_ibsend_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Ibsend'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_irecv_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_irecv_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Irecv'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_irsend_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_irsend_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Irsend'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_isend_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_isend_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Isend'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_issend_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_issend_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Issend'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
200
src/mpi/f90/scripts/mpi_put_f90.f90.sh
Исполняемый файл
200
src/mpi/f90/scripts/mpi_put_f90.f90.sh
Исполняемый файл
@ -0,0 +1,200 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Put'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: origin_addr"
|
||||
echo " integer, intent(in) :: origin_count"
|
||||
echo " integer, intent(in) :: origin_datatype"
|
||||
echo " integer, intent(in) :: target_rank"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp"
|
||||
echo " integer, intent(in) :: target_count"
|
||||
echo " integer, intent(in) :: target_datatype"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(origin_addr, origin_count, origin_datatype, target_rank, target_disp, &
|
||||
target_count, target_datatype, win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_recv_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_recv_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Recv'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_recv_init_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_recv_init_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Recv_init'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(out) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, source, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_rsend_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_rsend_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Rsend'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: ibuf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(ibuf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_rsend_init_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_rsend_init_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Rsend_init'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_send_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_send_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Send'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_send_init_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_send_init_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Send_init'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
208
src/mpi/f90/scripts/mpi_sendrecv_replace_f90.f90.sh
Исполняемый файл
208
src/mpi/f90/scripts/mpi_sendrecv_replace_f90.f90.sh
Исполняемый файл
@ -0,0 +1,208 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Sendrecv_replace'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(inout) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: sendtag"
|
||||
echo " integer, intent(in) :: source"
|
||||
echo " integer, intent(in) :: recvtag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, sendtag, &
|
||||
source, recvtag, comm, status, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_ssend_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_ssend_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Ssend'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
192
src/mpi/f90/scripts/mpi_ssend_init_f90.f90.sh
Исполняемый файл
192
src/mpi/f90/scripts/mpi_ssend_init_f90.f90.sh
Исполняемый файл
@ -0,0 +1,192 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Ssend_init'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: buf"
|
||||
echo " integer, intent(in) :: count"
|
||||
echo " integer, intent(in) :: datatype"
|
||||
echo " integer, intent(in) :: dest"
|
||||
echo " integer, intent(in) :: tag"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(out) :: request"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(buf, count, datatype, dest, tag, &
|
||||
comm, request, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
184
src/mpi/f90/scripts/mpi_win_create_f90.f90.sh
Исполняемый файл
184
src/mpi/f90/scripts/mpi_win_create_f90.f90.sh
Исполняемый файл
@ -0,0 +1,184 @@
|
||||
#! /bin/sh
|
||||
|
||||
. fortran_kinds.sh
|
||||
|
||||
procedure='MPI_Win_create'
|
||||
|
||||
rank=0
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
rank=0
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
|
||||
for rank in $ranks
|
||||
do
|
||||
case "$rank" in 1) dim=':' ; esac
|
||||
case "$rank" in 2) dim=':,:' ; esac
|
||||
case "$rank" in 3) dim=':,:,:' ; esac
|
||||
case "$rank" in 4) dim=':,:,:,:' ; esac
|
||||
case "$rank" in 5) dim=':,:,:,:,:' ; esac
|
||||
case "$rank" in 6) dim=':,:,:,:,:,:' ; esac
|
||||
case "$rank" in 7) dim=':,:,:,:,:,:,:' ; esac
|
||||
|
||||
for kind in $lkinds
|
||||
do
|
||||
proc="${procedure}${rank}DL${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " logical(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ikinds
|
||||
do
|
||||
proc="${procedure}${rank}DI${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " integer(kind=MPI_INTEGER${kind}_KIND), dimension(${dim}), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $rkinds
|
||||
do
|
||||
proc="${procedure}${rank}DR${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " real(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
|
||||
for kind in $ckinds
|
||||
do
|
||||
proc="${procedure}${rank}DC${kind}"
|
||||
echo "subroutine ${proc}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
echo " use mpi_kinds"
|
||||
echo " complex(kind=MPI_REAL${kind}_KIND), dimension(${dim}), intent(in) :: base"
|
||||
echo " integer(kind=MPI_ADDRESS_KIND), intent(in) :: size"
|
||||
echo " integer, intent(in) :: disp_unit"
|
||||
echo " integer, intent(in) :: info"
|
||||
echo " integer, intent(in) :: comm"
|
||||
echo " integer, intent(in) :: win"
|
||||
echo " integer, intent(out) :: ierr"
|
||||
echo " call ${procedure}(base, size, disp_unit, info, comm, &
|
||||
win, ierr)"
|
||||
|
||||
echo "end subroutine ${proc}"
|
||||
echo
|
||||
done
|
||||
done
|
||||
echo
|
||||
echo
|
||||
|
||||
Загрузка…
x
Ссылка в новой задаче
Block a user