1 2 3 4 5 6 7 8
module auth_levels implicit none integer, parameter::AUTH_NONE = 0 integer, parameter::AUTH_NORMAL_USER = 1 integer, parameter::AUTH_ADMIN_USER = 10 end module auth_levels