← Back to branch summary

~nickpapior/siesta/trunk-kpoint-dos

« back to all changes in this revision

Viewing changes to Pseudo/atom/recipes.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:
Pseudo/atom/recipes.f
92
92
      SUBROUTINE ODEINT(YSTART,NVAR,X1,X2,EPS,H1,HMIN,NOK,NBAD,DERIVS,
93
93
     +                  RKQC)
94
94
C
95
 
C
 
95
      include 'ode_path.h'
 
96
C     ..
96
97
C     .. Parameters ..
97
 
      INTEGER MAXSTP,NMAX
98
 
      PARAMETER (MAXSTP=10000,NMAX=10)
 
98
      INTEGER MAXSTP
 
99
      PARAMETER (MAXSTP=10000)
99
100
      DOUBLE PRECISION TWO
100
101
      PARAMETER (TWO=2.0D0)
101
102
      DOUBLE PRECISION ZERO
113
114
C     .. Subroutine Arguments ..
114
115
      EXTERNAL DERIVS,RKQC
115
116
C     ..
116
 
C     .. Scalars in Common ..
117
 
      DOUBLE PRECISION DXSAV
118
 
      INTEGER KMAX,KOUNT
119
 
C     ..
120
 
C     .. Arrays in Common ..
121
 
      DOUBLE PRECISION XP(200),YP(10,200)
122
 
C     ..
123
117
C     .. Local Scalars ..
124
118
      DOUBLE PRECISION H,HDID,HNEXT,X,XSAV
125
119
      INTEGER I,NSTP
130
124
C     .. Intrinsic Functions ..
131
125
      INTRINSIC ABS,SIGN
132
126
C     ..
133
 
C     .. Common blocks ..
134
 
      COMMON /PATH/KMAX,KOUNT,DXSAV,XP,YP
135
 
C     ..
136
127
      X = X1
137
128
      H = SIGN(H1,X2-X1)
138
129
      NOK = 0