Main Page Class Hierarchy Compound List File List Compound Members Related Pages

# scflocal.h

    00001 //
    00002 // scflocal.h --- local inline functions
    00003 //
    00004 // Copyright (C) 1996 Limit Point Systems, Inc.
    00005 //
    00006 // Author: Edward Seidl <seidl@janed.com>
    00007 // Maintainer: LPS
    00008 //
    00009 // This file is part of the SC Toolkit.
    00010 //
    00011 // The SC Toolkit is free software; you can redistribute it and/or modify
    00012 // it under the terms of the GNU Library General Public License as published by
    00013 // the Free Software Foundation; either version 2, or (at your option)
    00014 // any later version.
    00015 //
    00016 // The SC Toolkit is distributed in the hope that it will be useful,
    00017 // but WITHOUT ANY WARRANTY; without even the implied warranty of
    00018 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    00019 // GNU Library General Public License for more details.
    00020 //
    00021 // You should have received a copy of the GNU Library General Public License
    00022 // along with the SC Toolkit; see the file COPYING.LIB.  If not, write to
    00023 // the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
    00024 //
    00025 // The U.S. Government is granted a limited license as per AL 91-7.
    00026 //
    00027
    00028 #ifndef _chemistry_qc_scf_scflocal_h
    00029 #define _chemistry_qc_scf_scflocal_h
    00030
    00031 #include <math/scmat/block.h>
    00032
    00033 namespace sc {
    00034
    00035 static inline double *
    00036 get_tri_block(SCMatrixBlock* blk,
    00037               int& istart, int& iend, int& jstart, int& jend, int& sub)
    00038 {
    00039   double *data=0;
    00040
    00041   if (dynamic_cast<SCMatrixLTriBlock*>(blk)) {
    00042     SCMatrixLTriBlock *lblk = dynamic_cast<SCMatrixLTriBlock*>(blk);
    00043     istart = lblk->start; iend=lblk->end;
    00044     jstart = lblk->start; jend=lblk->end;
    00045     data = lblk->data;
    00046     sub=0;
    00047   } else if (dynamic_cast<SCMatrixLTriSubBlock*>(blk)) {
    00048     SCMatrixLTriSubBlock *lblk = dynamic_cast<SCMatrixLTriSubBlock*>(blk);
    00049     istart = lblk->istart; iend=lblk->iend;
    00050     jstart = lblk->jstart; jend=lblk->jend;
    00051     data = lblk->data;
    00052     sub=1;
    00053   }
    00054
    00055   return data;
    00056 }
    00057
    00058 }
    00059
    00060 #endif
    00061
    00062 // Local Variables:
    00063 // mode: c++
    00064 // c-file-style: "ETS"
    00065 // End: