initialize Subroutine

  1. finer_file_ini_t.F90
  2. finer_file_ini_t
  3. initialize

private elemental subroutine initialize(self, filename)

Initialize file.

Arguments

TypeIntentOptionalAttributesName
class(file_ini), intent(inout) :: self

File data.
character, intent(in), optional :: filename

File name.

Contents

Source Code

initialize

Source Code

  elemental subroutine initialize(self, filename)
  !< Initialize file.
  class(file_ini), intent(inout)         :: self     !< File data.
  character(*),    intent(in),  optional :: filename !< File name.

  call self%free
  if (present(filename)) self%filename = trim(adjustl(filename))
  endsubroutine initialize