36 строки
1.1 KiB
Bash
36 строки
1.1 KiB
Bash
#! /bin/sh
|
|
#
|
|
# Copyright (c) 2004-2005 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$
|
|
#
|
|
# Additional copyrights may follow
|
|
#
|
|
# $HEADER$
|
|
#
|
|
|
|
max_array_rank="@OMPI_FORTRAN_MAX_ARRAY_RANK@"
|
|
|
|
lkinds="@OMPI_FORTRAN_LKINDS@"
|
|
ikinds="@OMPI_FORTRAN_IKINDS@"
|
|
rkinds="@OMPI_FORTRAN_RKINDS@"
|
|
ckinds="@OMPI_FORTRAN_CKINDS@"
|
|
|
|
# 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
|