PPT Slide
! Ex with cnt assnmt
program C01
implicit none
integer,parameter::NAME_LENGTH=21
real :: Avogadros_number
integer::Many
logical::Flag
character (len=NAME_LENGTH)::Name
!start
Many=12345
Flag=.true.
Name= John DOE
write (unit=*,fmt=*) Its ,flag,Name, has,Many,$
stop
end program C01
Previous slide
Next slide
Back to first slide
View graphic version