C From HOMPACK90.
      MODULE REAL_PRECISION
C       This is for 64-bit arithmetic.
        INTEGER, PARAMETER:: R8=SELECTED_REAL_KIND(13)
      END MODULE REAL_PRECISION