← Back to branch summary

~nickpapior/siesta/trunk-kpoint-dos

« back to all changes in this revision

Viewing changes to Util/Denchar/Src/length.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:
Util/Denchar/Src/length.f
 
1
      real*8 function length(a)
 
2
*
 
3
*     This function calculates the length of a vector defined in
 
4
*    cartesian coordinates.
 
5
*
 
6
      real*8 a(3)
 
7
*
 
8
*     a(3) : cartesian coordinates of the vector.  
 
9
*
 
10
      length = sqrt(a(1)**2 + a(2)**2 + a(3)**2)
 
11
 
 
12
      return
 
13
      end
 
14