M_calculator

NAME

rnum0(3f) - [M_calculator] returns real number from string expression using CALCULATOR(3f) (LICENSE:PD)

SYNOPSIS

    real function rnum0(inline)

    character(len=*), intent=(in) :: inline
    integer,intent(out),optional  :: ierr

DESCRIPTION

RNUM0() is used to return a REAL value from a CHARACTER string
representing a numeric expression. It uses the M\_calculator(3fp)
module. ## OPTIONS

inline: INLINE is a CHARACTER variable up to (iclen\_calc=512) characters long that is similar to a FORTRAN 77 numeric expression.
ierr: error code. If zero, no error occurred

DEPENDENCIES

All programs that call the calculator routine can supply their own substitute_subroutine(3f) and substitute_C(3f) procedures, which allow adding procedures to the calculator without altering the M_calculator module. See the example program for samples.

EXAMPLES

Sample program

    program demo_rnum0
    use M_calculator, only : rnum0
    x=rnum0('20/3.4')
    y=rnum0('CI = 10 * sin(3.1416/4)')
    z=rnum0('CI')
    write(*,*)x,y,z
    end program demo_rnum0