C
        SUBROUTINE F2IPIX(X,Y,IX,IY,NSX,NSY)
C
C     QUANTIZES F FLOATING POINT PIXEL VALUE TO THE "ACTUAL" INTEGER
C     PIXEL VALUE  (SEE LATLON2PIX)
C
        IF (X+0.0002.GE.1.0.AND.X+0.0002.LT.NSX+1) THEN
           IX=IFIX(X+0.0002)  ! ALLOW A SMALL AMOUNT OF ROUNDING
        ELSE
           IX=0
        ENDIF
        IF (Y+0.0002.GE.1.0.AND.Y+0.0002.LT.NSY+1) THEN
           IY=IFIX(Y+0.0002)  ! ALLOW A SMALL AMOUNT OF ROUNDING
        ELSE
           IY=0
        ENDIF
        RETURN
        END

