Unformatted text preview: ! ! A BRIEF DESCRIPTION OF WHAT THE PROGRAM OR FUNCTION DOES program implicit none character(len = 24), dimension(4,6) :: String character, dimension(4,6) :: Array integer :: I, J write(*,*)'Enter a string: ' read(*,*) String do I = 1,4 do J = 1,6 write(*,*) iachar(Array(I,J)) end do end do write(*,*)String write(*,*)Array stop end...
View Full Document
This note was uploaded on 10/05/2009 for the course ENGR 117 taught by Professor Staff during the Spring '08 term at Purdue.
- Spring '08
- Computer Programming