5f356edb64
- Make the F90 bindings compile and link properly with gfortran 4.0, 4.1, Intel 9.0, PGI 6.1, Sun (don't know version offhand -- the most current as of this writing, I think), and NAG 5.2, although some have limitations (e.g., NAG can't seem to handle the medium and large sizes) - Building the F90 "small" module size is now the default, even for developers - Split up mpif.h into multiple files because parts of it were toxic to the F90 bindings - Properly specify unsized/unshaped arrays to make the bindings work on all known compilers - Make ompi_info show Fortran 90 bindings size - XML somewhat lags the generated scripts as of this commit, but functionality was my main goal -- the XML can be updated later (if at all). This commit was SVN r10118.
167 строки
4.9 KiB
Bash
Исполняемый файл
167 строки
4.9 KiB
Bash
Исполняемый файл
#! /bin/sh
|
|
#
|
|
# Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
|
# University Research and Technology
|
|
# Corporation. All rights reserved.
|
|
# Copyright (c) 2004-2005 The University of Tennessee and The University
|
|
# of Tennessee Research Foundation. All rights
|
|
# reserved.
|
|
# Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
# University of Stuttgart. All rights reserved.
|
|
# Copyright (c) 2004-2005 The Regents of the University of California.
|
|
# All rights reserved.
|
|
# Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
|
|
# $COPYRIGHT$
|
|
#
|
|
# Additional copyrights may follow
|
|
#
|
|
# $HEADER$
|
|
#
|
|
|
|
. "$1/fortran_kinds.sh"
|
|
|
|
procedure='MPI_Sizeof'
|
|
|
|
rank=0
|
|
for kind in $lkinds
|
|
do
|
|
proc="${procedure}${rank}DL${kind}"
|
|
echo "subroutine ${proc}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " logical*${kind}, intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_LOGICAL${kind}"
|
|
echo " ierr = 0"
|
|
echo "end subroutine ${proc}"
|
|
echo
|
|
done
|
|
|
|
for kind in $ikinds
|
|
do
|
|
proc="${procedure}${rank}DI${kind}"
|
|
echo "subroutine ${proc}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " integer*${kind}, intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_INT${kind}"
|
|
echo " ierr = 0"
|
|
echo "end subroutine ${proc}"
|
|
echo
|
|
done
|
|
|
|
for kind in $rkinds
|
|
do
|
|
proc="${procedure}${rank}DR${kind}"
|
|
echo "subroutine ${proc}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " real*${kind}, intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_REAL${kind}"
|
|
echo " ierr = 0"
|
|
echo "end subroutine ${proc}"
|
|
echo
|
|
done
|
|
|
|
for kind in $ckinds
|
|
do
|
|
case "$kind" in 4) size_kind='8' ; esac
|
|
case "$kind" in 8) size_kind='16' ; esac
|
|
case "$kind" in 16) size_kind='32' ; esac
|
|
proc="${procedure}${rank}DC${kind}"
|
|
echo "subroutine ${proc}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " complex*${kind}, intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_COMPLEX${size_kind}"
|
|
echo " ierr = 0"
|
|
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}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " logical*${kind}, dimension(${dim}), intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_LOGICAL${kind}"
|
|
echo " ierr = 0"
|
|
echo "end subroutine ${proc}"
|
|
echo
|
|
done
|
|
|
|
for kind in $ikinds
|
|
do
|
|
proc="${procedure}${rank}DI${kind}"
|
|
echo "subroutine ${proc}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " integer*${kind}, dimension(${dim}), intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_INT${kind}"
|
|
echo " ierr = 0"
|
|
echo "end subroutine ${proc}"
|
|
echo
|
|
done
|
|
|
|
for kind in $rkinds
|
|
do
|
|
proc="${procedure}${rank}DR${kind}"
|
|
echo "subroutine ${proc}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " real*${kind}, dimension(${dim}), intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_REAL${kind}"
|
|
echo " ierr = 0"
|
|
echo "end subroutine ${proc}"
|
|
echo
|
|
done
|
|
|
|
for kind in $ckinds
|
|
do
|
|
case "$kind" in 4) size_kind='8' ; esac
|
|
case "$kind" in 8) size_kind='16' ; esac
|
|
case "$kind" in 16) size_kind='32' ; esac
|
|
proc="${procedure}${rank}DC${kind}"
|
|
echo "subroutine ${proc}(x, size, ierr)"
|
|
echo " implicit none"
|
|
echo " include 'fortran_sizes.h'"
|
|
echo " complex*${kind}, dimension(${dim}), intent(in) :: x"
|
|
echo " integer, intent(out) :: size"
|
|
echo " integer, intent(out) :: ierr"
|
|
echo " size = OMPI_SIZEOF_F90_COMPLEX${size_kind}"
|
|
echo " ierr = 0"
|
|
echo "end subroutine ${proc}"
|
|
echo
|
|
done
|
|
echo
|
|
done
|
|
echo
|
|
echo
|
|
echo
|