part21a - & specified range."...

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

View Full Document Right Arrow Icon
PROGRAM part21a IMPLICIT NONE REAL:: temp, rh, ws LOGICAL:: test WRITE(*,*) "PLease enter the temperature in degrees Fahrenheit:" 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 .EQV. .TRUE.) WRITE(*,*) &quot;The conditions are not correct to crop dust.&quot; IF(test .NEQV. .TRUE.) WRITE(*,*) &quot;The conditions are acceptable to crop dust.&quot; END IF END IF END PROGRAM...
View Full Document

Ask a homework question - tutors are online