forums.silverfrost.com

Not entirely fine - if you use Plato.

The Plato help says "When there is no project open, you can view the Project Explorer window in order to add references that are used when compiling and l ...

Mecej4, Thanks for the feedback. Yes, I can replicate that error for the 64 bit test program using the the current FTN version, with the dlls on the Gitlab page that were prepared using FTN v8.97.2.
...

For NSWC Fortran routines + FTN95 see:

https://gitlab.com/silverfrost/nswc

I asked ChatGPT the question "Suppose I have a Clearwin program that produces a changing image. How to make a mp3 or 4 file from this?"

The answer was:

ffmpeg is a free, open-source co ...

And here is one of Paul's examples from a few years ago:

module mymod
use clrwin
integer(7) hwnd
contains
integer function export()
iw = export_window_image@(hwnd,&qu ...

Dan,

The sample program in the following post captures the full window and copies it to the clipboard using EXPORT_WINDOW_IMAGE@

https://forums.silverfrost.com/viewtopic.php?t=5002

Thanks Paul, I took forward to experimenting with this addition.

The functions TRAILZ, LEADZ, and POPCNT (and also POPPAR) are listed as intrinsic functions in the 2008 standard.

An alternative is to use fileinfo@ which works as shown below.
program test_inquire_size
implicit none
character(260) :: path
integer(2) :: mode, dev, r ...

The SIZE= specifier was added to the INQUIRE statement in Fortran 2003, i.e. after the Fortran 95 standard.

In the DOW() function, in the line:

dow = mod(max(v, v+7),7) + 1

it appears that the code is trying to keep v positive but the expression mod(max(v, v+7),7) is not equivalent to ...

Here is a function to do the required check before calling DOW.
logical function is_valid_date(y, m, d)
! Returns .true. if (y, m, d) is a valid proleptic Gregorian calendar date.
...

Paul,

Thanks, that is very useful.

Your recollection is entirely consistent with what I have observed both without and with smoothing.

I will use draw_filled_rectangle@ instead of draw_pixe ...

In the program below, a heat map is plotted by colouring pixels within the “PLOT_ADJUST” section of a %pl call back.

This task is performed using to nested loops to work across/down the pixel space ...

i=winio@('%14.4wf ROT')

should be:

i=winio@('%14.4wf', ROT)

etc.