diff -r 000000000000 -r c8ca04c3a9d6 kind_mod.f90
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/kind_mod.f90	Sun Sep 21 21:59:01 2008 -0400
@@ -0,0 +1,13 @@
+  module kind_mod
+
+    implicit none
+    integer, parameter :: r8 = selected_real_kind(12) ! 8 byte real
+    integer, parameter :: r4 = selected_real_kind( 6) ! 4 byte real
+    integer, parameter :: nr = kind(1.0)              ! native real
+    integer, parameter :: i8 = selected_int_kind(13)  ! 8 byte integer
+    integer, parameter :: i4 = selected_int_kind( 6)  ! 4 byte integer
+    integer, parameter :: ni = kind(1)                ! native integer
+
+    save
+
+  end module kind_mod