Lab3 - L2 = B > A L3 = L1 .and. L2...

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

View Full Document Right Arrow Icon
program Inrange implicit none real :: A = 0.0, B = 0.0, C = 0.0 logical :: L1, L2, L3 write(*,*)'Input three numerical values: ' read(*,*) A, B, C L1 = B < C
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: L2 = B &gt; A L3 = L1 .and. L2 write(*,*)'Number 2 is smaller than Number 3 and greater than Number 2, T/F: ' write(*,*) L3 stop end...
View Full Document

Ask a homework question - tutors are online