CE 311K Lab4 - Lab4. Control structures and their...

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

View Full Document Right Arrow Icon
Lab4. Control structures and their application to engineering system Margaret Thompson Section No. 14885 02/05/08 1. SCREEN PRINT OUT 2. CODE ! CE311K Lab4 ! Control structures and their application to engineering system ! Programmed by Margaret Thompson Program Lab4 implicit none ! Declaration of variables real F, ang, line, Rang real Ax, Ay, By, Ax_max, Ay_max, By_max real R_MAx,R_MAy,R_MBy integer ID,ios,R_idAx,R_idAy,R_idBy DOUBLE PRECISION PI PARAMETER(PI=3.141592653589793D0) R_MAx=0;R_MAy=0;R_MBy=0 ! Input maximum allowable reactions Print *, 'Input maximum allowable reactions' Print *, 'Ax_max?, Ay_max?, By_max?' Print *, 'Separate the values by space' ! Read Maximum reaction data from the user. ..
Background image of page 1

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

View Full DocumentRight Arrow Icon
! when prompted for these values type 900 600 900 for (Ax, Ay, By) respectively Read *, Ax_max, Ay_max, By_max ! Prepare output file to display results name the file output.txt ! Prepare input file --- The input file is called data.txt Open (unit=6, file='output.txt', status='unknown')
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the 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 Lab4 - Lab4. Control structures and their...

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

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