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

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

@ -45,21 +45,17 @@ 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
INTEGER kinds: $ikinds
REAL kinds: $rkinds
COMPLEX kinds: $ckinds
LOGICAL kinds: $lkinds
INTEGER kinds: $ikinds
REAL kinds: $rkinds
COMPLEX kinds: $ckinds
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