SUBROUTINE SKIPR(NLHEAD)
C
C     PURPOSE--THIS SUBROUTINE READS THROUGH (SKIPS OVER)
C              NLHEAD LINES FROM INPUT UNIT = 5.
C              IF HEADER INFORMATION EXISTS AT THE
C              BEGINNING OF A DATA FILE, THIS SUBROUTINE
C              IS CONVENIENT FOR READING THROUGH
C              (SKIPPING OVER) THAT HEADER INFORMATION.
C     INPUT  ARGUMENTS--NLHEAD = THE INTEGER NUMBER OF CARD 
C                                IMAGES TO BE READ THROUGH
C                                (SKIPPED OVER).
C     OUTPUT--NONE. 
C     PRINTING--NO. 
C     RESTRICTIONS--NLHEAD IS A NON-NEGATIVE INTEGER VARIABLE.
C     OTHER DATAPAC   SUBROUTINES NEEDED--NONE.
C     FORTRAN LIBRARY SUBROUTINES NEEDED--NONE.
C     MODE OF INTERNAL OPERATIONS--INTEGER.
C     LANGUAGE--ANSI FORTRAN. 
C     REFERENCES--NONE.
C     WRITTEN BY--JAMES J. FILLIBEN
C                 STATISTICAL ENGINEERING LABORATORY (205.03)
C                 NATIONAL BUREAU OF STANDARDS
C                 WASHINGTON, D. C. 20234
C                 PHONE--301-921-2315
C     ORIGINAL VERSION--SEPTEMBER 1975. 
C     UPDATED         --NOVEMBER  1975. 
C     UPDATED         --MAY       1976. 
C     UPDATED         --OCTOBER   1976. 
C
C---------------------------------------------------------------------
C
      IRD=5
      IPR=6
C
C     CHECK THE INPUT ARGUMENTS FOR ERRORS
C
      IF(NLHEAD.LT.0)GOTO55
      GOTO90
   55 WRITE(IPR,8)
      WRITE(IPR,47)NLHEAD
      RETURN
   90 CONTINUE
    8 FORMAT(1H , 87H***** FATAL ERROR--THE FIRST  INPUT ARGUMENT TO THE
     1 SKIPR  SUBROUTINE IS NEGATIVE *****)
   47 FORMAT(1H , 35H***** THE VALUE OF THE ARGUMENT IS ,I8   ,6H *****)
C
C-----START POINT-----------------------------------------------------
C
C     SKIP OVER THE HEADER LABEL
C
      IF(NLHEAD.EQ.0)RETURN
      DO100I=1,NLHEAD
      READ(IRD,105)IA
  105 FORMAT(A1)
  100 CONTINUE
C
      RETURN
      END