module gfsio_def use machine use gfsio_module implicit none save type (gfsio_gfile) gfile_in type (gfsio_gfile) gfile_out end module gfsio_def