Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/Applications/CLI/ogs.cpp b/Applications/CLI/ogs.cpp
- index 209d72cc9..dbde5058a 100644
- --- a/Applications/CLI/ogs.cpp
- +++ b/Applications/CLI/ogs.cpp
- @@ -101,6 +101,11 @@ int main(int argc, char* argv[])
- "LOG_LEVEL");
- cmd.add(log_level_arg);
- +#ifdef OGS_USE_PDAF
- + int a = 5;
- + c_init_parallel_pdaf(&a, &a);
- +#endif
- +
- TCLAP::SwitchArg nonfatal_arg("",
- "config-warnings-nonfatal",
- "warnings from parsing the configuration "
- @@ -149,11 +154,6 @@ int main(int argc, char* argv[])
- (void)guard;
- #endif
- -#ifdef OGS_USE_PDAF
- - int a = 5;
- - c_init_parallel_pdaf(&a, &a);
- -#endif
- -
- BaseLib::RunTime run_time;
- {
- diff --git a/Applications/CLI/pdaf.f90 b/Applications/CLI/pdaf.f90
- index 42c52d380..8820468ed 100644
- --- a/Applications/CLI/pdaf.f90
- +++ b/Applications/CLI/pdaf.f90
- @@ -11,7 +11,8 @@ contains
- subroutine c_init_parallel_pdaf(dim_ens, screen) bind(c)
- integer(c_int), intent(in) :: dim_ens, screen
- - call init_parallel_pdaf(dim_ens, screen)
- + write(*,*) "PDAF here"
- + !call init_parallel_pdaf(dim_ens, screen)
- end subroutine c_init_parallel_pdaf
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement