diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 14:30:31 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-24 14:30:31 -0400 |
| commit | 4ecc34867dcea7dc30125e716329b0b8955fa080 (patch) | |
| tree | bde48e3b4bc9267c272a4743a4ae83daa000cf38 | |
| parent | ce036a72ca597a9dd3b19fb1f9871c01376a5361 (diff) | |
| download | levitating-4ecc34867dcea7dc30125e716329b0b8955fa080.tar.gz levitating-4ecc34867dcea7dc30125e716329b0b8955fa080.zip | |
Removed unitialized logical from file listing routine. Fixed Windows project reference to utilities.F90.
| -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":{ |