xsetun Subroutine

private subroutine xsetun(me, lun)

reset the logical unit number for error messages.

xsetun sets the logical unit number for error messages to lun.

Author

  • hindmarsh, alan c., (llnl)

Revision history

  • 921118 date written
  • 930329 added slatec format prologue. (fnf)
  • 930407 corrected see also section. (fnf)
  • 930922 made user-callable, and other cosmetic changes. (fnf)

Type Bound

dvode_t

Arguments

Type IntentOptional Attributes Name
class(dvode_t), intent(inout) :: me
integer :: lun

Calls

proc~~xsetun~~CallsGraph proc~xsetun dvode_module::dvode_t%xsetun proc~ixsav dvode_module::dvode_t%ixsav proc~xsetun->proc~ixsav

Source Code

   subroutine xsetun(me,lun)

      class(dvode_t),intent(inout) :: me
      integer :: lun

      integer :: junk

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

   end subroutine xsetun