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);
 }