forums.silverfrost.com

Mecej4, Paul,

Thank you both for your explanations. I understand what is happening now.

I knew how to make Dan’s first example work – the result of brute force testing to find what works ye ...

I find this confusing. If the EXTERNAL declaration is required in the module in Dan’s code, why is it not also necessary in my modified version of Dan’s code?

Try this instead:

module mod1
character(len=256) CurrentDirectoryName

contains

integer function aa()
character(len=256) CURDIR@
CurrentDirectoryName = CURDIR@&# ...

Or using %pm:

program bill2
use clrwin
implicit none
integer iw
integer cb_1, cb_2, cb_3
external cb_1, cb_2, cb_3
iw = winio@('%mn[Exit]&','exit')
iw = winio@('%pm& ...

I have run into to the same problem. No amount of nesting hidden boxes appears to help in this case. To overcome this I have used either a menu item or a mouse click in the graphics region to cause ...

Paul, One to look at when you get the opportunity (a very minor issue).
complex z1
z1%re = 3.0 ; z1%im = 4.0
end
The Compiler says (Ver 8.95): "Warning 298 - Variable Z1 has been used withou ...

Paul,
Thanks for implementing the 2008 Standard support for complex z. This will be very useful.
Ken

Paul, Thanks for both of these tutorials. Very useful to see some parts of Clearwin+ that I have never had cause to use until now. These simple tutorials make the possibilities of Clearwin+ much more ...

Dan, I tried adding the line you suggested.

CALL winop@('%plnapp
module surge_arrester_mod
use clrwin
implicit none
integer, parameter :: dp = kind(1.d0)
integer, parameter & ...

Paul, I can confirm that this works as expected for X64.

There is still a minor problem with Win32. If you try the example below, compile with Win32, and look at the x-axis labeling at 10**-4, and ...

Thanks Paul, I can see ATAN(y,x) is implemented in the latest download.

I can replicate this problem.

I did note that if CONTAINS is present - but contains no functions or subroutines, the code runs as expected.

Thanks Paul, I think it is important that the core math functions of the later versions of the standard find their way into Silverfrost Fortran - and you have come a long way toward achieving this si ...

In Fortran 2008, the intrinsic function ATAN now has an extra form ATAN(Y,X), which is exactly the same as ATAN2(Y,X), i.e. the following code is valid in Fortran 2008:

print*, ATAN(1.d0,1.d0&# ...

The following code compiles in FTN95 without any errors or warnings, while other compilers either issue an error or a warning.

I don't think this is a major problem (in terms of the executable gene ...