Prettyprint
This commit was SVN r9046.
Этот коммит содержится в:
родитель
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
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user