1 2 3 4 5 6 7 8 9
module m_gsl_sf_result implicit none type gsl_sf_result double precision val double precision err end type gsl_sf_result end module m_gsl_sf_result