28 #ifndef _chemistry_qc_scf_scflocal_h 29 #define _chemistry_qc_scf_scflocal_h 31 #include <math/scmat/block.h> 35 static inline double *
36 get_tri_block(SCMatrixBlock* blk,
37 int& istart,
int& iend,
int& jstart,
int& jend,
int& sub)
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;
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;