diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 16:36:14 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-03-30 16:36:14 -0400 |
| commit | 9d19023f554dee7d8656a18dd81479decc03b3ee (patch) | |
| tree | 2aae2391b4edb14ca7b52634be4f438de6fc80f0 /captain/db.f90 | |
| parent | c6a3bdfc5e02b9e35b1e0fc5af2d0bf0319681ac (diff) | |
| download | levitating-9d19023f554dee7d8656a18dd81479decc03b3ee.tar.gz levitating-9d19023f554dee7d8656a18dd81479decc03b3ee.zip | |
Modified the jobs table. Added job derived type to the database module. Need accessor calls.
Diffstat (limited to 'captain/db.f90')
| -rw-r--r-- | captain/db.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
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) |