From 6cf8d2b298b0770b46753a902b4c5622b5b1ddd2 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Wed, 27 Apr 2022 09:29:00 -0400 Subject: Added missing auth levels Fortran source. --- captain/auth_level.f90 | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 captain/auth_level.f90 diff --git a/captain/auth_level.f90 b/captain/auth_level.f90 new file mode 100644 index 0000000..0f7ee2f --- /dev/null +++ b/captain/auth_level.f90 @@ -0,0 +1,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 -- cgit v1.2.3