soccer jersey forums.silverfrost.com :: Search
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 703 matches
forums.silverfrost.com Forum Index
Author Message
  Topic: format mismatch
Kenneth_Smith

Replies: 12
Views: 385

PostForum: 64-bit   Posted: Wed Jul 17, 2024 10:36 am   Subject:
Paul,

Also B with real data.

implicit none
real :: number = 123.987
write(*,'(B32.32)') number
end

Ken
  Topic: format mismatch
Kenneth_Smith

Replies: 12
Views: 385

PostForum: 64-bit   Posted: Wed Jul 17, 2024 8:55 am   Subject:
jlb, int2bin is the solution to one of a series of simple Fortran tutorial exercises I have been developing recently, so it came to mind before the "B" format.
  Topic: Plato crashes, 64 bit complier /Checkmate
Kenneth_Smith

Replies: 3
Views: 174

PostForum: Support   Posted: Wed Jul 17, 2024 8:37 am   Subject:
Thanks for confirming this is a known and fixed problem.

I was very confused on Monday.

Ken
  Topic: format mismatch
Kenneth_Smith

Replies: 12
Views: 385

PostForum: 64-bit   Posted: Tue Jul 16, 2024 11:48 am   Subject:
I did not see an error in my example, but then I missed the really obvious case:

implicit none
real :: number = 123.987
print'(Z8)', number
end


which should also return 4 ...
  Topic: format mismatch
Kenneth_Smith

Replies: 12
Views: 385

PostForum: 64-bit   Posted: Tue Jul 16, 2024 10:35 am   Subject:
You can use TRANSFER to convert the bit pattern of the real number to an integer number, and then print that integer in hex.


implicit none
real :: number
integer :: i
cha ...
  Topic: Plato crashes, 64 bit complier /Checkmate
Kenneth_Smith

Replies: 3
Views: 174

PostForum: Support   Posted: Mon Jul 15, 2024 2:14 pm   Subject: Plato crashes, 64 bit complier /Checkmate
Can anybody replicate the crash of Plato as demonstrated here?

https://www.youtube.com/watch?v=rlJGgMx1meQ

The observed behaviour only occurs with the 64 bit compilier, and not 32 bit.

The ...
  Topic: %gr, metafiles and clipboard
Kenneth_Smith

Replies: 2
Views: 3562

PostForum: ClearWin+   Posted: Tue Mar 12, 2024 1:37 pm   Subject:
This works for me. (FTN ver 9.00). After pressing the TOCB menu item, I can paste the graphics region into word etc.

winapp
module s_mod
use clrwin
implicit none
integer gw, gh

contains

...
  Topic: Allocate on assignment to grow an array.
Kenneth_Smith

Replies: 25
Views: 8345

PostForum: Support   Posted: Wed Jan 31, 2024 1:54 pm   Subject:
John,

It gets interesting if the lower bound of the source array is not 1. Hopefully this example illustrates this particular devilry.
real, allocatable :: a(:), b(:& ...
  Topic: Allocate on assignment to grow an array.
Kenneth_Smith

Replies: 25
Views: 8345

PostForum: Support   Posted: Sat Jan 27, 2024 9:51 am   Subject:
Thanks Paul, I think that will fix John's issue.
  Topic: Allocate on assignment to grow an array.
Kenneth_Smith

Replies: 25
Views: 8345

PostForum: Support   Posted: Fri Jan 26, 2024 11:52 am   Subject:
John, Mecej4, Paul, thanks for the suggestions, improvements and feedback on my queries.


John, the following simple example only runs as expected with checkmate for both win32 and x64, so I susp ...
  Topic: Allocate on assignment to grow an array.
Kenneth_Smith

Replies: 25
Views: 8345

PostForum: Support   Posted: Thu Jan 25, 2024 1:27 pm   Subject:
Paul,

I've opened another can of Ken's worms!

For the original problem, I wondered about the possibility of using the 2003 intrinsic MOVE_ALLOC. Unfortunately, I cannot get this to work, havi ...
  Topic: Allocate on assignment to grow an array.
Kenneth_Smith

Replies: 25
Views: 8345

PostForum: Support   Posted: Tue Jan 23, 2024 11:31 am   Subject:
Thanks Paul,

In addition using a temporary does not cause the checkmate failure, which is a big plus Smile

As I don't want to inhibit bounds checking (with checkmate) I think I just need to avoid ...
  Topic: Allocate on assignment to grow an array.
Kenneth_Smith

Replies: 25
Views: 8345

PostForum: Support   Posted: Tue Jan 16, 2024 8:53 pm   Subject: Allocate on assignment to grow an array.
I have been experimenting with allocate on assigment and the following code uses this to to increment the dimensions of an array:

program p
implicit none
real, allocatable :: a(:& ...
  Topic: Intersection of two curves
Kenneth_Smith

Replies: 9
Views: 3818

PostForum: General   Posted: Wed Jan 10, 2024 11:50 am   Subject:
Lester,

I suspect your problem is related to the %pl options i = winio@('%pl',900,900,[n,n,n_intersects],dble(x1),dble(y1),dble(x2),dble(y2),dble(x ...
  Topic: Intersection of two curves
Kenneth_Smith

Replies: 9
Views: 3818

PostForum: General   Posted: Tue Jan 09, 2024 10:47 am   Subject:
My first attempt:
winapp
program intersect_between_curves
USE clrwin
integer, parameter :: n=301
integer :: i, j, n_intersects
real :: x1(n), y1(n), x2 ...
 
Page 1 of 47 Goto page 1, 2, 3 ... 45, 46, 47  Next
All times are GMT + 1 Hour
Jump to:  


Powered by phpBB © 2001, 2005 phpBB Group