Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.20 KB | None | 0 0
  1. diff --git a/Applications/CLI/ogs.cpp b/Applications/CLI/ogs.cpp
  2. index 209d72cc9..dbde5058a 100644
  3. --- a/Applications/CLI/ogs.cpp
  4. +++ b/Applications/CLI/ogs.cpp
  5. @@ -101,6 +101,11 @@ int main(int argc, char* argv[])
  6. "LOG_LEVEL");
  7. cmd.add(log_level_arg);
  8.  
  9. +#ifdef OGS_USE_PDAF
  10. + int a = 5;
  11. + c_init_parallel_pdaf(&a, &a);
  12. +#endif
  13. +
  14. TCLAP::SwitchArg nonfatal_arg("",
  15. "config-warnings-nonfatal",
  16. "warnings from parsing the configuration "
  17. @@ -149,11 +154,6 @@ int main(int argc, char* argv[])
  18. (void)guard;
  19. #endif
  20.  
  21. -#ifdef OGS_USE_PDAF
  22. - int a = 5;
  23. - c_init_parallel_pdaf(&a, &a);
  24. -#endif
  25. -
  26. BaseLib::RunTime run_time;
  27.  
  28. {
  29. diff --git a/Applications/CLI/pdaf.f90 b/Applications/CLI/pdaf.f90
  30. index 42c52d380..8820468ed 100644
  31. --- a/Applications/CLI/pdaf.f90
  32. +++ b/Applications/CLI/pdaf.f90
  33. @@ -11,7 +11,8 @@ contains
  34. subroutine c_init_parallel_pdaf(dim_ens, screen) bind(c)
  35. integer(c_int), intent(in) :: dim_ens, screen
  36.  
  37. - call init_parallel_pdaf(dim_ens, screen)
  38. + write(*,*) "PDAF here"
  39. + !call init_parallel_pdaf(dim_ens, screen)
  40.  
  41. end subroutine c_init_parallel_pdaf
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement