Go to the documentation of this file.00001 module prec_mod
00002 integer, parameter :: prec = kind(1.d0)
00003 end
00004 module tst1
00005 use prec_mod, only: prec
00006 type typ1
00007 integer :: Press1
00008 real(prec) :: Mass1
00009 end type typ1
00010 end module tst1