Searched refs:RMINUSR1 (Results 1 – 6 of 6) sorted by relevance
/dports/science/latte/LATTE-1.2.2/src/ |
H A D | plot_univ.F90 | 36 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 D | univscaling.F90 | 43 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 D | dunivscaling.F90 | 30 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 D | dgspdr.F90 | 35 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 D | univscaling_function.F90 | 51 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 D | dunivscaling_function.F90 | 51 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))))
|