kusano 7d535a
#!/bin/csh
kusano 7d535a
kusano 7d535a
set ofile = dtest.out			# output file
kusano 7d535a
if ( -e $ofile ) then
kusano 7d535a
    rm -f $ofile
kusano 7d535a
endif
kusano 7d535a
echo "Double-precision testing output" > $ofile
kusano 7d535a
kusano 7d535a
set MATRICES     = (LAPACK g10)
kusano 7d535a
set NVAL         = (9 19)
kusano 7d535a
set NRHS         = (5)
kusano 7d535a
set LWORK        = (0 10000000)
kusano 7d535a
kusano 7d535a
#
kusano 7d535a
# Loop through all matrices ...
kusano 7d535a
#
kusano 7d535a
foreach m ($MATRICES)
kusano 7d535a
kusano 7d535a
  #--------------------------------------------
kusano 7d535a
  # Test matrix types generated in LAPACK-style
kusano 7d535a
  #--------------------------------------------
kusano 7d535a
  if  ($m == 'LAPACK') then
kusano 7d535a
      echo '== LAPACK test matrices' >> $ofile
kusano 7d535a
      foreach n ($NVAL)
kusano 7d535a
        foreach s ($NRHS)
kusano 7d535a
          foreach l ($LWORK)
kusano 7d535a
	    echo '' >> $ofile
kusano 7d535a
            echo 'n='$n 'nrhs='$s 'lwork='$l >> $ofile
kusano 7d535a
            ./dtest -t "LA" -l $l -n $n -s $s >> $ofile
kusano 7d535a
          end
kusano 7d535a
        end
kusano 7d535a
      end
kusano 7d535a
  #--------------------------------------------
kusano 7d535a
  # Test a specified sparse matrix
kusano 7d535a
  #--------------------------------------------
kusano 7d535a
  else
kusano 7d535a
    echo '' >> $ofile
kusano 7d535a
    echo '== sparse matrix:' $m >> $ofile
kusano 7d535a
    foreach s ($NRHS)
kusano 7d535a
        foreach l ($LWORK)
kusano 7d535a
	    echo '' >> $ofile
kusano 7d535a
            echo 'nrhs='$s 'lwork='$l >> $ofile
kusano 7d535a
            ./dtest -t "SP" -s $s -l $l < ../EXAMPLE/$m >> $ofile
kusano 7d535a
        end
kusano 7d535a
    end
kusano 7d535a
  endif
kusano 7d535a
kusano 7d535a
end
kusano 7d535a