fortranparser_test.f90

Go to the documentation of this file.

program fortranparser_test

  use fortranparser, only : equationparser

  implicit none

  type(equationparser) :: eqparser
  character(len=100)   :: stringequation
  character(len=10)    :: variables(1)
  integer              :: i

  real(selected_real_kind(p=6,r=37)) :: varvalues(1)

  stringequation = 'x**2'
  variables = ['x']

  eqparser = equationparser(stringequation, variables)

  do i = 1, 100
     varvalues = i
     write(*,*) varvalues, eqparser%evaluate(varvalues)
  enddo

end program fortranparser_test