vsub.f Source File

C ************************************************************************
      SUBROUTINE VSUB(a,b,c)
c#@# KKRtags: VORONOI
c#@# KKRmerge: remove this, only used in rrgen2000.f
C ************************************************************************
      REAL*8         a(*),b(*),c(*)
      integer i
      do 1 i=1,3
        c(i)=a(i)-b(i)
 1    continue
      return
      END