Skip to content

F change line length #428

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
ayakon merged 1 commit into from
Feb 6, 2026
Merged

F change line length #428

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
12 changes: 8 additions & 4 deletions src/input_module.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,6 +19,8 @@
!! MODIFICATION HISTORY
!! 2008/09/03 10:43 dave
!! Possible bug fix: add datatypes as module wide for typing of fdf_double
!! 2026/02/06 19:30 nakata
!! Changed the maximum length of a line to be read from Conquest_input from 132 to 256
!! SOURCE
!!
module input_module
Expand All @@ -33,11 +35,11 @@ module input_module
save
! Input array
integer :: input_lines
character(len=132), dimension(:), allocatable :: input_array
character(len=256), dimension(:), allocatable :: input_array

! Parsing
integer :: current_line, ntokens
character(len=132) :: line
character(len=256) :: line
integer, dimension(100) :: first, last

! Control
Expand Down Expand Up @@ -83,6 +85,8 @@ module input_module
!! - Bug fix in closing a file
!! 2015/06/08 lat
!! - Added experimental backtrace
!! 2026/02/06 19:30 nakata
!! - Changed the maximum length of a line to be read from Conquest_input from 132 to 256
!! SOURCE
!!
subroutine load_input
Expand All @@ -92,7 +96,7 @@ subroutine load_input
implicit none

type(cq_timer) :: backtrace_timer
character(len=132) :: line
character(len=256) :: line
character(len=10) :: slabel
real(double) :: r
logical :: good_line, done
Expand Down Expand Up @@ -164,7 +168,7 @@ subroutine load_input
call io_close(lun)
end if
do i=1,input_lines
call gcopy(input_array(i),132)
call gcopy(input_array(i),256)
end do
current_line = 0
if(inode==ionode) then
Expand Down