module errors use typedef, only: & int64 integer(kind=int64), parameter :: & IERR_OK = 0_int64, & IERR_NONCONV = -1_int64, & IERR_DIVZERO = -2_int64, & IERR_TAB = -3_int64, & IERR_EPS = -4_int64, & IERR_TIMEOUT = -5_int64, & IERR_YSCALE = -6_int64, & IERR_SMALLSTEP = -7_int64, & IERR_TERMINATE = -8_int64, & IERR_INVALIDMODE = -42_int64 end module errors