forums.silverfrost.com

Plan C evolved last night. Looks like a property sheet but it is not. I don't think I have ever used %aw before.

Posting this as others may find it helpful at some time.

module my_ps
use clrw ...

Paul, Thanks, I think I will adopt plan b for the time being - a smaller font size (that might just be sufficient for the time being).
Ken

I have been using %ps to collate a number of individual sheets %sh, and this has proved to be a very useful approach for both data input and presenting results.

One of my data input sheets is getti ...

Does anybody else occasionally see the appearance of a strange character when editing IF / ELSE IF constructions?

For example, at line 509 in the attached, immediately after changing "else&quo ...

Paul,

Looking at the "old" intrinsics, for complex and extended precision z, log(z) and exp(z) have been implemented but not sqrt(z).
print*, log(cmplx(0.0,1.0,kind=3)) ...

Thanks Paul, I know what I need to do now. I did not think to test the real value case. Ken

It appears that the support for complex intrinsics such as COSH(x) introduced fairly recently does not include support for their use when X is a kind=3 variable.

For the sample below, the symbol CX ...

I recently saw an ICL 1900 running in the plant control centre at a steelworks in South Wales. Not as old as some of the electrical equipment on that site which dates back to the 1950s.

Definitely some devilry here Dan.

Changing the value returned by the call back to 1 rather than 2 does not help.

Printing the values immediately before the calls to window_update@ returns the ex ...

Dan,

This demonstrates where I think the issue may be:

character(len=19) str1, str2
print*
print*, 'cyan is rgb(0,255,255) which is HEX #00FFFF'
print*
print*, 'yellow is ...

Dan wrote
the last color is red, not blue.

Can you show us how you converted the (r,g,b) triplet to hex?

Or try using this approach:

module dan_test_mod
use clrwin
implicit none
integer, ...

Dan,

For the problem you describe, I would check that each :

CALL winop@("%pl[colour=#110011]") etc

is in the correct order for graphs 1 to N.

Dan,

This works without calls to winop@ before the i=winio@ function call:

USE mswin
INTEGER,PARAMETER:: Nx=11, Nt=12
DOUBLE PRECISION Xmp(Nx,Nt),Ymp(Nx,N ...

Dan,

Here is a modification to your second example that now works as expected.

Ken

USE mswin
INTEGER,PARAMETER:: Nx=11, Nt=12
DOUBLE PRECISION Xmp(Nx,Nt) ...

Dan,

This should work, the thing to remember is that if n_graphs > 10 and more than one related call is made to winop@ then the value of n_graphs must be included in the first call to winop@.