demo_inum0 Program

program demo_inum0
use M_calculator, only : inum0
implicit none
integer :: i,j,k
   i=inum0('20/3.4')
   j=inum0('CI = 13 * 3.1')
   k=inum0('CI')
   write(*,*)'Answers are ',I,J,K
end program demo_inum0