#ifdef LONG__LONG
integer, parameter   ::  kint  = 8
#else
integer, parameter   ::  kint  = 4
#endif

integer, parameter   ::  kfloat = 4

#ifdef LONG__DOUBLE
integer, parameter   ::  kreal = 16
#else
integer, parameter   ::  kreal = 8
#endif



