C$TEST MACH
C TO RUN AS A MAIN PROGRAM REMOVE NEXT LINE
      SUBROUTINE MACH
C***********************************************************************
C
C  TEST OF THE PORT MACHINE CONSTANTS  (FOR CONSISTENCY)
C
C***********************************************************************
      CALL S1MACH
      STOP
      END
