forums.silverfrost.com

Dan, if the large program that you are working with contains some parts/files that were developed in the old days, it is possible that the program uses "I/O to implicitly connected files". F ...

The Euro signs are probably the result of two facts: (a) The Windows-1252 code page uses the byte Z'80' to represent the Euro, and (b) bytes with value Z'80' are used to represent and catch undefined ...

The file https://drive.google.com/file/d/1L1KBWyuoeKUBpiR94i6m3LmUsKu1fJWz/view?usp=sharing is a cleaned-up version of file acdcc.f in the BVPTest package that may be downloaded from https://archimede ...

Thanks, Paul. We may be seeing an instance of the old ways clashing with the new ways.

I have seen many instances in venerable Fortran code where a variable is a member of a common block that is us ...

Thanks, Paul. I understand that it can be difficult to support debugging code with old features, such as BLOCKDATA, for which modern alternatives are available.

Your approach (measuring run time and trying to correlate it with a count of arithmetic operations) makes some sense for an interpreted language that has only one interpreter on your computer. It has ...

Your reasoning ignores the fact that loading and storing operands from memory to registers and back can often consume more processor time than arithmetic operations on operands that are already in reg ...

Thanks, Paul.

Your statement, "FTN95 only allows the renaming to be used within the module where the renaming occurs" startled me somewhat, so I created another short test program to prob ...

Thanks.

As the FTN95 documentation tells you, you can use the standard intrinsic ADJUSTL instead of TRIM@. For LCASE@, unless you want to convert the entire works of Shakespeare to lower case, the following c ...

Instead of
INTEGER(i8) :: TotalFieldCells = 280000000000
you need to write
INTEGER(i8) :: TotalFieldCells = 280000000000_i8
If you don't do that, you are attempting ...

... it (Gfortran) does not like even naturally looking integer*8 thinking it is integer*4
integer*8, parameter :: nTotalFieldCells = 28000000000
Error: Integer too big for its kind. This ...

Ah, I see. Perhaps, if the error message had said "referenced" instead of "used" the meaning would have been clearer to you?

Dan, the following code extract illustrates the issue.

subroutine sub(i,j,k)
implicit none
integer, intent(in) :: i,j
integer, intent(out) :: k
...

If the statement numbered 24301 is within an IF...ENDIF block, you are not allowed to transfer to that statement from a location that is outside the IF block.

Please provide access to the full sour ...