From b119c22b55faac526087fbf655b44289ba01303b Mon Sep 17 00:00:00 2001 From: Aaron Ridley Date: Mon, 30 Oct 2023 20:42:28 -0400 Subject: [PATCH] FEAT: moved fortran calls into conditional --- src/electrodynamics.cpp | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/src/electrodynamics.cpp b/src/electrodynamics.cpp index e1d53f3a..767799a4 100644 --- a/src/electrodynamics.cpp +++ b/src/electrodynamics.cpp @@ -89,7 +89,6 @@ void Electrodynamics::set_all_indices_for_ie(Times time, report.enter(function, iFunction); double time_now = time.get_current(); - ie_set_time(&time_now); int64_t iBy_ = indices.lookup_index_id("imfby"); int64_t iBz_ = indices.lookup_index_id("imfbz"); int64_t iVx_ = indices.lookup_index_id("swvx"); @@ -112,14 +111,17 @@ void Electrodynamics::set_all_indices_for_ie(Times time, std::cout << "sw v : " << iVx_ << " " << swv << "\n"; std::cout << "sw n : " << iN_ << " " << swn << "\n"; } - ie_set_imfby(&imfby); - ie_set_imfbz(&imfbz); - ie_set_swv(&swv); - ie_set_swn(&swn); - ie_set_ae(&ae); - ie_set_au(&au); - ie_set_al(&al); - ie_set_hp_from_ae(&ae); + #ifdef FORTRAN + ie_set_time(&time_now); + ie_set_imfby(&imfby); + ie_set_imfbz(&imfbz); + ie_set_swv(&swv); + ie_set_swn(&swn); + ie_set_ae(&ae); + ie_set_au(&au); + ie_set_al(&al); + ie_set_hp_from_ae(&ae); + #endif report.exit(function); return;