File: cdivid.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 (13 lines) | stat: -rw-r--r-- 373 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
      SUBROUTINE CDIVID(A,B,D,NCOL)
      DOUBLE PRECISION A(1),B(1),D(2),DTEMP,DENM
C
C     THIS ROUTINE DIVIDES THE VECTOR A BY D AND STORE RESULT IN B
C
      DENM = D(1)**2 + D(2)**2
      DO 10 I = 1,NCOL,2
      DTEMP = (A(I)*D(1) +A(I+1)*D(2))/DENM
      B(I+1) = (A(I+1)*D(1) -A(I) * D(2))/DENM
      B(I) = DTEMP
   10 CONTINUE
      RETURN
      END