diff --git a/KS_Solvers/PPCG/Makefile b/KS_Solvers/PPCG/Makefile index d1109d3ad2c35ceb103d6bd3d1187dd8adb15129..59c229709ce449882ea238243943779c5b081697 100644 --- a/KS_Solvers/PPCG/Makefile +++ b/KS_Solvers/PPCG/Makefile @@ -8,6 +8,8 @@ MODFLAGS= $(MOD_FLAG) ../../ELPA/src $(MOD_FLAG) ../../LAXlib $(MOD_FLAG) ../../ PPCG = \ ppcg_gamma.o \ ppcg_k.o \ +export_gstart_2_ppcg.o \ +set_mpi_comm_4_ppcg.o \ ppcg_param.o all : libppcg.a diff --git a/KS_Solvers/PPCG/export_gstart_2_cg.f90 b/KS_Solvers/PPCG/export_gstart_2_ppcg.f90 similarity index 87% rename from KS_Solvers/PPCG/export_gstart_2_cg.f90 rename to KS_Solvers/PPCG/export_gstart_2_ppcg.f90 index 90079ab119f8ba364ca502e01cae2596bcb65519..5cdea4ad4c9b11b2ab605b9a2d9d453dff1f2e35 100644 --- a/KS_Solvers/PPCG/export_gstart_2_cg.f90 +++ b/KS_Solvers/PPCG/export_gstart_2_ppcg.f90 @@ -6,7 +6,7 @@ ! or http://www.gnu.org/copyleft/gpl.txt . ! !---------------------------------------------------------------------------- -SUBROUTINE export_gstart_2_cg(gstart_) +SUBROUTINE export_gstart_2_ppcg(gstart_) !---------------------------------------------------------------------------- ! USE mp_bands_util, ONLY : gstart @@ -17,4 +17,4 @@ SUBROUTINE export_gstart_2_cg(gstart_) ! gstart = gstart_ ! -END SUBROUTINE export_gstart_2_cg +END SUBROUTINE export_gstart_2_ppcg diff --git a/KS_Solvers/PPCG/make.depend b/KS_Solvers/PPCG/make.depend index 977b8bf3918b04aded6be89cabeaca8b8fa4de03..c74c8a39a7f80dc62662394c4deaa2aefd28639e 100644 --- a/KS_Solvers/PPCG/make.depend +++ b/KS_Solvers/PPCG/make.depend @@ -1,4 +1,4 @@ -export_gstart_2_cg.o : ../../UtilXlib/mp_bands_util.o +export_gstart_2_ppcg.o : ../../UtilXlib/mp_bands_util.o ppcg_gamma.o : ../../LAXlib/la_types.o ppcg_gamma.o : ../../LAXlib/mp_diag.o ppcg_gamma.o : ../../LAXlib/ptoolkit.o @@ -23,7 +23,7 @@ rotate_wfc_k.o : ../../LAXlib/ptoolkit.o rotate_wfc_k.o : ../../UtilXlib/mp.o rotate_wfc_k.o : ../../UtilXlib/mp_bands_util.o rotate_wfc_k.o : ppcg_param.o -set_mpi_comm_4_cg.o : ../../LAXlib/mp_diag.o -set_mpi_comm_4_cg.o : ../../UtilXlib/mp.o -set_mpi_comm_4_cg.o : ../../UtilXlib/mp_bands_util.o -set_mpi_comm_4_cg.o : ppcg_param.o +set_mpi_comm_4_ppcg.o : ../../LAXlib/mp_diag.o +set_mpi_comm_4_ppcg.o : ../../UtilXlib/mp.o +set_mpi_comm_4_ppcg.o : ../../UtilXlib/mp_bands_util.o +set_mpi_comm_4_ppcg.o : ppcg_param.o diff --git a/KS_Solvers/PPCG/set_mpi_comm_4_cg.f90 b/KS_Solvers/PPCG/set_mpi_comm_4_ppcg.f90 similarity index 90% rename from KS_Solvers/PPCG/set_mpi_comm_4_cg.f90 rename to KS_Solvers/PPCG/set_mpi_comm_4_ppcg.f90 index ecef6285acb8033c1a7348fc929f226ae99de3b9..2e13efb69b2b250909566122feabb6090a3123a4 100644 --- a/KS_Solvers/PPCG/set_mpi_comm_4_cg.f90 +++ b/KS_Solvers/PPCG/set_mpi_comm_4_ppcg.f90 @@ -6,7 +6,7 @@ ! or http://www.gnu.org/copyleft/gpl.txt . ! !---------------------------------------------------------------------------- -SUBROUTINE set_mpi_comm_4_cg(parent_comm, intra_bgrp_comm_, inter_bgrp_comm_ ) +SUBROUTINE set_mpi_comm_4_ppcg(parent_comm, intra_bgrp_comm_, inter_bgrp_comm_ ) !---------------------------------------------------------------------------- ! USE ppcg_param, ONLY : DP @@ -56,12 +56,12 @@ SUBROUTINE set_mpi_comm_4_cg(parent_comm, intra_bgrp_comm_, inter_bgrp_comm_ ) ! #endif - !write(*,*) ' exit set_mpi_4_cg' + !write(*,*) ' exit set_mpi_4_ppcg' RETURN ! -END SUBROUTINE set_mpi_comm_4_cg +END SUBROUTINE set_mpi_comm_4_ppcg !---------------------------------------------------------------------------- -SUBROUTINE unset_mpi_comm_4_cg() +SUBROUTINE unset_mpi_comm_4_ppcg() !---------------------------------------------------------------------------- ! use mp_diag @@ -71,4 +71,4 @@ SUBROUTINE unset_mpi_comm_4_cg() #endif RETURN ! -END SUBROUTINE unset_mpi_comm_4_cg +END SUBROUTINE unset_mpi_comm_4_ppcg