File: dnorm.f

package info (click to toggle)
nastran 0.1.95-2
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm, bullseye, sid
  • size: 122,540 kB
  • sloc: fortran: 284,409; sh: 771; makefile: 324
file content (15 lines) | stat: -rw-r--r-- 362 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
      SUBROUTINE DNORM(X,MAG)
C
C     DOUBLE PRECISION NORMALIZATION
C
      DOUBLE PRECISION        X(3)     ,MAG      ,A
C
      MAG= 0.D0
      A= X(1)*X(1) + X(2)*X(2) +X(3)*X(3)
      IF (A .GT. 0.D0) MAG= DSQRT(A)
      IF(MAG .EQ. 0.0D0) RETURN
      X(1) = X(1) / MAG
      X(2) = X(2) / MAG
      X(3) = X(3) / MAG
      RETURN
      END