#! /bin/csh -f
#
#  test the DA2_gather() and DA2_gatherZero() methods
#
#  created -- 97mar08, cca
#

set msglvl       =        1
set msgFile      =   stdout
set nrowB        =       44
set ncolB        =       34
set inc1B        =        1
set inc2B        =   $nrowB
set nrowA        =      110
set nrowA        =   $nrowB
set ncolA        =      100
set ncolA        =   $ncolB
set inc1A        =        1
set inc2A        =   $nrowA
set seed         =        1
set flag         =        1

foreach flag ( 1 2 )
   foreach nrowA ( 110 $nrowB )
      foreach ncolA ( 110 $ncolB )
         set inc2A        =        1
         set inc1A        =   $ncolA
         test_gather $msglvl $msgFile \
                     $nrowB $ncolB $inc1B $inc2B \
                     $nrowA $ncolA $inc1A $inc2A \
                     $seed $flag
         set inc1A        =        1
         set inc2A        =   $nrowA
         test_gather $msglvl $msgFile \
                     $nrowB $ncolB $inc1B $inc2B \
                     $nrowA $ncolA $inc1A $inc2A \
                     $seed $flag
      end
   end
end

