Simpleplot

SimplePlot has some adverse effect on CWP. For example adding Y_min causes Clearwin not to show the CWP text. In other cases it can change values in the boxes back etc. Since rarely who uses it, it has bugs and is stable just in limited field of parameters. Am i wrong to suppose that Simpleplot was added by the same person who wrote buddy Salford Fortran90 and who hates programming? User made an error in 1.e-40 which should be 1.d-40 which fixes corruption of CWP but brakes Simpleplot 😕

program BuggySimpleplot
  use clrwin
  real*8 a1,a2,a3,a4,Uarray(10000), IntegradArray(10000)
  save

  n=1000

  i=winio@('%ww%ca[plot]%bg[btnface]&')
  i=winio@('%1tl&',16)
  i=winio@('Par1, Par2 [eV]%ta%rf%rf%ff&',a1,a2)
  i=winio@('Par3, Par4 %ta%rf%rf%ff&',a3,a4)
  i=winio@('Par N %ta%rd%ff&',N)

  iwid=300; iheig=200
  i=winio@('%pl[title='Integrand',x_array,N_GRAPHS=1,&
           & Y_min=1.e-40, SCALE=LOG_LINEAR,colour=black]%ff&', &
            iwid, iheig, 10000, Uarray, IntegradArray)

  i=winio@('%ac[esc]&','exit')
  i=winio@('%cn%bt[OK]')
  end

SIMPLEPLOT was written by at software company at Bradford University, UK.

See http://www.silverfrost.com/manuals/frefman1247.pdf

Yes, i know that, but somebody at Salford added it to CWP without much testing!