d       LOGICAL FUNCTION INIVBS
È CHANGES MADE 08-JAN-1980 ***
,C
C      SUBROUTINE TO INITIALIZE 'TAPE' FOR INPUT OF AN IBM370 VBS
ôC      TAPE. RETURNS THE VALUE TRUE IF THE INITIALIZATION WAS
XC      SUCCESSFULL OR FALSE IF IT WAS NOT.
¼C
       IMPLICIT INTEGER*2 (I-N)
„      COMMON /GHCITP/ IRC,IBC,LUNMT,LUNTT,ILRECL,IBLKSZ,IOSTAT(5),
è     1 IFN(17),IVOL(6),TRAN,LAB,IEOF
L      LOGICAL*1 IFN,TRAN,LAB,IEOF,IVOL
°    2 FORMAT (I5)
    7 FORMAT ('$INPUT BLKSIZE [3156] ')
x    9 FORMAT (' BLKSIZE MUST BE A MULTIPLE OF 2 ***')
Ü   10 FORMAT (' INPUT BLKSIZE LIMITED TO 8000 ***')
@      CALL IRD370
¤	inivbs = lunmt.ne.0
	if (inivbs) then
l      IF (LAB) GO TO 80
Ð      WRITE (LUNTT,7)
4      READ (LUNTT,2) IBLKSZ
˜      IF (IBLKSZ .EQ. 0) IBLKSZ = 3156	!BEST BLKSIZE ON 3330 DISK
ü   80 IF (MOD(IBLKSZ,2) .EQ. 0) GO TO 90
`	      WRITE (LUNTT,9)
Ä	      GO TO 95
(
   90 IF (IBLKSZ .LE. 8000) GO TO 100
Œ
      WRITE (LUNTT,10)
ð
   95 INIVBS = .FALSE.
T      CALL SYS$CANCEL(%VAL(LUNMT))
¸  100 IRC = IBLKSZ
      IOSTAT(5) = IBLKSZ	!IBLKSZ IS MODIFIED IN RDVBS
€	end if
ä      RETURN
H      END