Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
! Lab #3: Lab3 CFU ! File: Lab03_CFU_rfelde.f95 ! Date: 24 January 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.
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ! ! A BRIEF DESCRIPTION OF WHAT THE PROGRAM OR FUNCTION DOES program Lab03_CFU_rfelde implicit none real :: Deg, Tan write(*,*)'Input the value of theta in degrees: ' read(*,*) Deg Deg = Deg * (3.141592 / 180.0) if (cos(Deg) >= .00001) then Tan = (sin(Deg) / cos(Deg)) write(*,*) Tan else write(*,*)'Value of cosine(theta) is too close to 0' end if 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 University-West Lafayette.

Ask a homework question - tutors are online