runtests

用于求解大型稀疏线性方程组Ax=b的数值计算库.

#!/bin/csh -f

@ err = 0

dtcscmmf > cscmmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscmmf >> cscmmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscmmf >> cscmmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscmmf >> cscmmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscmmf >> cscmmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscsmf > cscsmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscsmf >> cscsmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscsmf >> cscsmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscsmf >> cscsmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcscsmf >> cscsmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrmmf > csrmmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrmmf >> csrmmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrmmf >> csrmmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrmmf >> csrmmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrmmf >> csrmmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrsmf > csrsmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrsmf >> csrsmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrsmf >> csrsmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrsmf >> csrsmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcsrsmf >> csrsmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoommf > coommf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoommf >> coommf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoommf >> coommf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoommf >> coommf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoommf >> coommf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoosmf > coosmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoosmf >> coosmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoosmf >> coosmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoosmf >> coosmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtcoosmf >> coosmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrmmf > bsrmmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrmmf >> bsrmmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrmmf >> bsrmmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrmmf >> bsrmmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrmmf >> bsrmmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrsmf > bsrsmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrsmf >> bsrsmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrsmf >> bsrsmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrsmf >> bsrsmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbsrsmf >> bsrsmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscmmf > bscmmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscmmf >> bscmmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscmmf >> bscmmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscmmf >> bscmmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscmmf >> bscmmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscsmf > bscsmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscsmf >> bscsmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscsmf >> bscsmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscsmf >> bscsmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbscsmf >> bscsmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbcommf > bcommf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbcommf >> bcommf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbcommf >> bcommf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbcommf >> bcommf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtbcommf >> bcommf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrmmf > vbrmmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrmmf >> vbrmmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrmmf >> vbrmmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrmmf >> vbrmmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrmmf >> vbrmmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrsmf > vbrsmf.out <<EOI
.25 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrsmf >> vbrsmf.out <<EOI
1.0 .50
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrsmf >> vbrsmf.out <<EOI
1.0 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrsmf >> vbrsmf.out <<EOI
0.0 1.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

dtvbrsmf >> vbrsmf.out <<EOI
0.5 0.0
EOI
@ thiserr = $status
if ( $thiserr != 0) then
  @ err = $err + $thiserr
endif

if ( $err == 0 ) then
    echo "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++" 
    echo "+      No errors detected in fortran wrappers for:            +"
    echo "+    dcsrmm, dcsrsm,  dcscmm, dcscsm, dcoomm, dcoosm          +"
    echo "+ dbsrmm, dbsrsm,  dbscmm, dbscsm, dbcomm, dvbrmm, dvbrsm     +"
    echo "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"
else
    echo " Errors reported in runtests: "  $err
endif