Kenneth_Smith
Joined: 18 May 2012 Posts: 797 Location: Hamilton, Lanarkshire, Scotland.
|
Posted: Mon Mar 17, 2025 11:33 am Post subject: Issue with %pl 32 bit |
|
|
The following code generates the expected plot with the 64 bit compiler.
With the 32 bit compiler, numbers next to the y axis ticks which should be 10 to the -2, -3, and -4 are all shown as 0.
Code: | program p
use clrwin
implicit none
integer, parameter :: n = 12
real*8 :: x(n), y(n)
integer :: i, iw
do i = 1, n
x(i) = i+4
y(i) = 10.d0**(i-6)
end do
iw = winio@('%fn[Arial]%bf%ts&',1.5d0)
call winop@('%pl[native,n_graphs=1]')
call winop@('%pl[frame,gridlines,width=2,colour=red,yaxis=@,xaxis=@]')
call winop@('%pl[y_sigfigs=1,x_min=5,x_max=20,dx=5,y_max=1000000]')
iw = winio@('%pl[x_array,scale=log_linear]', 800,600,n,x,y)
end program p |
I discovered this issue as I was going to suggest that %pl[y_sigfigs=1] may assist Dan with his most recent query. |
|