xsetun Subroutine

subroutine xsetun(lun)

Name

xsetun(3f) - [M_odepack::matrix] Reset the logical unit number for error messages.

Synopsis

subroutine xsetun (lun)
integer,intent(in) :: lun

Description

XSETUN sets the logical unit number for error messages to LUN.

Options

LUN

logical unit number used for error messages

Arguments

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

Calls

proc~~xsetun~~CallsGraph proc~xsetun xsetun.inc::xsetun ixsav ixsav proc~xsetun->ixsav

Variables

Type Visibility Attributes Name Initial
integer, public :: junk

Source Code

subroutine xsetun (lun)

integer,intent(in) :: lun

integer :: junk

   if (lun > 0) junk = ixsav ( 1, lun, .true. )

end subroutine xsetun