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 

Parameter Problem

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> 64-bit
View previous topic :: View next topic  
Author Message
EKruck



Joined: 09 Jan 2010
Posts: 196
Location: Aalen, Germany

PostPosted: Wed Nov 13, 2019 4:47 pm    Post subject: Parameter Problem Reply with quote

The following line provides something wrong and I cannot zoom out in the graphics.
Code:
    REAL*8,  PARAMETER :: FactorZoom= 1.1D0, FactorInvers= 1.0D0/FactorZoom

If I place as first executable statement
Code:
write (*,'(f12.6)') FactorInvers
it writes the correct value and further processing is ok.

If I use instead:
Code:
REAL*8,  PARAMETER :: FactorZoom= 1.1D0, FactorInvers= 0.9D0
everything works fine without the write statement.
Back to top
View user's profile Send private message Visit poster's website
PaulLaidler
Site Admin


Joined: 21 Feb 2005
Posts: 6097
Location: Salford, UK

PostPosted: Wed Nov 13, 2019 6:43 pm    Post subject: Reply with quote

What exactly is the problem. What does the code look like when it goes wrong?
Back to top
View user's profile Send private message
mecej4



Joined: 31 Oct 2006
Posts: 1216

PostPosted: Thu Nov 14, 2019 1:56 am    Post subject: Reply with quote

If the source code is being treated as fixed form source, the first line may get truncated to

Code:
    REAL*8,  PARAMETER :: FactorZoom= 1.1D0, FactorInvers= 1.0D0/FactorZ


Check the compiler options in effect and note the messages issued by the compiler.
Back to top
View user's profile Send private message
EKruck



Joined: 09 Jan 2010
Posts: 196
Location: Aalen, Germany

PostPosted: Sat Nov 16, 2019 8:20 am    Post subject: Reply with quote

Surprising: I compiled the complete software including all libraries anew with 8.40. The problem does not exist anymore without changes in the source code.
Back to top
View user's profile Send private message Visit poster's website
John-Silver



Joined: 30 Jul 2013
Posts: 1235
Location: Aerospace Valley

PostPosted: Thu Dec 12, 2019 8:00 am    Post subject: Reply with quote

Devilry indeed.
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
Back to top
View user's profile Send private message
LitusSaxonicum



Joined: 23 Aug 2005
Posts: 2056
Location: Yateley, Hants, UK

PostPosted: Thu Dec 12, 2019 11:02 am    Post subject: Reply with quote

Wann ist ein Griff kein Griff?

Failure to supply a handle to a graphics area often causes this sort of problem, which goes away with a recompile, but comes back again later. So what handle did you supply to the graphics window? Or did you use Paul's modification (see CWPLUS.ENH) where the graphics window returns a handle like most controls do.

Eddie
Back to top
View user's profile Send private message
John-Silver



Joined: 30 Jul 2013
Posts: 1235
Location: Aerospace Valley

PostPosted: Sat Dec 14, 2019 10:52 am    Post subject: Reply with quote

... do I detect the perenial debate re-surfacing !!! Wink
as beste von handels is like Wassermusik in meinen Ohren Smile Smile Smile
_________________
''Computers (HAL and MARVIN excepted) are incredibly rigid. They question nothing. Especially input data.Human beings are incredibly trusting of computers and don't check input data. Together cocking up even the simplest calculation ... Smile "
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> 64-bit All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group