1 files changed, 11 insertions, 0 deletions
diff --git a/captain/db.f90 b/captain/db.f90
index 00ec00e..77e12ed 100644
--- a/captain/db.f90
+++ b/captain/db.f90
@@ -1438,6 +1438,17 @@ contains
     
     end function new_user_db
     
+    function new_admin_db(username, password)
+    use AUTH_LEVELS, only: AUTH_ADMIN_USER
+    implicit none
+    
+        character(len=*), intent(in)::username, password
+        logical::new_admin_db
+        
+        new_admin_db = new_user_db(username, password, trim(username)//"@localhost", AUTH_ADMIN_USER)
+    
+    end function new_admin_db
+    
     function get_password_hash_pointer_db(username) result(password)
     implicit none