File: vec.f

package info (click to toggle)
aces3 3.0.6-7
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 82,460 kB
  • sloc: fortran: 225,647; ansic: 20,413; cpp: 4,349; makefile: 953; sh: 137
file content (12 lines) | stat: -rw-r--r-- 286 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 

C CALCULATES THE VECTOR V BETWEEN CARTESIAN POINTS A AND B

      SUBROUTINE VEC(A,B,V,IX)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION A(3),B(3),V(3)
      V(1)=B(1)-A(1)
      V(2)=B(2)-A(2)
      V(3)=B(3)-A(3)
      IF(IX.EQ.1)CALL NORMAL(V,3)
      RETURN
      END