!******************************************************************
!******************************************************************
module types_mod
use kinds_mod,only:len_stdStrD,undefCH   


!-----
integer,parameter::chlen_var1=len_stdStrD
type var1_type 
  character(chlen_var1)::name=undefCH  
endtype var1_type
type(var1_type),parameter::var1_def=var1_type(&
  undefCH)
!   name    v       lo      hi      scal    v0      tran     isOpt
!-----
integer,parameter::chlen_data_ricz=100
type data_ricz_type       
  character(100)::cs1
endtype data_ricz_type
type(data_ricz_type),parameter::data_ricz_def=data_ricz_type(undefCH)                                 ! rpv
!-----

endmodule types_mod
!******************************************************************