Mengjuei - Blog

module constants
   double precision, parameter :: PI = 3.1415926535897932384626433832795d0
!The BOOK says :
!
!2Chronicles 4:2 reads thus, 'Also he made a molten sea of ten cubits 
!from brim to brim, round in compass, and five cubits the height thereof; 
!and a line of thirty cubits did compass it round about.'
!
!Hence, Pi is exactly equal to three and there is nothing more to discuss!
!
!If you want to use the value of PI defined by 'the BOOK' then uncomment
!the following line and comment out the definition above...
!   double precision, parameter :: PI = 3.0d0
end module constants