FTN4
      SUBROUTINE SOT(LU1,TAPE,P5,IERR)
     +,92069-16183 REV.2013 790413
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED.
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18183
C     RELOC:     92069-16183
C 
C 
C****************************************************************:
C 
C 
C*************************************************************
C SOT VERIFIES THAT THE TAPE IS AT START OF TAPE. 
C IF SO, IT RETURNS.
C IF NOT, IT PROMPTS THE USER.
C*************************************************************
      INTEGER LU1,TAPE,P5,IERR
      INTEGER RESPON
      INTEGER NUM(4)
      DATA NUM/2HNN,2HNN,2HNN,2H _/ 
500   IA=ISOT(TAPE) 
      IF (IA .LT. 0) RETURN 
      CALL REIO(2,LU1,10H TAPE LU _,-10)
      CALL CNUMD(TAPE,NUM)
      CALL REIO(2,LU1,NUM(2),-6)
      CALL REIO(2,LU1,25H IS NOT AT START OF TAPE.,-25) 
      CALL READY(LU1,RESPON,IERR) 
      IF (IERR .LT. 0) RETURN 
      GO TO 500 
      END 
  