MODULE Precision
      USE Standard_Types
      PRIVATE
      
      PUBLIC::Generic_Handle
      TYPE Generic_Handle
      INTEGER::PID=1
      ENDTYPE
      
      
      INTEGER,PARAMETER,PUBLIC::i_byte=byte_k,i_short=short_k,i_sp=int_k,i_dp=long_k,i_word=KIND(0)
      INTEGER,PARAMETER,PUBLIC::i_32=i_sp,i_64=i_dp
      INTEGER,PARAMETER,PUBLIC::r_sp=single_k,r_dp=double_k,r_qp=quad_k,r_word=KIND(0.0)
      INTEGER,PARAMETER,PUBLIC::r_32=r_sp,r_64=r_dp
      INTEGER,PARAMETER,PUBLIC::l_short=l_byte_k,l_word=l_int_k
      INTEGER,PARAMETER,PUBLIC::c_ascii=KIND(' ')
      INTEGER,PARAMETER,PUBLIC::r_wp=r_dp,i_wp=i_sp,l_wp=l_short
      END MODULE Precision