CE 311K Lab1 - Integer i Open (unit=6, file='lab1_out.dat',...

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

View Full Document Right Arrow Icon
Lab1. Introduction to Intel Fortran Margaret Thompson Section No. 14885 01/15/08 1. SCREEN PRINT OUT
Background image of page 1

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

View Full DocumentRight Arrow Icon
2. CODE ! Lab 1 - Conversion of degree Fahrenheit into degree Celsius ! 1/18/07 ! Prepare the Table for an output file named lab1_out.dat ! Writes the results into the output file ! Write (6,400) TF, TC ! By Jung-Hwan Kwon ! Modified by Leonardo A. Ramirez ! -------------------------------------------------------- Implicit none ! Declaration of Variables Real TF, TC
Background image of page 2
Background image of page 3

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

View Full DocumentRight Arrow Icon
Background image of page 4
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: Integer i Open (unit=6, file='lab1_out.dat', status = 'unknown') Print 100 Print 200 Print 100 100 Format('------------------------------') 200 Format(' Fahrenheit Celsius ') 400 Format(3x, F6.1, 10x, F6.1) ! Convert degree Fahrenheit into degree Celsius Do 500 i=0, 20 TF = 10.0*i TC = (5.0)/(9.0)*(TF-32.0) ! Write the results to screen write (6,400) TF, TC 500 Continue End 3. OUTPUT FILE 4. CHARTS (IF REQUIRED)...
View Full Document

This note was uploaded on 07/17/2008 for the course CE 311K taught by Professor Liljestrand during the Spring '08 term at University of Texas at Austin.

Page1 / 4

CE 311K Lab1 - Integer i Open (unit=6, file='lab1_out.dat',...

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

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