2004-11-17 01:25:18 +03:00
|
|
|
#! /bin/sh
|
2004-11-22 03:37:56 +03:00
|
|
|
#
|
2006-02-12 18:11:36 +03:00
|
|
|
# Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
|
2005-11-05 22:57:48 +03:00
|
|
|
# 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.
|
2004-11-28 23:09:25 +03:00
|
|
|
# Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
|
|
# University of Stuttgart. All rights reserved.
|
2005-03-24 15:43:37 +03:00
|
|
|
# Copyright (c) 2004-2005 The Regents of the University of California.
|
|
|
|
# All rights reserved.
|
2006-04-11 07:33:38 +04:00
|
|
|
# Copyright (c) 2006 Cisco Systems, Inc. All rights reserved.
|
2004-11-22 04:38:40 +03:00
|
|
|
# $COPYRIGHT$
|
|
|
|
#
|
|
|
|
# Additional copyrights may follow
|
|
|
|
#
|
2004-11-22 03:37:56 +03:00
|
|
|
# $HEADER$
|
|
|
|
#
|
2004-11-17 01:25:18 +03:00
|
|
|
|
2005-04-12 14:17:52 +04:00
|
|
|
max_array_rank="@OMPI_FORTRAN_MAX_ARRAY_RANK@"
|
2004-11-17 01:25:18 +03:00
|
|
|
|
2006-02-12 18:11:36 +03:00
|
|
|
ikinds="@OMPI_F90_IKINDS@"
|
|
|
|
rkinds="@OMPI_F90_RKINDS@"
|
|
|
|
ckinds="@OMPI_F90_CKINDS@"
|
2006-04-11 07:33:38 +04:00
|
|
|
size="@OMPI_F90_BUILD_SIZE@"
|
2005-08-24 18:55:22 +04:00
|
|
|
|
|
|
|
# fix up for broken generation scripts that don't properly compute the
|
|
|
|
# ranks variable before using it
|
|
|
|
ranks="1"
|
|
|
|
rank="2"
|
|
|
|
while test "`expr $rank \\<= $max_array_rank`" = "1"; do
|
|
|
|
ranks="$ranks $rank"
|
|
|
|
rank="`expr $rank + 1`"
|
|
|
|
done
|
|
|
|
unset rank
|
2006-04-11 07:33:38 +04:00
|
|
|
|
|
|
|
#
|
|
|
|
# Helper function
|
|
|
|
#
|
|
|
|
check_size() {
|
|
|
|
# Sanity check
|
|
|
|
if test "$1" != "trivial" -a "$1" != "small" -a "$1" != "medium" -a \
|
|
|
|
"$1" != "large"; then
|
|
|
|
echo "WARNING: unrecognized size: $1" >&2
|
|
|
|
fi
|
|
|
|
|
|
|
|
# Check the value
|
|
|
|
output=0
|
|
|
|
if test "$1" = "trivial"; then
|
|
|
|
# Since we've got a trivial source, always build it (since
|
|
|
|
# trivial is the smallest allowable size to build, and we
|
|
|
|
# already verified above that the size is valid).
|
|
|
|
output=1
|
|
|
|
elif test "$1" = "small"; then
|
|
|
|
# If we've got a small source, build it unless the user only
|
|
|
|
# requested trivial.
|
|
|
|
if test "$size" != "trivial"; then
|
|
|
|
output=1
|
|
|
|
fi
|
|
|
|
elif test "$1" = "medium"; then
|
|
|
|
# If we've got a medium source, build it only if the user
|
|
|
|
# requested medium or large.
|
|
|
|
if test "$size" = "medium" -o "$size" = "large"; then
|
|
|
|
output=1
|
|
|
|
fi
|
|
|
|
elif test "$1" = "large"; then
|
|
|
|
# If we've got a large source, build it only if the user
|
|
|
|
# requested large.
|
|
|
|
if test "$size" = "large"; then
|
|
|
|
output=1
|
|
|
|
fi
|
|
|
|
fi
|
|
|
|
}
|