1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#! /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 Regents of the University of California.
# All rights reserved.
# Copyright (c) 2006-2007 Cisco Systems, Inc. All rights reserved.
# $COPYRIGHT$
#
# Additional copyrights may follow
#
# $HEADER$
#
# This flie was not generated by XML scripts; it was written by hand.
# It may be generated someday, but at this point, it was simpler to
# just write it by hand.
. "$1/fortran_kinds.sh"
# This entire file is only generated in small or larger modules. So
# if we're not at least small, bail now.
check_size small
if test "$output" = "0"; then
exit 0
fi
# Ok, we should continue.
output() {
suffix=$1
status_type=$2
cat <<EOF
subroutine MPI_Testall${suffix}(count, array_of_requests, flag, array_of_statuses, ierr)
include 'mpif-config.h'
integer, intent(in) :: count
integer, dimension(count), intent(inout) :: array_of_requests
logical, intent(out) :: flag
$status_type, intent(out) :: array_of_statuses
integer, intent(out) :: ierr
call MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierr)
end subroutine MPI_Testall${suffix}
EOF
}
# S = array of statuses, I = STATUSES_IGNORE
output S "integer, dimension(MPI_STATUS_SIZE, count)"
output I "double precision"
|
