File tree Expand file tree Collapse file tree 1 file changed +15
-15
lines changed Expand file tree Collapse file tree 1 file changed +15
-15
lines changed Original file line number Diff line number Diff line change @@ -783,25 +783,25 @@ end subroutine tokenize_csv_line
783
783
784
784
function number_of_lines_in_file (iunit ) result(n_lines)
785
785
786
- implicit none
786
+ implicit none
787
787
788
- integer ,intent (in ) :: iunit ! ! the file unit number
788
+ integer ,intent (in ) :: iunit ! ! the file unit number
789
789
! ! (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
802
802
rewind(iunit)
803
803
804
- end function number_of_lines_in_file
804
+ end function number_of_lines_in_file
805
805
! *****************************************************************************************
806
806
807
807
! *****************************************************************************************
You can’t perform that action at this time.
0 commit comments