forums.silverfrost.com

[stfark1]

Supposedly, in the winio@ language, one is supposed to be able to output a floating point number in a window as follows:

i=winio@('%14.4wf VARIABLE &'), where:
14.4 outputs the floating point number
VARIABLE is the variable name
& leaves the window open for future activity

I have this sequence in my subroutine, after I have specified the window, size, etc.

However, even though I set the Variable to a value, it always comes out zero in the window??? Totally perplexed why, any advise? Sid kraft

[PaulLaidler]

double precision var
var = 1.2345d0
i=winio@('%14.4wf',var)
end

[stfark1]

Paul: I changed the variables as you had requested, made them all DOUBLE PRECISION. Ran the example, they were output to the window and all values were 0.0000. I tried to find an example in the winio@ pictorial that was put together by the Salford people and could not find an actual program segment sample that showed the "i=winio@('%wf14.4, Var &')" use. I believe that there is a very simple problem in using this winio@ feature that I am overlooking, should not be that hard. Is it possible to find an actual example of this structure being used in a Fortran program? Let me know, Sid Kraft

[PaulLaidler]

Sid

If you can post some sample code to show what you are doing then someone will probably be able to help you..

[stfark1]

Here it is:
SUBROUTINE OPENGL(ROT,XX,YY,ZZ)
IMPLICIT REAL*8 (A-H,O-Z)
COMMON PLTX(110), PLTY(110), PLTZ(110), ICIRCL, SGSIZE, INOW
C COMMON ROT,XX,YY,ZZ
INCLUDE <clearwin.ins>,nolist
INCLUDE <opengl.ins>,nolist
INTEGER*4 ctrl, INDX, INDXSV, IPLCDE, IPEN(110),IPENI,ISTRSG, II
CHARACTER ABUFF(80)
CHARACTER*1 A49(49)
DIMENSION X(110), Y(110), Z(110), II(110),JJ(110),KK(110)
C SET THE WINDOW HEADER
i=winio@('%es%ca[Simple OpenGL Example]&')
C SET THE WINDOW SIZE
i=winio@('%sp%ww[no_border]%og[static]%lw',0,0,1500,1500,ctrl)
C OUTPUT THE VARIABLES ROT, XX, YY, ZZ
i=winio@('%14.4wf ROT &')
i=winio@('%14.4wf XX &')
i=winio@('%14.4wf yy &')
i=winio@('%14.4wf ZZ &')

In the above example, when I output the variables ROT, XX, YY, ZZ as shown
from winio@, they all are displayed as 0.0000?? Even though I declared the output to be equivalent to the Fortran directed output to be f14.4, i.e. theoretically as 14 characters long with 4 characters after the decimal point, totally confused why the variables are 0.0000. The variables are utilized in the OpenGL software to rotate 20 degrees around the ZZ axis, i.e. again, ROT=20., XX=0., YY=0., ZZ=1. Any ideas will be appreciated, Sid Kraft

[stfark1]

Answer from winio@ 0.0000ROT, 0.0000XX, 0.0000YY, 0.0000ZZ when the variables are output to the window in the previous example, Sid Kraft

[PaulLaidler]

Sid

It looks like you have displayed the initial values of these variables before the process to change them has been applied.

You might find it helpful to use the debugger and to step through the process that is generating the output.

%lw means "leave window open" so what follows it happens immediately.