INTERFACE TO SUBROUTINE Near [C,ALIAS:'_Near']
      END
      INTERFACE TO SUBROUTINE Up [C,ALIAS:'_Up']
      END
      INTERFACE TO SUBROUTINE Down [C,ALIAS:'_Down']
      END
      INTERFACE TO SUBROUTINE Chop [C,ALIAS:'_Chop']
      END