[UP]


Manual Reference Pages  - unit_check_good (3)

NAME

unit_check_good(3f) - [M_debug] call command "goodbad NAME good" (LICENSE:PD)

CONTENTS

Synopsis
Description
Examples
Author
License

SYNOPSIS

subroutine unit_check_good(name,opts,msg)

    character(len=*),intent(in)          :: name
    character(len=*),intent(in),optional :: opts
    character(len=*),intent(in),optional :: msg

DESCRIPTION

A shortcut for

      call unit_check(name,.true.)
      call unit_check_done(name,opts,msg)

EXAMPLES

Sample program:

    program demo_unit_check_good
    use M_debug, only: unit_check_start, unit_check_done
    use M_debug, only: unit_check
    use M_debug, only: unit_check_good, unit_check_bad

implicit none integer :: x x=10 call unit_check_start(’myroutine’)

call unit_check(’myroutine’, x.gt.3 ,’test if big enough’) call unit_check(’myroutine’, x.lt.100 ,’test if small enough’)

call unit_check_good(’myroutine’,msg=’checks on "myroutine" ’)

end program demo_unit_check_good

AUTHOR

John S. Urban

LICENSE

Public Domain


unit_check_good (3) October 17, 2020
Generated by manServer 1.08 from edd6d740-6c79-4bc2-9ff4-bf4d999f3f84 using man macros.