fixed integer type clash in Get_Unit function
This commit is contained in:
parent
68bfd79044
commit
fdd4e224ce
|
@ -481,7 +481,7 @@ contains
|
|||
integer function Get_Unit(Free_Unit)
|
||||
!---------------------------------------------------------------------------------------------------------------------------------
|
||||
implicit none
|
||||
integer, intent(OUT), optional:: Free_Unit !< Free logic unit.
|
||||
integer(I4P), intent(OUT), optional:: Free_Unit !< Free logic unit.
|
||||
integer:: n1 !< Counter.
|
||||
integer:: ios !< Inquiring flag.
|
||||
logical:: lopen !< Inquiring flag.
|
||||
|
|
Loading…
Reference in New Issue