MODULE toolspar_kind
  IMPLICIT NONE
  INTEGER, PUBLIC, PARAMETER ::          &  !: Floating point section
       sp = SELECTED_REAL_KIND( 6, 37),  &  !: single precision (real 4)
       dp = SELECTED_REAL_KIND(12,307),  &  !: double precision (real 8)
       wp = SELECTED_REAL_KIND(12,307),  &  !: double precision (real 8)
       ik = SELECTED_INT_KIND(6)            !: integer precision 
END MODULE toolspar_kind