Program IfStatements
implicit none
integer:: a
!initialize  a
a=1
!check for the size of a
if (a < 1) then
write(*,'(a)' ) 'condition l is  true'
elseif (a < 2) then
write(*,'(a)') 'Condition 2 is true'
elseif (a <  3) then
write(*,'(a)') 'condition 3 is true'
else
write(*,'(a)') 'no condition is true'
endif
end program