1
1
This commit was SVN r9046.
Этот коммит содержится в:
Jeff Squyres 2006-02-15 13:19:42 +00:00
родитель ff7a2c7967
Коммит 780154469b

Просмотреть файл

@ -45,7 +45,7 @@ else
fi
cat >&2 <<EOF
Generating:
Generating MPI F90 interface functions:
2 buffer functions: $want_2buf
Max array rank: $max_array_rank
LOGICAL kinds: $lkinds
@ -56,10 +56,6 @@ EOF
# Do the work
echo "Generating F90 interface functions..." >&2
# Setup
rank=2
array_ranks="1"
while test "`expr $rank \\<= $max_array_rank`" = "1"; do