~nickpapior/siesta/trunk-kpoint-dos

« back to all changes in this revision

Viewing changes to Src/gauleg.f

  • Committer: Alberto Garcia
  • Date: 2004-11-25 18:49:43 UTC
  • Revision ID: Arch-1:siesta@uam.es--2004%siesta-devel--reference--0.11--patch-1
Siesta 0.11 -- imported from CVS
Import from cvs using date instead of siesta-0-11-release tag, since
the Pseudo structure was not properly integrated at that time and
did not get the tag.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
C $Id: gauleg.f,v 1.2 1999/01/31 11:14:54 emilio Exp $
 
2
 
1
3
      SUBROUTINE GAULEG(X1,X2,X,W,N)
2
4
      IMPLICIT REAL*8 (A-H,O-Z)
3
5
*     REAL*4 X1,X2,X(N),W(N)