module numz 
    integer, parameter:: b8 = selected_real_kind(14) 
    integer, parameter::  input = 12
    integer, parameter:: output = 13
end module