_C.c
_C.h
procedure='
'
echo "interface ${procedure}"
echo
echo "end interface ${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 "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 "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 "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 "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}(
)"
echo " use mpi_kinds"
echo " integer, intent(out) :: ierr"
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 "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 "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 "end subroutine ${proc}"
echo
done
echo
done
echo
,
&
,
echo "
character(len=*), dimension(*)
character(len=*), dimension(
,*)
integer(kind=MPI_ADDRESS_KIND)
(kind=MPI_
${kind}_KIND)
, dimension(${dim})
integer
integer
integer
character
(len=*)
UNSUPPORTED
UNSUPPORTED
, dimension(
,
)
integer(kind=MPI_ADDRESS_KIND)
integer(kind=MPI_OFFSET_KIND)
integer(MPI_STATUS_SIZE)
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
external
integer
UNSUPPORTED
UNSUPPORTED
#! /bin/sh
. fortran_kinds.sh