diff options
| -rw-r--r-- | common/utilities.F90 | 9 | ||||
| -rw-r--r-- | player/levitating-player-windows.prj | 4 |
2 files changed, 4 insertions, 9 deletions
diff --git a/common/utilities.F90 b/common/utilities.F90 index d96ec49..8d277f9 100644 --- a/common/utilities.F90 +++ b/common/utilities.F90 @@ -437,8 +437,7 @@ contains character(DIR_LIST_STRING_LENGTH), dimension(:), pointer::res character(80)::line character(len=:), pointer::tempfile - - logical::skip_first + logical, dimension(:), allocatable::is_real_file integer::unum, ierr, i, n, j @@ -491,11 +490,7 @@ contains ! Now we can read files i = 0 - if(skip_first) then - j = 1 - else - j = 0 - end if + j = 0 read(unum, '(A)', iostat=ierr) line do while(ierr == 0 .and. i < n) diff --git a/player/levitating-player-windows.prj b/player/levitating-player-windows.prj index 79915c7..a47131b 100644 --- a/player/levitating-player-windows.prj +++ b/player/levitating-player-windows.prj @@ -85,8 +85,8 @@ "Working Directory":"", "Launch Using MPI":"false", "Keep Console":"true", - "External Console":"false", - "Command Line Arguments":"-i windows-1 -w . rpi", + "External Console":"true", + "Command Line Arguments":"", "Build Before Launch":"true" }, "Build Options":{ |