REAL :: a,b,z a=-3.5; z=0.0; b=3.5 WRITE(*,*) CEILING(a),CEILING(z),CEILING(b) WRITE(*,*) FLOOR(a),FLOOR(z),FLOOR(b)