From cd803751d9d737a6aead5e6e42b5d33cf4690235 Mon Sep 17 00:00:00 2001
From: zongor <admin@alfrescocavern.com>
Date: Sat, 14 Oct 2023 09:55:50 -0400
Subject: [PATCH] fix db comments

---
 fortran/server/src/db.f90 | 3 ---
 fortran/www/src/db.f90    | 4 ----
 2 files changed, 7 deletions(-)

diff --git a/fortran/server/src/db.f90 b/fortran/server/src/db.f90
index b2e8a21..3917429 100644
--- a/fortran/server/src/db.f90
+++ b/fortran/server/src/db.f90
@@ -119,7 +119,6 @@ contains
    end function db_add_user
 
    integer function db_delete_user(db, username) result(rc)
-        !! Adds student to database.
       type(db_type), intent(inout) :: db
       character(len=*), intent(in)    :: username
       type(c_ptr)                     :: stmt
@@ -141,7 +140,6 @@ contains
    end function db_delete_user
 
    integer function db_get_logged_in_users(db, connection) result(rc)
-        !! Prints number of courses per student to standard output.
       type(db_type), intent(inout) :: db
       integer(c_int), intent(inout) :: connection
       character(len=*), parameter :: TCP_SUFFIX = c_carriage_return // c_new_line // c_null_char
@@ -274,7 +272,6 @@ contains
    end function db_move_user
 
    subroutine db_error(code, proc, err_msg)
-        !! Prints error message.
       integer, intent(in)           :: code
       character(len=*), intent(in), optional :: proc
       character(len=*), intent(in), optional :: err_msg
diff --git a/fortran/www/src/db.f90 b/fortran/www/src/db.f90
index 1034adc..4398e80 100644
--- a/fortran/www/src/db.f90
+++ b/fortran/www/src/db.f90
@@ -72,7 +72,6 @@ contains
     integer function db_add_user(db, username, password, apperance_r, apperance_g, apperance_b, &
         x_pos, y_pos, logged_in, created) result(rc)
 
-        !! Adds student to database.
         type(db_type),    intent(inout) :: db
         character(len=*), intent(in)    :: username
         character(len=*), intent(in)    :: password
@@ -120,7 +119,6 @@ contains
 
 
     integer function db_delete_user(db, username) result(rc)
-        !! Adds student to database.
         type(db_type),    intent(inout) :: db
         character(len=*), intent(in)    :: username
         type(c_ptr)                     :: stmt
@@ -142,7 +140,6 @@ contains
     end function db_delete_user
 
     integer function db_count_logged_in_users(db) result(rc)
-        !! Prints number of courses per student to standard output.
         type(db_type), intent(inout) :: db
 
         type(c_ptr)      :: stmt
@@ -173,7 +170,6 @@ contains
     end function db_count_logged_in_users
 
     integer function db_get_logged_in_users(db) result(rc)
-        !! Prints number of courses per student to standard output.
         type(db_type), intent(inout) :: db
 
         type(c_ptr)      :: stmt