[0b990d] | 1 | //
|
---|
| 2 | // scflocal.h --- local inline functions
|
---|
| 3 | //
|
---|
| 4 | // Copyright (C) 1996 Limit Point Systems, Inc.
|
---|
| 5 | //
|
---|
| 6 | // Author: Edward Seidl <seidl@janed.com>
|
---|
| 7 | // Maintainer: LPS
|
---|
| 8 | //
|
---|
| 9 | // This file is part of the SC Toolkit.
|
---|
| 10 | //
|
---|
| 11 | // The SC Toolkit is free software; you can redistribute it and/or modify
|
---|
| 12 | // it under the terms of the GNU Library General Public License as published by
|
---|
| 13 | // the Free Software Foundation; either version 2, or (at your option)
|
---|
| 14 | // any later version.
|
---|
| 15 | //
|
---|
| 16 | // The SC Toolkit is distributed in the hope that it will be useful,
|
---|
| 17 | // but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
| 18 | // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
| 19 | // GNU Library General Public License for more details.
|
---|
| 20 | //
|
---|
| 21 | // You should have received a copy of the GNU Library General Public License
|
---|
| 22 | // along with the SC Toolkit; see the file COPYING.LIB. If not, write to
|
---|
| 23 | // the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
---|
| 24 | //
|
---|
| 25 | // The U.S. Government is granted a limited license as per AL 91-7.
|
---|
| 26 | //
|
---|
| 27 |
|
---|
| 28 | #ifndef _chemistry_qc_scf_scflocal_h
|
---|
| 29 | #define _chemistry_qc_scf_scflocal_h
|
---|
| 30 |
|
---|
| 31 | #include <math/scmat/block.h>
|
---|
| 32 |
|
---|
| 33 | namespace sc {
|
---|
| 34 |
|
---|
| 35 | static inline double *
|
---|
| 36 | get_tri_block(SCMatrixBlock* blk,
|
---|
| 37 | int& istart, int& iend, int& jstart, int& jend, int& sub)
|
---|
| 38 | {
|
---|
| 39 | double *data=0;
|
---|
| 40 |
|
---|
| 41 | if (dynamic_cast<SCMatrixLTriBlock*>(blk)) {
|
---|
| 42 | SCMatrixLTriBlock *lblk = dynamic_cast<SCMatrixLTriBlock*>(blk);
|
---|
| 43 | istart = lblk->start; iend=lblk->end;
|
---|
| 44 | jstart = lblk->start; jend=lblk->end;
|
---|
| 45 | data = lblk->data;
|
---|
| 46 | sub=0;
|
---|
| 47 | } else if (dynamic_cast<SCMatrixLTriSubBlock*>(blk)) {
|
---|
| 48 | SCMatrixLTriSubBlock *lblk = dynamic_cast<SCMatrixLTriSubBlock*>(blk);
|
---|
| 49 | istart = lblk->istart; iend=lblk->iend;
|
---|
| 50 | jstart = lblk->jstart; jend=lblk->jend;
|
---|
| 51 | data = lblk->data;
|
---|
| 52 | sub=1;
|
---|
| 53 | }
|
---|
| 54 |
|
---|
| 55 | return data;
|
---|
| 56 | }
|
---|
| 57 |
|
---|
| 58 | }
|
---|
| 59 |
|
---|
| 60 | #endif
|
---|
| 61 |
|
---|
| 62 | // Local Variables:
|
---|
| 63 | // mode: c++
|
---|
| 64 | // c-file-style: "ETS"
|
---|
| 65 | // End:
|
---|