forums.silverfrost.com

My other problem with moving to F95 is that my arrays are equivalenced which is not allowed with ALLOCATE.

There are always F77 wrappers to cut up the blocks, although that is making the code more ...

but changing over to using ALLOCATE could be a big task!

It can be, but typically the use of GET_STORAGE@ should be very local, as the use of DCORE8 etc is very combersome, except for being used in ...

I have tried to investigate the difference between ALLOCATE and GET_STORAGE@.

I have extended the program above, to:
# test ALLOCATE to compare memory usage reporting.
# use DCORE8 to access th ...

I did some more changes to the test
PROGRAM MEMTST

IMPLICIT NONE
integer :: total, i, pass, n
integer(7) :: blocks(10)
integer(7), external :& ...

PROGRAM MEMTST
!*
!*------------------------
!* Implicit definition *
!*------------------------
!*
IMPLICIT NONE
integer :: total, i ! , ierror
integer(7) :: block ...

this is a memory usage report routine subroutine report_memory_usage (string, key)
! use ISO_C_BINDING
! use memstat

! interface
! function GlobalMemory ...

Kevin,

I modified your code to not use ENTRY by using a module and use IMPLICIT NONE.
I could not find my routine "report_free_memory_chunks" so used a similar routine.
The following co ...

Kevin,

I would suggest you use implicit none in all routines.
You should be using
INTEGER(7) :: COREADDRESS

This implies a 4-byte integer address for 32-bit or an 8-byte address for 64-bit.
...

Dan,

A few suggestions for OP

INTEGER, PARAMETER :: wp = KIND(1.d0) ! wp = working precision
REAL(wp), PARAMETER :: c_log2 = log(2.0_wp)
REAL(wp), PARAMETER :: pi = 4*ata ...

Simon,

I disagree with your rosey picture of KIND. This is what introduced bloat into Fortran. Things have only got worse !

Given that most computer hardware now supports IEEE 754, the idea of s ...

I am using plato Ver 5.5.0 18/06/2021 ( actually 8/02/2022 )
FTN95 Ver 8.80.0 5/07/2021

I am getting an unexpected "warning 12899 - Procedure expected for argument LINE"

However if ...

I am puzzled, as I am using version 8.80.0 but can not reproduce the problem.

I also tried the following, to see if the unused AIRLN might have been removed, but both options work ok

CHARACTER F ...

The strange thing is that even running it from a command prompt the SDBG debugger does not appear.
I have had plato or SDBG disappear, as it's window address gets corrupted.
If you hover on the task ...

Does function gaussian require a RESULT statement for where the value of the function is an array?

I thought this was a requirement for Fortran 95 ?

Is the problem that IOSTAT = 0 ? ie the error was not detected ?

program dread
implicit none
integer ios
real anin
character(18) :: str = 'ANIN =4e19 '
character(200 ...