File: quadr.f

package info (click to toggle)
mopac7 1.15-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, buster, jessie, jessie-kfreebsd, stretch
  • size: 3,748 kB
  • ctags: 5,768
  • sloc: fortran: 35,321; sh: 9,039; ansic: 417; makefile: 80
file content (16 lines) | stat: -rw-r--r-- 679 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
      SUBROUTINE QUADR(F0,F1,F2, X1,X2, A,B,C)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
****************************************************
*                                                  *
*    QUADR CALCULATES THE A, B AND C IN THE EQUNS. *
*                                                  *
*     A                   =   F0                   *
*     A + B.X0 + C.X0**2  =   F1                   *
*     A + B.X2 + C.X2**2  =   F2                   *
*                                                  *
****************************************************
      C=(X2*(F1-F0)-X1*(F2-F0))/(X2*X1**2-X1*X2**2)
      B=(F1-F0-C*X1**2)/X1
      A=F0
      RETURN
      END