This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: ! Read in the number of rows contained in the data file read(9,'(i2)') Rows do J = 1, Rows read(9,'(F5.2, 1x, F5.3, 1x, F5.4)')(Array(J,H), H = 1,3) end do ! Call upon subroutine call VSA(Rows, Array) close(9) stop end program ! Define the subroutine and parameter list subroutine VSA(Rows, Array) integer :: I integer, intent(in) :: Rows real, dimension(Rows,3), intent(inout) :: Array ! Use a do loop to print out only the first column of data from the array that was created ! by reading in the data from the data.txt file do I = 1, Rows write(*,10)Array(I,1) end do 10 format (F6.2) return end subroutine VSA...
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