forums.silverfrost.com

Paul,

Thanks for this addition, as it is an area of uncertainty for me when using allocatable arrays in F03+ code.

My apologies but I am not sure if this is the option I am wanting, as I am prob ...

It was the case that non /64 supported real*10.
Has that now changed for version ftn95 9.10.0.0 under Windows 11 Pro 24H2 ?

The main difference between F77 and F95 is the increase in supported standard functions. You could have a few name clashes, but any global edit can fix this easily.

Also a lot of those non-standard ...

The following edit removes the problem
program p
use test_mod
implicit none
logical :: is_unit
integer :: lu
lu = nextfreeunit()
is_unit = isfree(10)
pr ...

I have now expanded:
integer function get_lv_header_pixel_width ( lv_data, nrows )
to also read all the data rows and use get_text_size@ to determine the max pixel width required of the header row ...

I was testing using a contained function as a ^ call-back.
It could have the advantage of all variables in the winio@ call are in scope, and the local callback is not in scope for other winio@ blocks ...

Hi Paul,

Thanks for the offer to review %lv. I will look to develop a sample program that may demonstrate the problem.

I have also developed a utility routine to estimate the actual pixel width ...

Paul,

I am unsure as to what are "Microsoft control features" (MCF) and what are Clearwin+ Options (C+O). I am wondering if MCF covers this already.

If the header format includes a co ...

Lester,

Yes, there is a limit of about 70 lines of code that can be posted here.

Dropbox file sharing is one alternative, which seems to work well.

Could the forum have a scrollable code b ...

I would also recommend reading Eddie's book "Fortran and the Art of Windows Programming".

It has been a few/many years since I last wrote clearwin+ programs, and the discussion of the app ...

Lately, I have been developing a financial data presentation and reporting program.

I have found the %lv table display very useful, using view = 1. (not sure how to use onter view values)

I know ...

Ken,

I am a bit behind, as I am not using Ver 9.06 as yet.

However I ran your 27-Jan example in Plato (without buffering), plus having FTN95 help window opened and the FTN95 Help window index wa ...

Ken,

I am using Version 9.05 /64 /debug and get an access violation error on the array constructor.

I also tried the following with the same outcome.
sum_y = [ ( sum(random_y(1:i) ), i = 1, n) ...

The following is an incomplete template of reading the (6) headers with some flexibility and validation of the labels.
It can be help to provide some basic checking of names, although they can vary w ...

In your select case (choice)
case (constant_value)

"Choice" can not be a real or complex expression, but must be integer, character or (possibly) logical. It may be an expression that ...