Type | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|
real | :: | x | ||||
real | :: | y | ||||
real | :: | z |
program demo_rnum0 use M_calculator, only : rnum0 implicit none real :: x, y, z x=rnum0('20/3.4') y=rnum0('CI = 10 * sin(3.1416/4)') z=rnum0('CI') write(*,*)x,y,z end program demo_rnum0