matrix_test

来自「完全使用C++写的高效线性代数运算库！还提供了矩阵类。」· 代码 · 共 39 行

#! /bin/csh -f

#
#              LAPACK++ 1.0 Linear Algebra Package 1.0
#               University of Tennessee, Knoxvilee, TN.
#            Oak Ridge National Laboratory, Oak Ridge, TN.
#        Authors: J. J. Dongarra, E. Greaser, R. Pozo, D. Walker
#                 (C) 1992-1994 All Rights Reserved
#
#                             NOTICE
#
# Permission to use, copy, modify, and distribute this software and
# its documentation for any purpose and without fee is hereby granted
# provided that the above copyright notice appear in all copies and
# that both the copyright notice and this permission notice appear in
# supporting documentation.
#
# Neither the Institutions (University of Tennessee, and Oak Ridge National
# Laboratory) nor the Authors make any representations about the suitability 
# of this software for any purpose.  This software is provided ``as is'' 
# without express or implied warranty.
#
# LAPACK++ was funded in part by the U.S. Department of Energy, the
# National Science Foundation and the State of Tennessee.


set testsuite = (tgd tld tuld tud tuud tvi ttdd tstd trvd tcvd )
set N = (10 30 100)


# run local test and check it against supplied results
foreach t ($testsuite)
    set answer = $t:t.out
    echo "$t $N[1] $N[1] >& $answer"
    $t $N[1] $N[1] >& $answer

end