This preview shows page 1. Sign up to view the full content.
Unformatted text preview: program implicit none real :: Rows real, dimension(51,3) :: Array open(unit=1, file = 'data.txt') read(1,'(F2)')(Rows) read(1,'(F5.2, 1x, F5.3, 1x, F5.4)')(Array) call VSA(Rows, Array) stop end program subroutine VSA(Rows, Array) integer :: I real, intent(in) :: Rows real, dimension(:,:), intent(in) :: Array do I = 1, Rows write(*,10)Array(I,1) end do 10 format (F6.2) 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 University.
- Spring '08
- Computer Programming