Postlab07_Task2_rfelde - ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
! Lab #6: Format Descriptors, Functions and Subroutines ! File: Postlab07_Task2_rfelde.f95 ! Date: 14 February 2008 ! By: Ryan Robert Felde ! rfelde ! Section: 02/01, 11:30, and ENAD 138 ! Team: 16 ! ! ELECTRONIC SIGNATURE ! Ryan Robert Felde ! ! The electronic signature above indicates the program submitted for ! evaluation is my individual work and I have a general understanding ! of all aspects of its development and execution. ! ! A BRIEF DESCRIPTION OF WHAT THE PROGRAM OR FUNCTION DOES program Postlab07_Task2_rfelde implicit none ! Initialize variables real, dimension(50) :: Mean_Row real :: Avg, Total_Mean integer :: Rows, I, J, Column, Status, Status2, A real, allocatable, dimension(:, :) :: Array_1 ! Set the value of columns to 3 Column = 3 ! Open the file data.txt open(unit = 1, file = 'data.txt',status = 'old', iostat = Status) ! Make sure that the file opens successfully if (Status /= 0) then write(*,*)'**Error** Could Not Open File' stop end if ! Read the first part of the file in as the number of rows of data
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the 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-West Lafayette.

Page1 / 2

Postlab07_Task2_rfelde - ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online