part2.1a - & specified range."...

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: &amp; specified range.&quot; test= .TRUE. IF(ws&gt;10) THEN WRITE(*,*) &quot;The wind speed is too hight to crop dust.&quot; test= .TRUE. END IF WRITE(*,*) IF(test== .TRUE.) WRITE(*,*) &quot;The conditions are not correct to crop dust.&quot; IF(TEST/= .TRUE.) WRITE(*,*) &quot;The conditions are acceptable to crop dust.&quot; END PROGRAM part2.1a...
View Full Document

Ask a homework question - tutors are online