← Back to branch summary

~siesta-ts/siesta/trunk_ts_soc

« back to all changes in this revision

Viewing changes to Src/m_gauss_quad.f90

  • Committer: Nils Wittemeier
  • Date: 2019-02-14 07:45:07 UTC
  • mfrom: (746.1.15 trunk)
  • Revision ID: nils@4wittemeier.de-20190214074507-1mvzbmj9kw19gllr
Merged trunk 761

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/m_gauss_quad.f90
1
1
!
2
 
! Copyright (C) 1996-2016       The SIESTA group
 
2
! Copyright (C) 1996-2016       The SIESTA group
3
3
!  This file is distributed under the terms of the
4
4
!  GNU General Public License: see COPYING in the top directory
5
5
!  or http://www.gnu.org/copyleft/gpl.txt.
44
44
!           This is the Legendre Gaussian quadrature                   c
45
45
!           The Legendre quadrature is the w(x) = 1, and the rescaling c
46
46
!           of the function by the Fermi function                      c
47
 
!                                                                      c
 
47
!                                                                      c
48
48
!  taken from: "Projects in Computational Physics" by Landau and Paez  c 
49
 
!              copyrighted by John Wiley and Sons, New York            c      
 
49
!              copyrighted by John Wiley and Sons, New York            c      
50
50
!                                                                      c
51
51
!  written by: Oregon State University Nuclear Theory Group            c
52
 
!              Guangliang He & Rubin H. Landau                         c
 
52
!              Guangliang He & Rubin H. Landau                         c
53
53
!  supported by: US National Science Foundation, Northwest Alliance    c
54
54
!                for Computational Science and Engineering (NACSE),    c
55
 
!                US Department of Energy                               c
56
 
!                                                                      c
 
55
!                US Department of Energy                               c
 
56
!                                                                      c
57
57
!  comment: error message occurs if subroutine called without a main   c
58
58
!  comment: this file has to reside in the same directory as integ.c   c
59
59
!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc