Skip to content
Snippets Groups Projects
Normal view History Permalink
toolspar_kind.F90 417 B
Newer Older
Guillaume Samson's avatar
Initial commit
Guillaume Samson committed
1 2 3 4 5 6 7 8 
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