← Back to branch summary

~nickpapior/siesta/trunk-kpoint-dos

« back to all changes in this revision

Viewing changes to Src/ylmylm.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:
Src/ylmylm.f
 
1
C $Id: ylmylm.f,v 1.3 1999/01/31 11:45:19 emilio Exp $
 
2
 
1
3
      SUBROUTINE YLMYLM( ILM1, ILM2, R, YY, DYYDR )
2
4
 
3
5
C *********************************************************************
17
19
      INTEGER           ILM1, ILM2
18
20
      DOUBLE PRECISION  DYYDR(3), R(3), YY
19
21
 
20
 
      INTEGER MAXL
21
 
      PARAMETER (MAXL = 6)
 
22
      INTEGER MAXL, MAXLM
 
23
      PARAMETER ( MAXL  = 4 )
 
24
      PARAMETER ( MAXLM = (MAXL+1)*(MAXL+1) )
22
25
 
23
26
      INTEGER           I, L, LOFILM
24
 
      DOUBLE PRECISION  DYDR(3,MAXL*MAXL), Y(MAXL*MAXL)
 
27
      DOUBLE PRECISION  DYDR(3,MAXLM), Y(MAXLM)
25
28
      EXTERNAL          CHKDIM, LOFILM
26
29
 
27
30
      L = MAX( LOFILM(ILM1), LOFILM(ILM2) )