program assign1_6 implicit none real :: r do read*,r if(r == 0.0) then exit else print*,'int =',int(r) print*,'nint =',nint(r) print*,'floor =',floor(r) print*,'ceiling =',ceiling(r) endif enddo end program assign1_6