forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Search found 2384 matches
forums.silverfrost.com Forum Index
Author Message
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Mon Jun 27, 2022 12:33 pm   Subject: Re:
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 ...
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Mon Jun 27, 2022 12:24 pm   Subject: Re:
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 ...
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Sat Jun 25, 2022 1:27 pm   Subject:
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 ...
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Sat Jun 25, 2022 10:36 am   Subject:
I did some more changes to the test
PROGRAM MEMTST

IMPLICIT NONE
integer :: total, i, pass, n
integer(7) :: blocks(10)
integer(7), external :& ...
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Sat Jun 25, 2022 8:13 am   Subject:
PROGRAM MEMTST
!*
!*------------------------
!* Implicit definition *
!*------------------------
!*
IMPLICIT NONE
integer :: total, i ! , ierror
integer(7) :: block ...
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Sat Jun 25, 2022 8:01 am   Subject:
this is a memory usage report routine subroutine report_memory_usage (string, key)
! use ISO_C_BINDING
! use memstat

! interface
! function GlobalMemory ...
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Sat Jun 25, 2022 7:45 am   Subject:
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 ...
  Topic: RETURN_STORAGE@ not returning memory
JohnCampbell

Replies: 13
Views: 215

PostForum: Support   Posted: Sat Jun 25, 2022 7:05 am   Subject:
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.
...
  Topic: What is the rationale for that ?
JohnCampbell

Replies: 15
Views: 703

PostForum: General   Posted: Fri Jun 24, 2022 6:00 am   Subject:
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 ...
  Topic: What is the rationale for that ?
JohnCampbell

Replies: 15
Views: 703

PostForum: General   Posted: Wed Jun 22, 2022 5:10 am   Subject:
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 ...
  Topic: unexpected error message
JohnCampbell

Replies: 1
Views: 234

PostForum: Plato   Posted: Sun Jun 12, 2022 2:55 pm   Subject: unexpected error message
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 ...
  Topic: Character substring problem
JohnCampbell

Replies: 9
Views: 340

PostForum: General   Posted: Fri Jun 10, 2022 3:48 am   Subject:
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 ...
  Topic: Debug in PLATO
JohnCampbell

Replies: 6
Views: 448

PostForum: Plato   Posted: Sun May 29, 2022 9:19 am   Subject: Re:
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 ...
  Topic: False error reports for correct program
JohnCampbell

Replies: 4
Views: 682

PostForum: Support   Posted: Mon May 02, 2022 9:54 am   Subject:
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 ?
  Topic: Error in formatted read of real value goes unreported
JohnCampbell

Replies: 13
Views: 1014

PostForum: Support   Posted: Tue Apr 12, 2022 4:25 am   Subject:
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 ...
 
Page 1 of 159 Goto page 1, 2, 3 ... 157, 158, 159  Next
All times are GMT + 1 Hour
Jump to:  


Powered by phpBB © 2001, 2005 phpBB Group