Home
last modified time | relevance | path

Searched refs:RMINUSR1 (Results 1 – 6 of 6) sorted by relevance

/dports/science/latte/LATTE-1.2.2/src/
H A Dplot_univ.F9036 REAL(LATTEPREC) :: RMOD, RMINUSR1, MAXCUT local
73 RMINUSR1 = MAGR - BOND(7,J)
75 TMP = BOND(9,J) + RMINUSR1*(BOND(10,J) + &
76 RMINUSR1*(BOND(11,J)+ RMINUSR1*(BOND(12,J) + &
77 RMINUSR1*(BOND(13,J) + RMINUSR1*BOND(14,J)))))
80 RMINUSR1*(THREE*BOND(12,J) + RMINUSR1*(FOUR*BOND(13,J) + &
81 RMINUSR1*FIVE*BOND(14,J))))
128 RMINUSR1 = MAGR - OVERL(7,J)
130 TMP = OVERL(9,J) + RMINUSR1*(OVERL(10,J) + &
131 RMINUSR1*(OVERL(11,J)+ RMINUSR1*(OVERL(12,J) + &
[all …]
H A Dunivscaling.F9043 REAL(LATTEPREC) :: A(14), X, R, RMINUSR1, POLYNOM, RMOD local
55 RMINUSR1 = R - A(7)
57 X = A(9) + RMINUSR1*(A(10) + &
58 RMINUSR1*(A(11) + RMINUSR1*(A(12) + &
59 RMINUSR1*(A(13) + RMINUSR1*A(14)))))
H A Ddunivscaling.F9030 REAL(LATTEPREC) :: X, R, RMINUSR1, DPOLYNOM local
43 RMINUSR1 = R - A(7)
45 TMPDXDR = A(10) + RMINUSR1*(TWO*A(11) + &
46 RMINUSR1*(THREE*A(12) + RMINUSR1*(FOUR*A(13) + &
47 RMINUSR1*FIVE*A(14))))
H A Ddgspdr.F9035 REAL(LATTEPREC) :: RMINUSR1, RMINUSR12, RMINUSR14 local
101 RMINUSR1 = MAGR - GSPR1(IGS)
102 RMINUSR12 = RMINUSR1*RMINUSR1
105 DGSPDR = MINUSONE * (B(2,IGS) + TWO * B(3,IGS) * RMINUSR1 + &
107 RMINUSR1 + FIVE * B(6,IGS) * RMINUSR14)
H A Dunivscaling_function.F9051 REAL(LATTEPREC) :: A(14), R, RMINUSR1, RMOD local
204 RMINUSR1 = R - A(7)
206 UNIVSCALE = A(9) + RMINUSR1*(A(10) + &
207 RMINUSR1*(A(11) + RMINUSR1*(A(12) + &
208 RMINUSR1*(A(13) + RMINUSR1*A(14)))))
H A Ddunivscaling_function.F9051 REAL(LATTEPREC) :: A(14), R, RMINUSR1,DPOLYNOM, RMOD local
205 RMINUSR1 = R - A(7)
207 DUNIVSCALE = A(10) + RMINUSR1*(TWO*A(11) + &
208 RMINUSR1*(THREE*A(12) + RMINUSR1*(FOUR*A(13) + &
209 RMINUSR1*FIVE*A(14))))