From 5b9e49152318b432ce71b6cda2fae1294fa38e12 Mon Sep 17 00:00:00 2001
From: "Veronica K. B. Olsen" <v.k.b.olsen@cern.ch>
Date: Tue, 14 May 2019 09:33:08 +0200
Subject: [PATCH] Added a few more API functions to the Fortran API

---
 api/boinc_api_fortran.cpp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/api/boinc_api_fortran.cpp b/api/boinc_api_fortran.cpp
index 3f2dfb0b11..44284e4bde 100644
--- a/api/boinc_api_fortran.cpp
+++ b/api/boinc_api_fortran.cpp
@@ -103,10 +103,22 @@ void boinc_checkpoint_completed_() {
     boinc_checkpoint_completed();
 }
 
+void boinc_begin_critical_section_() {
+    boinc_begin_critical_section();
+}
+
+void boinc_end_critical_section_() {
+    boinc_end_critical_section();
+}
+
 void boinc_fraction_done_(double* d) {
     boinc_fraction_done(*d);
 }
 
+void boinc_get_fraction_done_(double* d) {
+    *d = boinc_get_fraction_done();
+}
+
 void boinc_wu_cpu_time_(double* d_out) {
     boinc_wu_cpu_time(*d_out);
 }