[Debug] Test Fortran library with non-mpi

Signed-off-by: Cristian Le <cristian.le@mpsd.mpg.de>
wannier-developers · Feb 22, 2024 · 7540c6f · 7540c6f
1 parent 9c8d2fc
commit 7540c6f
Show file tree

Hide file tree

Showing 7 changed files with 17 additions and 3 deletions.
diff --git a/test-suite/libv2-demo/CMakeLists.txt b/test-suite/libv2-demo/CMakeLists.txt
@@ -3,7 +3,7 @@ set_property(DIRECTORY APPEND
 )
 
 set(test_names
-		lib-gas-opt-pllel
+		lib-gas-opt
 		libc-gas-mix-serial
 		libc-gas-mix-serial-clash
 )

diff --git a/...bv2-demo/lib-gas-opt-pllel/CMakeLists.txt → ...ite/libv2-demo/lib-gas-opt/CMakeLists.txt b/...bv2-demo/lib-gas-opt-pllel/CMakeLists.txt → ...ite/libv2-demo/lib-gas-opt/CMakeLists.txt
@@ -3,5 +3,8 @@ project(demo_Wannier90 LANGUAGES Fortran)
 
 find_package(Wannier90 REQUIRED)
 
-add_executable(demo demo.f90)
+add_executable(demo demo.F90)
+if (Wannier90_MPI)
+	target_compile_definitions(demo PRIVATE Wannier90_MPI)
+endif ()
 target_link_libraries(demo PRIVATE Wannier90::wannier90)
diff --git a/...ite/libv2-demo/lib-gas-opt-pllel/demo.f90 → test-suite/libv2-demo/lib-gas-opt/demo.F90 b/...ite/libv2-demo/lib-gas-opt-pllel/demo.f90 → test-suite/libv2-demo/lib-gas-opt/demo.F90
@@ -1,5 +1,7 @@
 program ok
+#ifdef Wannier90_MPI
   use mpi_f08
+#endif
   use w90_library
 
   implicit none
@@ -18,6 +20,11 @@ program ok
   real(8) :: uccart(3, 3) ! cartesian unit cell
   type(lib_common_type), target :: w90main
 
+#ifndef Wannier90_MPI
+  ! MPI dummy
+  integer :: mpi_comm_world = 0
+#endif
+
   ! collect data
   nb = 12
   nw = 8
@@ -58,10 +65,12 @@ program ok
     enddo
   enddo
 
+#ifdef Wannier90_MPI
   ! setup MPI
   call mpi_init(ierr)
   call mpi_comm_size(mpi_comm_world, mpisize, ierr)
   call mpi_comm_rank(mpi_comm_world, mpirank, ierr)
+#endif
 
   ! crude k distribution
   allocate (distk(nk))
@@ -125,5 +134,7 @@ program ok
       write (stdout, '(4f20.10)') (w90main%wannier_data%centres(ic, ib), ic=1, 3), w90main%wannier_data%spreads(ib)
     enddo
   endif
+#ifdef Wannier90_MPI
   call mpi_finalize()
+#endif
 end program
diff --git a/...ite/libv2-demo/lib-gas-opt-pllel/gaas.amn → test-suite/libv2-demo/lib-gas-opt/gaas.amn b/...ite/libv2-demo/lib-gas-opt-pllel/gaas.amn → test-suite/libv2-demo/lib-gas-opt/gaas.amn
diff --git a/...ite/libv2-demo/lib-gas-opt-pllel/gaas.eig → test-suite/libv2-demo/lib-gas-opt/gaas.eig b/...ite/libv2-demo/lib-gas-opt-pllel/gaas.eig → test-suite/libv2-demo/lib-gas-opt/gaas.eig
diff --git a/...ite/libv2-demo/lib-gas-opt-pllel/gaas.mmn → test-suite/libv2-demo/lib-gas-opt/gaas.mmn b/...ite/libv2-demo/lib-gas-opt-pllel/gaas.mmn → test-suite/libv2-demo/lib-gas-opt/gaas.mmn
diff --git a/...ite/libv2-demo/lib-gas-opt-pllel/makefile → test-suite/libv2-demo/lib-gas-opt/makefile b/...ite/libv2-demo/lib-gas-opt-pllel/makefile → test-suite/libv2-demo/lib-gas-opt/makefile
@@ -5,5 +5,5 @@ XLIBS=$(ROOT)/libwan2.a
 a.out: demo.o 
 	$(MPIF90) demo.o $(LIBS) $(XLIBS)
 demo.o: demo.f90
-	$(MPIF90) $(FCOPTS) $(XINCS) -c $<
+	$(MPIF90) $(FCOPTS) -DWannier90_MPI $(XINCS) -c $<