From 9d19023f554dee7d8656a18dd81479decc03b3ee Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 30 Mar 2021 16:36:14 -0400
Subject: Modified the jobs table.  Added job derived type to the database
 module.  Need accessor calls.

---
 captain/db.f90 | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'captain/db.f90')

diff --git a/captain/db.f90 b/captain/db.f90
index b607c39..c61ffc7 100644
--- a/captain/db.f90
+++ b/captain/db.f90
@@ -8,6 +8,16 @@ implicit none
     character(1024)::database_file
     type(c_ptr)::db
     
+    type :: job
+    
+        integer::id
+        integer::instruction
+        integer::player
+        integer::status
+        character(32)::time
+        
+    end type
+    
 contains
 
     subroutine initialize_db(filename)
-- 
cgit v1.2.3