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 |