| 1 | //
|
|---|
| 2 | // storage.cc
|
|---|
| 3 | //
|
|---|
| 4 | // Copyright (C) 2001 Edward Valeev
|
|---|
| 5 | //
|
|---|
| 6 | // Author: Edward Valeev <edward.valeev@chemistry.gatech.edu>
|
|---|
| 7 | // Maintainer: EV
|
|---|
| 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 | #ifdef __GNUG__
|
|---|
| 29 | #pragma implementation
|
|---|
| 30 | #endif
|
|---|
| 31 |
|
|---|
| 32 | #include <util/misc/formio.h>
|
|---|
| 33 | #include <chemistry/qc/basis/integral.h>
|
|---|
| 34 | #include <chemistry/qc/cints/int2e.h>
|
|---|
| 35 | #include <chemistry/qc/cints/storage.h>
|
|---|
| 36 |
|
|---|
| 37 | using namespace std;
|
|---|
| 38 | using namespace sc;
|
|---|
| 39 |
|
|---|
| 40 | inline int max(int a,int b) { return (a > b) ? a : b;}
|
|---|
| 41 | inline void fail()
|
|---|
| 42 | {
|
|---|
| 43 | ExEnv::errn() << scprintf("failing module:\n%s",__FILE__) << endl;
|
|---|
| 44 | abort();
|
|---|
| 45 | }
|
|---|
| 46 |
|
|---|
| 47 | void
|
|---|
| 48 | Int2eCints::init_storage(size_t size)
|
|---|
| 49 | {
|
|---|
| 50 | if (size) storage_ = size;
|
|---|
| 51 | else storage_ = 0;
|
|---|
| 52 | }
|
|---|
| 53 |
|
|---|
| 54 | void
|
|---|
| 55 | Int2eCints::done_storage()
|
|---|
| 56 | {
|
|---|
| 57 | storage_ = 0;
|
|---|
| 58 | }
|
|---|
| 59 |
|
|---|
| 60 |
|
|---|
| 61 | void
|
|---|
| 62 | Int2eCints::check_storage_() const
|
|---|
| 63 | {
|
|---|
| 64 | // if (storage_used_ > storage_) {
|
|---|
| 65 | // ExEnv::err() << scprintf("Not enough storage allowed for integrals evaluators:") << endl;
|
|---|
| 66 | // ExEnv::err() << scprintf("storage_ = %ld",storage_) << endl;
|
|---|
| 67 | // ExEnv::err() << scprintf("storage_used_ = %ld",storage_used_) << endl;
|
|---|
| 68 | // abort();
|
|---|
| 69 | // }
|
|---|
| 70 | }
|
|---|
| 71 |
|
|---|
| 72 | /////////////////////////////////////////////////////////////////////////////
|
|---|
| 73 |
|
|---|
| 74 | // Local Variables:
|
|---|
| 75 | // mode: c++
|
|---|
| 76 | // c-file-style: "CLJ-CONDENSED"
|
|---|
| 77 | // End:
|
|---|
