012cc8e8e1
create for all the generating scripts. Do this in fortran_kinds.sh.in, as it's a lot less code than touching each .sh file This commit was SVN r7003.
34 строки
994 B
Bash
34 строки
994 B
Bash
#! /bin/sh
|
|
#
|
|
# Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
# All rights reserved.
|
|
# Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
# 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
|