added time measurement for fortran procedure

Author: Vsevolod

fortran_modules.h

@@ -1,6 +1,8 @@
 #ifndef FORTRAN_MODULES_H
 #define FORTRAN_MODULES_H
 
+#include "time_utils.h"
+
 // the next funxtions are defined in Kul.f90 and linked from fortran_modules/Kul.o
 extern "C" int laplace_(int*,Point*,Point*,Point*); // integer function Laplace(N,P1,P2,P3)
 extern "C" void resultf_(Point*,real*,Vector*); //ResultF(Point, Pot, Grad)
@@ -20,8 +22,16 @@ int solveBoundaryProblem(vector<PlaneType> *coordinatesList,bool verbose = false
     }
 
     // Solve boundary-valued problem
+    timespec start, stop, *delta;
     verbose && COUT("solving boundary problem in fortran module...");
+    clock_gettime(CLOCK_ID,&start);
     int retval = laplace_(&numVertices,P1,P2,P3);
+    clock_gettime(CLOCK_ID,&stop);
+    delta = Time::getTimespecDelta(&start,&stop);
+    if (verbose) {
+        PRINT("elapsed time: ");
+        Time::printTimespec(delta);
+    }
     delete[] P1,P2,P3;
 
     verbose && COUT("fortran init retval: " << retval);

fortran_modules/gf

@@ -3,7 +3,7 @@
 int CLOCK_ID = CLOCK_THREAD_CPUTIME_ID;
 
 void Time::printTimespec(timespec *ts) {
-    cout << "seconds: " << ts->tv_sec << ", nanoseconds: " << ts->tv_nsec << endl;
+    cout << ts->tv_sec << '.' << std::setfill('0') << std::setw(9) << ts->tv_nsec << " sec" << endl;
 }
 
 timespec* Time::getTimespecDelta(timespec *older,timespec *newer) {

time_utils.cpp

@@ -7,6 +7,7 @@
 #include <iostream>
 #include <random>
 #include <functional>
+#include <iomanip>
 #include "constants.h"
 
 using namespace std;