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 fi
cat >&2 <<EOF cat >&2 <<EOF
Generating: Generating MPI F90 interface functions:
2 buffer functions: $want_2buf 2 buffer functions: $want_2buf
Max array rank: $max_array_rank Max array rank: $max_array_rank
LOGICAL kinds: $lkinds LOGICAL kinds: $lkinds
INTEGER kinds: $ikinds INTEGER kinds: $ikinds
REAL kinds: $rkinds REAL kinds: $rkinds
COMPLEX kinds: $ckinds COMPLEX kinds: $ckinds
EOF EOF
# Do the work # Do the work
echo "Generating F90 interface functions..." >&2
# Setup
rank=2 rank=2
array_ranks="1" array_ranks="1"
while test "`expr $rank \\<= $max_array_rank`" = "1"; do while test "`expr $rank \\<= $max_array_rank`" = "1"; do