Skip to content

Commit

Permalink
corrects an unclear comment
Browse files Browse the repository at this point in the history
  • Loading branch information
Jerome Jackson committed Jan 15, 2025
1 parent c1b990b commit 4149913
Showing 1 changed file with 1 addition and 2 deletions.
3 changes: 1 addition & 2 deletions src/library_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -304,7 +304,7 @@ subroutine w90_input_setopt(common_data, seedname, istdout, istderr, ierr)

ierr = 0

if (.not. valid_communicator(common_data%comm)) then ! always true of MPI not defined (see comms.F90)
if (.not. valid_communicator(common_data%comm)) then ! when MPI is not defined, valid_communicator returns true (see comms.F90)
! this is a problem: how do we exit using the parallel error handler when the communicator is unknown?
write (istderr, *) ' Error: parallel Wannier90 library invoked with invalid communicator, exiting. Use w90_set_comm()!'
ierr = code_mpi
Expand Down Expand Up @@ -563,7 +563,6 @@ subroutine w90_disentangle(common_data, istdout, istderr, ierr)
return
endif

!fixme, aliasing of input and output m_matrix_local here (resizing nb,nb -> nw,nw)
call setup_m_loc(common_data%kmesh_info, common_data%print_output, common_data%m_matrix_local, &
common_data%m_matrix_local, common_data%u_matrix, common_data%num_bands, &
common_data%num_kpts, common_data%num_wann, common_data%timer, &
Expand Down

0 comments on commit 4149913

Please sign in to comment.