Hi,
Before everthing I want to thank all the people that
replied to my last e-mail.
I have another question about the descriptor format:.
A simple examples:
1.
--------------------------
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?
2. Abuot logial expresions
-------------------------
program fo
ion(2):: a=(/1.0,2.2/)
flag=.true.
if(flag .eq. .true.)print*, 'hola' ! 1
if(flag)print*, 'hola' !2
flag=.false.
if(flag .eq. .false.)print*, 'hola' !3
if(.not. flag)print*, 'hola' !4
end
It works under HP-UX, but under DVF if gives me errors with the lines
!1 and !3, why? Is this logiacal operation nonstandard("flag .eq.
.true." or
"flag .eq. false")?
Thanks in advance,
David
Thanks in advance,
David
--
--------------------------------
DAVID LEAL
Universidad Carlos III de Madrid
Office: 10.1.02
Tel: (34-1)-624.93.14
Fax: (34-1)-624.98.49
E-mail : [log in to unmask]
http://jupiter.uc3m.es/~david/
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|