| Procedure | Location | Procedure Type | Description |
|---|---|---|---|
| calculator | M_calculator | Subroutine | !!!!! could return string values directly instead of thru message field !!!!! make sure normal output values are not left indeterminate |
| dnum0 | M_calculator | Function | doubleprecision function dnum0(inline,ierr) |
| expression | M_calculator | Subroutine | Results: |
| insert | M_calculator | Interface | |
| inum0 | M_calculator | Function | integer function inum0(inline,ierr) |
| locate | M_calculator | Interface | |
| remove | M_calculator | Interface | |
| replace | M_calculator | Interface | |
| rnum0 | M_calculator | Function | Sample program |
| set_myfunc | M_calculator | Subroutine | |
| set_mysub | M_calculator | Subroutine | |
| snum0 | M_calculator | Function | function snum0(inline0,ierr) |
| stuff | M_calculator | Subroutine | subroutine stuff(varnam,val,ioflag) |
| stuffa | M_calculator | Subroutine | subroutine stuffa(varnam,string,ioflag) |
| test_c | test_suite_M_calculator | Subroutine | call unit_test(‘c’, 0.eq.0, ‘checking’,100) |
| test_calculator | test_suite_M_calculator | Subroutine | call unit_test(‘calculator’, 0.eq.0, ‘checking’,100) |
| test_dnum0 | test_suite_M_calculator | Subroutine | |
| test_expression | test_suite_M_calculator | Subroutine | |
| test_funcs | test_suite_M_calculator | Subroutine | |
| test_inum0 | test_suite_M_calculator | Subroutine | |
| test_juown1 | test_suite_M_calculator | Subroutine | call unit_test(‘juown1’, 0.eq.0, ‘checking’,100) |
| test_rnum0 | test_suite_M_calculator | Subroutine | |
| test_snum0 | test_suite_M_calculator | Subroutine |