filename Function

public function filename(unit)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit

Return Value character(len=:), allocatable


Source Code

function filename(unit)
   integer, intent(in) :: unit
   character(len=:), allocatable :: filename

   character(len=512) :: buffer
   logical :: opened

   filename = "(input)"
   if (unit /= -1) then
      buffer = ""
      inquire(unit=unit, opened=opened, name=buffer)
      if (opened .and. len_trim(buffer) > 0) then
         filename = trim(buffer)
      end if
   end if
end function filename