View previous topic :: View next topic |
Author |
Message |
EKruck
Joined: 09 Jan 2010 Posts: 224 Location: Aalen, Germany
|
Posted: Wed Nov 13, 2019 4:47 pm Post subject: Parameter Problem |
|
|
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 |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7924 Location: Salford, UK
|
Posted: Wed Nov 13, 2019 6:43 pm Post subject: |
|
|
What exactly is the problem. What does the code look like when it goes wrong? |
|
Back to top |
|
|
mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Thu Nov 14, 2019 1:56 am Post subject: |
|
|
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 |
|
|
EKruck
Joined: 09 Jan 2010 Posts: 224 Location: Aalen, Germany
|
Posted: Sat Nov 16, 2019 8:20 am Post subject: |
|
|
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 |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Thu Dec 12, 2019 8:00 am Post subject: |
|
|
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 ... " |
|
Back to top |
|
|
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2388 Location: Yateley, Hants, UK
|
Posted: Thu Dec 12, 2019 11:02 am Post subject: |
|
|
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 |
|
|
John-Silver
Joined: 30 Jul 2013 Posts: 1520 Location: Aerospace Valley
|
Posted: Sat Dec 14, 2019 10:52 am Post subject: |
|
|
... do I detect the perenial debate re-surfacing !!!
as beste von handels is like Wassermusik in meinen Ohren _________________ ''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 ... " |
|
Back to top |
|
|
|