tvi.cc

LAPACK++ (Linear Algebra PACKage in C++) is a software library for numerical linear algebra that sol

//
//              LAPACK++ 1.1 Linear Algebra Package 1.1
//               University of Tennessee, Knoxvilee, TN.
//            Oak Ridge National Laboratory, Oak Ridge, TN.
//        Authors: J. J. Dongarra, E. Greaser, R. Pozo, D. Walker
//                 (C) 1992-1996 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.



#include <stdlib.h>
#include "lafnames.h"
#include LA_VECTOR_INT_H

void mult2(int* v, int len)
{
    for (int i=0; i<len; i++)
        v[i] *= 2;
}

LaVectorInt madd(const LaVectorInt &A, const LaVectorInt &B)
{
if (A.debug())
{
    std::cout << ">>> madd(A,B) \n";
    std::cout << "    A: " << A.info() << std::endl;
    std::cout << "    B: " << B.info() << std::endl;
}

    if (A.size() != B.size())
    {
        std::cerr << "LaVectorInt madd(LaVectorInt &A, LaVectorInt &B): \
            non-conformant arrays.\n";

        return LaVectorInt(0);      // 0x0 matrix
    }

    int i;
    LaVectorInt result(A.size());


        for (i=0; i<A.size(); i++)
             result(i) = A(i) + B(i);

if (A.debug())
{
    std::cout << "   A+B: " << result.info() << std::endl;
    std::cout << "<<< madd(A,B)\n";
}
    return result;

}
            
int main(int argc, char *argv[])
{
    int N;

    if (argc < 2) exit(1);

    N = atoi(argv[1]);
    
    int v[100];
    int i;
    for (i=0; i<100; i++)
        v[i]=0;
    
    LaIndex I(2,4);
    
    std::cout << "Program Name: " << argv[0] << std::endl;
    // Test constructors
    //
    LaVectorInt A;
    std::cout << std::endl << "null consturctor " << std::endl;
    std::cout << "A(): " << A.info() << std::endl;

    LaVectorInt C(N);
    std::cout << std::endl << "(int) constructor " << std::endl;
    std::cout << "C(N) : " << C.info() << std::endl;

    LaVectorInt B(1,N);
    std::cout << std::endl ;
    std::cout << "(int, int) constructor " << std::endl;
    std::cout << "B(N) : " << B.info() << std::endl;

    LaVectorInt F(v, 10);
    std::cout << std::endl ;
    std::cout << "(int*, int) constructor " << std::endl;
    std::cout << "F(v,10): " << F.info() << std::endl;

    C=5;
    std::cout << std::endl;
    std::cout << "test operator=(int) " << std::endl;
    std::cout << "C = 5.5: " << C.info() << std::endl;
    std::cout << C << std::endl;

    C(I)=7;
    C(I);
    std::cout << std::endl;
    std::cout << "test C(const LaIndex&) constructor" << std::endl;
    std::cout << "C(I)=7 : " << C(I).info() << std::endl;
    std::cout << "C(I):\n" << C(I) << std::endl;
    std::cout << C << std::endl;

    std::cout << std::endl;
    std::cout << "test start(),inc(),end() " << std::endl;
    std::cout << "C.start(): " << C.start() << std::endl;
    std::cout << "C.inc(): " << C.inc() << std::endl;
    std::cout << "C.end(): " << C.end() << std::endl;

    A.ref(C);
    std::cout <<std::endl;
    std::cout << "test ref(const LaGenMatInt &)" << std::endl;
    std::cout << "A.ref(C): "<< A.info() << std::endl;
    std::cout << A << std::endl;

    C = 1;
    A.inject(C);
    std::cout <<std::endl;
    std::cout << "C = 1.1\n";
    std::cout << "test inject(const LaGenMatInt &)" << std::endl;
    std::cout << "A.inject(C): "<< A.info() << std::endl;
    std::cout << A << std::endl;

    A.copy(C);
    std::cout <<std::endl;
    std::cout << "test copy(const LaGenMatInt &)" << std::endl;
    std::cout << "A.copy(C): "<< A.info() << std::endl;
    std::cout << "       C : "<< C.info() << std::endl;
    std::cout << A << std::endl;


    LaVectorInt D(C);       // D is also N,N
    std::cout << std::endl << "test X(const &X) constructor " << std::endl;
    std::cout << "D(C) :" << D.info() << std::endl;

    LaVectorInt T;
    std::cout << std::endl;
    std::cout << "test call to madd()" << std::endl;
    std::cout << T.ref(madd(D,C)).info() << std::endl;
    std::cout << T << std::endl;
}