Parameter Problem

The following line provides something wrong and I cannot zoom out in the graphics.

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

If I place as first executable statement

write (*,'(f12.6)') FactorInvers

it writes the correct value and further processing is ok.

If I use instead:

REAL*8,  PARAMETER :: FactorZoom= 1.1D0, FactorInvers= 0.9D0

everything works fine without the write statement.

What exactly is the problem. What does the code look like when it goes wrong?

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

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

Check the compiler options in effect and note the messages issued by the compiler.

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.

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