aot_out_close Subroutine

public subroutine aot_out_close(put_conf)

Close the opened script again.

This will close the file, if the data was not written to a pre-connected unit (that is the file for the script was opened in the aot_out_open).

Arguments

Type IntentOptional AttributesName
type(aot_out_type), intent(inout) :: put_conf

Contents

Source Code


Source Code

  subroutine aot_out_close(put_conf)
    !------------------------------------------------------------------------
    type(aot_out_type), intent(inout)  :: put_conf
    !------------------------------------------------------------------------
    if ( .not. put_conf%externalOpen ) close( put_conf%outunit )
  end subroutine aot_out_close