521 |
|
|
522 |
#- find the largest divisor of input_file proc Nb, but not larger than $np |
#- find the largest divisor of input_file proc Nb, but not larger than $np |
523 |
pp=0 |
pp=0 |
524 |
for i in `seq 1 $px` ; do |
i=1 |
525 |
|
while [ $i -le $px ] ; do |
526 |
if [ `expr $px % $i` -eq 0 ] ; then |
if [ `expr $px % $i` -eq 0 ] ; then |
527 |
for j in `seq 1 $py` ; do |
j=1 |
528 |
if [ `expr $py % $j` -eq 0 ] ; then |
while [ $j -le $py ] ; do |
529 |
ij=`expr $i \* $j` |
if [ `expr $py % $j` -eq 0 ] ; then |
530 |
if [ $ij -gt $pp ] ; then |
ij=`expr $i \* $j` |
531 |
if [ $ij -le $np ] ; then |
if [ $ij -gt $pp ] ; then |
532 |
ix=$i ; jy=$j ; pp=$ij |
if [ $ij -le $np ] ; then |
533 |
#echo " ix,jy= $ix,$jy" |
ix=$i ; jy=$j ; pp=$ij |
534 |
fi |
#echo " ix,jy= $ix,$jy" |
535 |
fi |
fi |
536 |
fi |
fi |
537 |
done |
fi |
538 |
|
j=`expr $j + 1` |
539 |
|
done |
540 |
fi |
fi |
541 |
|
i=`expr $i + 1` |
542 |
done |
done |
543 |
|
|
544 |
#- create new SIZE.h type file: |
#- create new SIZE.h type file: |
693 |
if test "x$MPI" != x0 ; then |
if test "x$MPI" != x0 ; then |
694 |
#- adjust the MPI run command with the right number of Procs |
#- adjust the MPI run command with the right number of Procs |
695 |
#echo "COMMAND='$COMMAND'" |
#echo "COMMAND='$COMMAND'" |
696 |
COMMAND=`echo $COMMAND | sed "s/-np * XX /-np $NPROC_MPI /"` |
COMMAND=`echo $COMMAND | sed "s/ TR_NPROC / $NPROC_MPI /"` |
697 |
|
#COMMAND=`echo $COMMAND | sed "s/ TR_MFILE / $MFILE_MPI /"` |
698 |
#echo "COMMAND='$COMMAND'" |
#echo "COMMAND='$COMMAND'" |
699 |
fi |
fi |
700 |
if test ! -x $EXECUTABLE ; then |
if test ! -x $EXECUTABLE ; then |