crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Improved performance of skip_lines by removing tmp.

Browse source
This commit is contained in:
Paul Romano 2011-11-07 11:36:45 -05:00
parent e5e9c49529
commit 6f9a347cac
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/fileio.f90
View file

@ -79,11 +79,10 @@ contains
integer, intent(in) :: n_lines ! number of lines to skip
integer, intent(out) :: ioError ! error status
integer :: i ! index for number of lines
character(MAX_LINE_LEN) :: tmp ! single line
integer :: i ! index for number of lines
do i = 1, n_lines
read(UNIT=unit, FMT='(A)', IOSTAT=ioError) tmp
read(UNIT=unit, FMT=*, IOSTAT=ioError)
end do
end subroutine skip_lines