xsetf Subroutine

subroutine xsetf(mflag)

NAME

xsetf(3f) - [M_odepack::matrix] Reset the error print control flag.

SYNOPSIS

subroutine xsetf (mflag)
integer mflag

DESCRIPTION

XSETF sets the error print control flag to MFLAG:

OPTIONS

MFLAG

MFLAG=1 means print all messages (the default).

MFLAG=0 means no printing.

Arguments

Type IntentOptional Attributes Name
integer :: mflag

Calls

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

Variables

Type Visibility Attributes Name Initial
integer, public :: junk

Source Code

subroutine xsetf (mflag)
integer mflag, junk
!!
   if (mflag .eq. 0 .or. mflag .eq. 1) junk = ixsav (2,mflag,.true.)
end subroutine xsetf