program smpl5
        implicit none
        integer j,k
        real x,y
	x = 7.0
	y = 4.0
	j = int(x/y)
	k = nint(x/y)
	open(11,file='smpl5.out')
	write(11,*) 'truncating with int: ', j
	write(11,*) 'rounding with nint:  ', k
	close(11)
        stop
	end program smpl5