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	Intent	Optional	Attributes		Name
type(aot_out_type),	intent(inout)			::	put_conf

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