From 6f9a347cac23cbc361fc59cb9226a7c0b6f069ee Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 7 Nov 2011 11:36:45 -0500 Subject: [PATCH] Improved performance of skip_lines by removing tmp. --- src/fileio.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/fileio.f90 b/src/fileio.f90 index 758634a600..48205a3f82 100644 --- a/src/fileio.f90 +++ b/src/fileio.f90 @@ -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