forums.silverfrost.com

Thanks Paul,
You are super fast and efficient. Very Happy

Much appreciated.
Ken

An assignment such as easting =456654, must be within a subroutine or function that is within the contains section of the module.

Also IMPLICIT NONE must come immediately after any USE statements, ...

Perhaps the new (2018) G0 format specifier should be added to the wish list.

write(*,'(G0)') epsilon(1.d0)
end

This appeared in some code I was recently sent by a colle ...

I think you a trying to break the Fortran rules. iFort says:

error #6159: A component cannot be an array if the encompassing structure is an array.

PS I looked into this a little more. For ...

Dan, I don't think that's unreasonable, since the value may be changed by the user and the displayed value needs to "reformatted".

use clrwin
real*8 :: a = 12345678546665456.d0
i = winio@('a = %18`rf%nl&',a)
i = winio@('a = %12`rf%nl&',a)
i = winio@('a = %6`rf%nl', a)
end

Paul,

Also B with real data.

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

Ken

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.

Thanks for confirming this is a known and fixed problem.

I was very confused on Monday.

Ken

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 ...

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 ...

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 ...

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

...

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(:& ...

Thanks Paul, I think that will fix John's issue.