> --------------------------
> program fo
> real, dimension(2):: a=(/1.0,2.2/)
> write(*,'(i3,1x,f4.1)') a
> end
> --------------------------
> it works under HP-UX but under DVF the execution
> exits because it is waiting for a real format, so it is not
> posible to write a real variable in a integer format even if I know
> previously that it has an integer value(a(1)=1). Is that restriction
> standard?
You are not allowed to use an I edit descriptor for a real value.
The binary formats of integers and reals differ hence you must
make the edit descriptor match. What would you expect for 'integers' that
cannot be represented exactly?
> "flag .eq. false")?
>
You have to use .eqv. since .eq. is not a logical operator.
Maybe you should get hold of one of the Fortran 90 texts to
clarify these points for yourself.
Harvey
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|