From 69434db32558477375976cce85f3f8df82b51225 Mon Sep 17 00:00:00 2001
From: Aidan Chalk <aidan.chalk@stfc.ac.uk>
Date: Fri, 21 Apr 2017 16:12:07 +0100
Subject: [PATCH] Added various qsched_..._none values to fortran bindings
---
src/fqsched.F90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/fqsched.F90 b/src/fqsched.F90
index 6a705d5..d08fd92 100644
--- a/src/fqsched.F90
+++ b/src/fqsched.F90
@@ -22,7 +22,9 @@
Module quicksched
Use, Intrinsic :: ISO_C_BINDING
Implicit None
-
+ Integer(Kind=C_INT), Parameter :: qsched_res_none = -1
+ Integer(Kind=C_INT), Parameter :: qsched_task_none = -1
+ Integer(Kind=C_INT), Parameter :: qsched_owner_none = -1
Interface
Integer(Kind=C_INT) Function qsched_get_tid() BIND(C)
--
GitLab