VARIABLE
!name of the program: VARIABLE
integer
:: total
real
:: average
complex
:: cx
logical
:: done
character(len=80)
:: message
total
= 10000
average
= 5000
done =
.true.
cx =
(0.5, -4.0)
message
= 'Hello'
write
(*,*), total, average, done, cx, message
stop
Comentários
Postar um comentário