
   Module Constants

   Use Precision
   Implicit None
   Real (Kind=pr), Parameter :: Zero = 0.0_pr
   Real (Kind=pr), Parameter :: One  = 1.0_pr
   Real (Kind=pr), Parameter :: Two   = 2.0_pr
   Real (Kind=pr), Parameter :: Three = 3.0_pr
   Real (Kind=pr), Parameter :: Four  = 4.0_pr
   Real (Kind=pr), Parameter :: Pi    = 3.1415926535897932384626433833_pr
   Real (Kind=pr), Parameter :: F12   = One/Two
   Real (Kind=pr), Parameter :: F14   = One/Four
   Real (Kind=pr), Parameter :: F32   = Three/Two
   Real (Kind=pr), Parameter :: F34   = Three/Four
   Real (Kind=pr), Parameter :: F13   = One/Three
   Real (Kind=pr), Parameter :: F43   = Four/Three
 
   End Module Constants

