forums.silverfrost.com

No problem Paul. It was worth an hour experimenting with these. I would have been delighted if I'd caught the wild goose, (or perhaps a wild haggis at this time of year in Scotland)!

Paul,

Thanks for the two suggestions. I investigated these this morning.

With:
call FREEZE_WINDOW_CONTENTS@(hwnd)
call simpleplot_redraw@()
call UNFREEZE_WINDOW_CONTENT ...

Dan,

One disadvantage of the approach in my example code is that %pl[external] cannot have a callback. Understandable since you cannot detect mouse clicks etc in a memory resident graphics region, ...

For reference here is the equivalent code, without the "no flicker" approach.

module demo
use clrwin
implicit none
real*8 :: arr(50)
integer :: gw = 900, gh = ...

The discussion about sorting in another thread reminded me of the short demo program below which was sitting on my desktop.

When a %pl is embedded in a window, if it is desired to continually updat ...

Paul,

I think you need to look at this one.

!
! With either the 32 bit or 64 bit complier, with /checkmate the following
! error stops compilation at the line indicated:
!
! error 967 - ...

John,

The problem with using AI is you have to learn to ask the correct questions!

Here's my final attempt at this problem (for now anyway!)

In this case AI was very helpful! Although it's a ...

John,

Thanks for sharing this summary of your observations on this which are very useful.

This is clearly a thought provoking thread.

I have been experimenting with a random pivot. I don't s ...

I think the error reported by the compiler in this case is not correct.

I don't understand how an implied do loop / array constructor can reference an intrinsic function, but not a function defin ...

Lester, These answer both of your questions.

program q1
implicit none
integer :: n
real*8 :: fact
integer :: i
do i = 1, 25
n = i
fact = gamma( mi ...

The following code generates a run time access violation when compiled with the 64 bit compiler.

The 32 bit compiler returns the correct value of 1.d0

program bug_in_product
implicit none
real ...

The code I posted earlier is not portable to other compilers, because of a programmer error!

Code below is, which explicitly deals with negative and zero values of n.

For n .ge. 1 the implied d ...

Lester,

Using the 64 bit compiler, you could do this calculation in one line of fortran.

Use an implied do loop within an array constructor, and then apply the product intrinsic to the array.
...

Please consider adding shiftr and shiftl to the wish list.

I had to resort to adding a ftn95 specific module in order to compile and run a much larger program with ftn95

Thanks

Ken

winap ...

John,

You might want to look at this implementation, which is the fastest I have seen for large data sets. It sorts the input array and also returns index values.

https://github.com/gher-uliege ...