From 8c56c7ceff1bdfc940c1502b67a078cb0dec2048 Mon Sep 17 00:00:00 2001
From: Aidan Chalk <aidan.chalk@stfc.ac.uk>
Date: Wed, 26 Apr 2017 13:04:05 +0100
Subject: [PATCH] Added fortran ability to use the task timers
---
fortran_examples/test.F90 | 3 +++
src/fqsched.F90 | 14 ++++++++++++--
2 files changed, 15 insertions(+), 2 deletions(-)
diff --git a/fortran_examples/test.F90 b/fortran_examples/test.F90
index b534e74..464ddad 100644
--- a/fortran_examples/test.F90
+++ b/fortran_examples/test.F90
@@ -72,6 +72,9 @@ end do
Call qsched_run(sched, nr_threads, fun)
+ call qsched_dump_task_timers(sched, c_char_"TASKTIMERS")
+
call qsched_free(sched)
call f_qsched_destroy(sched)
+
End Program
diff --git a/src/fqsched.F90 b/src/fqsched.F90
index d08fd92..880e2dd 100644
--- a/src/fqsched.F90
+++ b/src/fqsched.F90
@@ -132,7 +132,7 @@ Module quicksched
!TODO Not supporting qsched_addtask_dynamic yet.
- Subroutine qsched_ensure(s, nr_tasks, nr_res, nr_deps, nr_locks, nr_uses, size_data)
+ Subroutine qsched_ensure(s, nr_tasks, nr_res, nr_deps, nr_locks, nr_uses, size_data) BIND(C)
Use, Intrinsic:: ISO_C_BINDING
Implicit None
@@ -146,7 +146,7 @@ Module quicksched
End Subroutine
- Subroutine qsched_res_own(s, res, owner)
+ Subroutine qsched_res_own(s, res, owner) BIND(C)
Use, Intrinsic:: ISO_C_BINDING
Implicit None
@@ -155,6 +155,16 @@ Module quicksched
Integer(Kind=C_INT), Intent(In), VALUE :: owner
End Subroutine
+
+ Subroutine qsched_dump_task_timers(s, filename) BIND(C)
+ Use, Intrinsic :: ISO_C_BINDING
+ Implicit None
+
+ Type(C_PTR), VALUE :: s
+ character(kind=c_char), intent(in) :: filename(*)
+ End Subroutine
End Interface
+
+
End Module quicksched
--
GitLab