part2.1a - & specified range" test=.TRUE IF(ws>10...

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

View Full Document Right Arrow Icon
PROGRAM part2.1a IMPLICIT NONE REAL:: temp, rh, ws WRITE(*,*) "PLease enter the temperature in degrees Fahrebnheit:" READ(*,*) temp WRITE(*,*) "Please enter the relative humidity as a percentage:" READ(*,*) rh WRITE(*,*) "Please enter the wind speed:" READ(*,*) ws IF(temp<70) THEN WRITE(*,*)"The temperature is too low to crop dust" test= .TRUE. IF(rh<15 .OR. rh>35) THEN
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: & specified range." test= .TRUE. IF(ws>10) THEN WRITE(*,*) "The wind speed is too hight to crop dust." test= .TRUE. END IF WRITE(*,*) IF(test== .TRUE.) WRITE(*,*) "The conditions are not correct to crop dust." IF(TEST/= .TRUE.) WRITE(*,*) "The conditions are acceptable to crop dust." END PROGRAM part2.1a...
View Full Document

This note was uploaded on 07/22/2010 for the course MAE 112 taught by Professor Freeh during the Spring '10 term at North Country Community College.

Ask a homework question - tutors are online