SUBROUTINE GRIPE(LOC,SCORE,CLOSNG,CLOSED)
       IMPLICIT INTEGER(A-Z)
       RETURN
       END