wpbonelli
diff --git a/‎src/Utilities/Sim.f90‎
Lines changed: 1 addition & 1 deletion b/‎src/Utilities/Sim.f90‎
Lines changed: 1 addition & 1 deletion
@@ -181,7 +181,7 @@ subroutine store_error_unit(iunit, terminate)
     end if
     !
     ! -- store error unit
-    inquire (unit=iunit, name=fname)
+    call get_filename(iunit, fname)
     write (errmsg, '(3a)') &
       "Error occurred while reading file '", trim(adjustl(fname)), "'"
     call sim_uniterrors%store(errmsg)
Original file line number	Diff line number	Diff line change
`@@ -181,7 +181,7 @@ subroutine store_error_unit(iunit, terminate)`
`181`	`181`	`end if`
`182`	`182`	`!`
`183`	`183`	`! -- store error unit`
`184`		`- inquire (unit=iunit, name=fname)`
	`184`	`+ call get_filename(iunit, fname)`
`185`	`185`	`write (errmsg, '(3a)') &`
`186`	`186`	`"Error occurred while reading file '", trim(adjustl(fname)), "'"`
`187`	`187`	`call sim_uniterrors%store(errmsg)`