Skip to content

Commit

Permalink
rename subroutine to match naming convention
Browse files Browse the repository at this point in the history
  • Loading branch information
Jerome Jackson committed Jan 15, 2025
1 parent c53a3f3 commit 54fcc94
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
6 changes: 3 additions & 3 deletions src/library_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -174,7 +174,7 @@ module w90_library
end type lib_common_type
!! container type for all variables used by the Wannier90 library

public :: input_print_details
public :: w90_print_info
!! prints a wide variety of simulation parameters to stdout
public :: w90_create_kmesh
! trigers the generation of k-mesh info (as do get_nn*)
Expand Down Expand Up @@ -1071,7 +1071,7 @@ subroutine w90_set_comm(common_data, comm)
common_data%comm%comm = comm
end subroutine w90_set_comm

subroutine input_print_details(common_data, istdout, istderr, ierr)
subroutine w90_print_info(common_data, istdout, istderr, ierr)
use w90_error_base, only: w90_error_type
use w90_readwrite, only: w90_readwrite_write_header
use w90_wannier90_readwrite, only: w90_wannier90_readwrite_write
Expand Down Expand Up @@ -1122,7 +1122,7 @@ subroutine input_print_details(common_data, istdout, istderr, ierr)
call prterr(error, ierr, istdout, istderr, common_data%comm)
return
endif
end subroutine input_print_details
end subroutine w90_print_info

subroutine w90_set_option_text(common_data, keyword, text)
use w90_readwrite, only: init_settings, expand_settings
Expand Down
4 changes: 2 additions & 2 deletions src/wannier_prog.F90
Original file line number Diff line number Diff line change
Expand Up @@ -63,7 +63,7 @@ program wannier
use w90_library_extra ! for input_reader_special, overlaps, etc

use w90_comms, only: w90_comm_type, comms_sync_error
use w90_io, only: io_print_timings, io_commandline, io_date, prterr
use w90_io, only: io_commandline, io_date, prterr
use w90_sitesym, only: sitesym_read
use w90_error, only: w90_error_type, set_error_input

Expand Down Expand Up @@ -136,7 +136,7 @@ program wannier
if (ierr /= 0) stop

! write useful info (includes jazzy header info)
call input_print_details(common_data, stdout, stderr, ierr)
call w90_print_info(common_data, stdout, stderr, ierr)
if (ierr /= 0) stop

! test mpi error handling using "unlucky" input token
Expand Down

0 comments on commit 54fcc94

Please sign in to comment.