Skip to content
Snippets Groups Projects
dy.f 109 B
      real function dy(x)
      DOUBLE PRECISION V,HQUADF
      v = dble(x)
      dy = float(HQUADF(v))
 end