| 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: 8210
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: 1899
|
| 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 |
|
|
LitusSaxonicum
Joined: 23 Aug 2005
Posts: 2402
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 |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
