~ubuntu-branches/ubuntu/trusty/nwchem/trusty-proposed

« back to all changes in this revision

Viewing changes to src/NWints/api/int_init.F

  • Committer: Package Import Robot
  • Author(s): Michael Banck, Daniel Leidert, Andreas Tille, Michael Banck
  • Date: 2013-07-04 12:14:55 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20130704121455-5tvsx2qabor3nrui
Tags: 6.3-1
* New upstream release.
* Fixes anisotropic properties (Closes: #696361).
* New features include:
  + Multi-reference coupled cluster (MRCC) approaches
  + Hybrid DFT calculations with short-range HF 
  + New density-functionals including Minnesota (M08, M11) and HSE hybrid
    functionals
  + X-ray absorption spectroscopy (XAS) with TDDFT
  + Analytical gradients for the COSMO solvation model
  + Transition densities from TDDFT 
  + DFT+U and Electron-Transfer (ET) methods for plane wave calculations
  + Exploitation of space group symmetry in plane wave geometry optimizations
  + Local density of states (LDOS) collective variable added to Metadynamics
  + Various new XC functionals added for plane wave calculations, including
    hybrid and range-corrected ones
  + Electric field gradients with relativistic corrections 
  + Nudged Elastic Band optimization method
  + Updated basis sets and ECPs 

[ Daniel Leidert ]
* debian/watch: Fixed.

[ Andreas Tille ]
* debian/upstream: References

[ Michael Banck ]
* debian/upstream (Name): New field.
* debian/patches/02_makefile_flags.patch: Refreshed.
* debian/patches/06_statfs_kfreebsd.patch: Likewise.
* debian/patches/07_ga_target_force_linux.patch: Likewise.
* debian/patches/05_avoid_inline_assembler.patch: Removed, no longer needed.
* debian/patches/09_backported_6.1.1_fixes.patch: Likewise.
* debian/control (Build-Depends): Added gfortran-4.7 and gcc-4.7.
* debian/patches/10_force_gcc-4.7.patch: New patch, explicitly sets
  gfortran-4.7 and gcc-4.7, fixes test suite hang with gcc-4.8 (Closes:
  #701328, #713262).
* debian/testsuite: Added tests for COSMO analytical gradients and MRCC.
* debian/rules (MRCC_METHODS): New variable, required to enable MRCC methods.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
c $Id: int_init.F 20323 2011-05-10 00:11:40Z niri $
 
1
c $Id: int_init.F 23337 2013-01-02 20:29:00Z d3y133 $
2
2
*
 
3
C> \ingroup nwint
 
4
C> @{
 
5
C>
 
6
C> \brief Main initialization routine for integrals
 
7
C>
 
8
C> This routine is the main initialization routine for the 
 
9
C> integral packages. It sets memory limits, accuracy thresholds,
 
10
C> and other initializations for all base integral codes. The
 
11
C> routine reads any integral settings changed by the user from
 
12
C> the runtime database.
 
13
C>
 
14
C> This routine is a wrapper around the original `int_init` which is now
 
15
C> called `int_init_org`. The reason for this extension is related to the
 
16
C> basis set use in Douglas-Kroll. Douglas-Kroll uses a fitting basis
 
17
C> set, which could be larger (# of exponents but also higher angular 
 
18
C> momenta), which also needs to be included in the initialization
 
19
C> procedure. The wrapper sets the Douglas-Kroll stuff and adds the new
 
20
C> fitting basis set to the list of active basis sets and calls 
 
21
C> `int_init_org`.
 
22
C>
3
23
c:tex-%API Initialization and Termination Routines
4
24
c:tex-\subsection{int\_init}
5
25
c:tex-This is the main initialization routine for integrals.
37
57
c
38
58
c::passed
39
59
c:tex-\begin{verbatim}
40
 
      integer rtdb        ! [input] run time data base handle
41
 
      integer nbas        ! [input] number of basis sets to be used
42
 
      integer bases(nbas) ! [input] basis set handles
 
60
      integer rtdb        !< [Input] run time data base handle
 
61
      integer nbas        !< [Input] number of basis sets to be used
 
62
      integer bases(nbas) !< [Input] basis set handles
43
63
c:tex-\end{verbatim}
44
64
c::local
45
65
      integer mybm_a, mybIm_a, ibas, nrbas     ! Temporary variables
149
169
c
150
170
      end
151
171
c
 
172
C>
 
173
C> \brief Initialization routine for integrals
 
174
C>
 
175
C> This routine is the initialization routine for the 
 
176
C> integral packages. It sets memory limits, accuracy thresholds,
 
177
C> and other initializations for all base integral codes. The
 
178
C> routine reads any integral settings changed by the user from
 
179
C> the runtime database. Only data associated with relativistic
 
180
C> basis sets are handled in `int_init`.
 
181
C>
152
182
      subroutine int_init_org(rtdb, nbas, bases)
153
183
c
154
184
c initializes integral code to data structers for a integral computation
175
205
      logical  texas_check_basis_ok
176
206
      external texas_check_basis_ok
177
207
c::passed
178
 
      integer rtdb        ! [input] run time data base handle
179
 
      integer nbas        ! [input] number of basis sets to be used
180
 
      integer bases(nbas) ! [input] basis set handles
 
208
      integer rtdb        !< [Input] run time data base handle
 
209
      integer nbas        !< [Input] number of basis sets to be used
 
210
      integer bases(nbas) !< [Input] basis set handles
181
211
c::local
182
212
      integer txs_mem_min ! memory from texas
183
213
      integer ibas, ang2use, angm, type
430
460
      integer nbas
431
461
      integer bases(nbas)
432
462
      end
 
463
C>
 
464
C> \brief Check if the integrals for all basis sets can be evaluated by
 
465
C> the Texas integral package
 
466
C>
433
467
      logical function texas_check_basis_ok(nbas,bases)
434
468
      implicit none
435
469
#include "bas.fh"
436
470
#include "errquit.fh"
437
471
#include "util.fh"
438
472
c::passed
439
 
      integer nbas             ! [input] number of basis sets
440
 
      integer bases(nbas)      ! [input] basis set handles
441
 
*return:: texas_check_basis_ok ! [output] true texas is okay to use
 
473
      integer nbas             !< [Input] number of basis sets
 
474
      integer bases(nbas)      !< [Input] basis set handles
 
475
*return:: texas_check_basis_ok !< [Output] true texas is okay to use
442
476
c::local
443
477
      integer ibas       ! specific basis index
444
478
      integer ishell     ! specific shell index
496
530
c   
497
531
      return
498
532
      end
 
533
C> @}