*DECK PASS
      SUBROUTINE PASS (LUN, ICNT, ITEST)
C***BEGIN PROLOGUE  PASS
C***PURPOSE  Print a PASS/FAIL message for a particular quick check
C            test.
C***LIBRARY   SLATEC
C***AUTHOR  (UNKNOWN)
C***ROUTINES CALLED  (NONE)
C***REVISION HISTORY  (YYMMDD)
C   ??????  DATE WRITTEN
C   891214  Prologue converted to Version 4.0 format.  (BAB)
C   920210  PURPOSE added and code restructured.  (WRB)
C***END PROLOGUE  PASS
      IMPLICIT NONE
      INTEGER, PARAMETER :: R8=SELECTED_REAL_KIND(12,100)
      INTEGER ICNT, ITEST, LUN
C***FIRST EXECUTABLE STATEMENT  PASS
      IF (ITEST .NE. 0) THEN
        WRITE (LUN,9000) ICNT
      ELSE
        WRITE (LUN,9100) ICNT
      ENDIF
      RETURN
 9000 FORMAT(/ ' TEST NUMBER', I5, ' PASSED')
 9100 FORMAT(/ ' *****TEST NUMBER' ,I5, ' FAILED**********')
      END
