Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
program HW03_01
implicit none
real:: x,y
print*, 'Enter real numbers for x and y'
read*, x,y
if (x > y) then
print*, 'larger number=', x
else if (y > x) then
print*, 'larger number=', y
else
print*, 'x=y'
endif
end program HW03_01
Advertisements
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy.
AcceptLearn more