MPQC 2.3.1

- Main Page
- Related Pages
- Classes
- Files

- File List

scflocal.h
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: