I made small demo. Unless i do something wrong, here in comparison is what generates %pl with smoothing=0 and what produces other plotting software. Left picture is what %pl gives, while at the right is the picture created with Origin software.
In %PL the 'smoothing=0' clearly does not work. Usually such artifacts like on left picture are obtained when the internal plotting smoothing mechanisms fail. Just look at the last 4 XY points around X=2. The maximum value there is 2.427E-02 while %pl plots it as if it's 1. I hope smoothing=0 will be easy to fix
Here is simplest plotting software and approximately the same data (call the file 'data.dat') as in the pictures above, it was just cut to fit into the posting size
use clrwin
parameter (N=100)
real*8 X(N), Y(N)
y( : )=1.e-30
open(11, file='Data.dat')
do i=1,N
read(11,*,err=100,end=100) X(i),Y(i)
enddo
100 close(11)
print*,' number of records=', i-1
Nxy=i-1
i=winio@('%sf%ts%bf%es&', 2d0) ! text size, boldface, ESC
call winop@('%pl[axes_pen=3,width=3,x_axis='Radius (km)',y_axis='f(E) (arb.un.)']') ! axis width, line width, axis names
i=winio@('%ww%pv%pl[native,framed,x_array,scale=log_linear, y_min=1.e-3, y_max=1., smoothing=0, N_GRAPHS=1]', 768,640, Nxy, X, Y)
end
Data.dat:
5.577E-01 2.965E-02
5.777E-01 1.965E-02
5.957E-01 1.665E-01
6.057E-01 9.665E-02
6.457E-01 3.665E-02
6.607E-01 3.581E-02
6.761E-01 7.000E-02
6.918E-01 3.420E-02
7.079E-01 6.685E-02
7.244E-01 1.000E-30
7.413E-01 3.192E-02
7.586E-01 3.119E-02
7.762E-01 9.145E-02
7.943E-01 2.979E-02
8.128E-01 5.822E-02
8.318E-01 2.845E-02
8.511E-01 8.340E-02
8.710E-01 1.000E-30
8.913E-01 2.655E-02
9.120E-01 2.594E-02
9.333E-01 7.606E-02
9.550E-01 1.000E-30
9.772E-01 2.421E-02
1.000E+00 7.098E-02
1.023E+00 6.937E-02
1.047E+00 4.519E-02
1.072E+00 2.208E-02
1.096E+00 1.000E-30
1.122E+00 4.217E-02
1.148E+00 4.122E-02
1.175E+00 2.014E-02
1.202E+00 1.968E-02
1.230E+00 3.846E-02
1.259E+00 1.879E-02
1.288E+00 1.000E-30
1.318E+00 7.180E-02
1.349E+00 5.262E-02
1.380E+00 1.714E-02
1.413E+00 1.000E-30
1.445E+00 3.274E-02
1.479E+00 4.799E-02
1.514E+00 1.563E-02
1.549E+00 1.000E-30
1.585E+00 1.493E-02
1.622E+00 4.377E-02
1.660E+00 1.426E-02
1.698E+00 1.000E-30
1.738E+00 2.723E-02
1.778E+00 1.000E-30
1.820E+00 1.300E-02
1.862E+00 1.000E-30
1.905E+00 1.000E-30
1.950E+00 2.427E-02
1.995E+00 1.186E-02
2.042E+00 1.000E-30
4.042E+00 1.000E-30