← Back to branch summary

~nickpapior/siesta/trunk-kpoint-dos

« back to all changes in this revision

Viewing changes to Pseudo/atom/potrv.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/potrv.f
1
1
c
2
2
      subroutine potrv(vd,r,nr,k,zion)
3
3
c
4
 
c ***********************************************************
5
 
c *                                                         *
6
 
c *    This is a plotting routine; the user should          *
7
 
c *  adjust for their own needs.  Prints                    *
8
 
c *  out the potential to the current plot.dat              *
9
 
c *  file (unit=3) for later ploting.  A marker (marker)    *
10
 
c *  is placed at the end of each group of data.            *
11
 
c *                                                         *
12
 
c ***********************************************************
13
 
c
14
4
c  Step size of 0.05 is adjustable as seen fit to give
15
5
c  a reasonable plot.
16
6
c
24
14
C     .. Local Scalars ..
25
15
      double precision step
26
16
      integer j
27
 
      character marker*3, filename*7
 
17
      character filename*7
28
18
C     ..
29
19
cag
30
20
      write(filename,9900) k