Skip to content

Commit bc41acf

Browse files
committed
minor formatting change.
1 parent 0dc5e8e commit bc41acf

File tree

1 file changed

+15
-15
lines changed

1 file changed

+15
-15
lines changed

src/csv_module.f90

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -783,25 +783,25 @@ end subroutine tokenize_csv_line
783783

784784
function number_of_lines_in_file(iunit) result(n_lines)
785785

786-
implicit none
786+
implicit none
787787

788-
integer,intent(in) :: iunit !! the file unit number
788+
integer,intent(in) :: iunit !! the file unit number
789789
!! (assumed to be open)
790-
integer :: n_lines !! the number of lines in the file
791-
792-
character(len=1) :: tmp
793-
integer :: istat
794-
795-
rewind(iunit)
796-
n_lines = 0
797-
do
798-
read(iunit,fmt='(A1)',iostat=istat) tmp
799-
if (is_iostat_end(istat)) exit
800-
n_lines = n_lines + 1
801-
end do
790+
integer :: n_lines !! the number of lines in the file
791+
792+
character(len=1) :: tmp
793+
integer :: istat
794+
795+
rewind(iunit)
796+
n_lines = 0
797+
do
798+
read(iunit,fmt='(A1)',iostat=istat) tmp
799+
if (is_iostat_end(istat)) exit
800+
n_lines = n_lines + 1
801+
end do
802802
rewind(iunit)
803803

804-
end function number_of_lines_in_file
804+
end function number_of_lines_in_file
805805
!*****************************************************************************************
806806

807807
!*****************************************************************************************

0 commit comments

Comments
 (0)