_C.c
_C.h
procedure='
'
echo
echo
procedure='
'
echo
echo
proc="${procedure}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo "end subroutine ${proc}"
echo
rank=0
for kind in $lkinds
do
proc="${procedure}${rank}DL${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
rank=0
for kind in $ikinds
do
proc="${procedure}${rank}DI${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
rank=0
for kind in $rkinds
do
proc="${procedure}${rank}DR${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
rank=0
for kind in $ckinds
do
proc="${procedure}${rank}DC${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
for rank in $ranks
do
case "$rank" in 1) dim='*' ; esac
case "$rank" in 2) dim='1,*' ; esac
case "$rank" in 3) dim='1,1,*' ; esac
case "$rank" in 4) dim='1,1,1,*' ; esac
case "$rank" in 5) dim='1,1,1,1,*' ; esac
case "$rank" in 6) dim='1,1,1,1,1,*' ; esac
case "$rank" in 7) dim='1,1,1,1,1,1,*' ; esac
for kind in $lkinds
do
proc="${procedure}${rank}DL${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
for kind in $ikinds
do
proc="${procedure}${rank}DI${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
for kind in $rkinds
do
proc="${procedure}${rank}DR${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
for kind in $ckinds
do
proc="${procedure}${rank}DC${kind}"
echo "subroutine ${proc}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
echo " call ${procedure}(
)"
echo "end subroutine ${proc}"
echo
done
done
,
&
,
echo "
(kind=MPI_
${kind}_KIND)
, dimension(${dim})
integer
integer
character
(len=*)
UNSUPPORTED
UNSUPPORTED
, dimension(
,
)
integer(kind=MPI_ADDRESS_KIND)
integer(kind=MPI_OFFSET_KIND)
integer, dimension(MPI_STATUS_SIZE)
integer
UNSUPPORTED
UNSUPPORTED
#! /bin/sh
. fortran_kinds.sh