MODULE fractions
real*8, parameter:: one_over_three = 1.d0/3.d0
real*8, parameter:: eleven_over_eighteen = 11.d0/18.d0
real*8, parameter:: five_over_64 = 5.d0/64.d0
real*8, parameter:: five_over_eight = 5.d0/8.d0
real*8, parameter:: five_over_sixteen = 5.d0/16.d0
real*8, parameter:: fiveteen_over_eight = 15.d0/8.d0
real*8, parameter:: fiveteen_over_four = 15.d0/4.d0
real*8, parameter:: fiveteen_over_two = 15.d0/2.d0
real*8, parameter:: fortyfive_over_eight = 45.d0/8.d0
real*8, parameter:: nine_over_two = 9.d0/2.d0
real*8, parameter:: one_over_eight = 1.d0/8.d0
real*8, parameter:: three_over_eight = 3.d0/8.d0
real*8, parameter:: three_over_two = 3.d0/2.d0
real*8, parameter:: two_over_three = 2.d0/3.d0
real*8, parameter:: eight_over_three = 8.d0/3.d0
real*8, parameter:: seven_over_two …
Run Code Online (Sandbox Code Playgroud)