$NOFLOATCALLS
$STORAGE: 2
        SUBROUTINE FVLDST(ID1,ID2,IVAL)
C
C FVLDST - SET THE BYTE IN FVLD ARRAY
C NEXT BITMAPS IMPLEMENT FVLD
        CHARACTER*1 FV1(2258),FV2(2258),FV4(2258)
        CHARACTER*1 IVAL
        CHARACTER*1 LBITS(8)
        COMMON/BITS/LBITS
        COMMON/FVLDM/FV1,FV2,FV4
C THE FOLLOWING BITMAP IS FOR TYPE ARRAY, AND INTEGER ARRAY IS FOR
C TYPES OF AC'S STORAGE:
        CHARACTER*1 ITYP(2258)
        INTEGER*2 IATYP(27)
        COMMON/TYP/IATYP,ITYP
	INTEGER*2 ICREF,IRREF
	COMMON/MIRROR/ICREF,IRREF
C
C NEXT ARE BUFFERS FOR HOLDING VALUES, AND MEMORY OCCUPANCY WORDS
C FOR EACH GIVING THE BLK # IN USE FOR THESE TABLES
C FORMAT BLOCK (ONE ONLY, 512 BYTES, BUT ORGANIZED AS 76 FORMAT
C AREAS WITH DATA.
        CHARACTER*1 FMTDAT(9,76)
        COMMON/FMTBFR/FMTDAT
	IF(ID2.EQ.1.AND.ID1.LE.18060)GOTO 7806
C ALLOW DELIBERATE CALL WITH EFFECTIVELY ONE ARG.
7807	CALL REFLEC(ID2,ID1,ID)
C        ID=(ID2-1)*60+ID1
	GOTO 7808
7806	CONTINUE
	ID=ID1
7808	CONTINUE
C LEAVE CALC OF ID TO FORTRAN (CODE NOT TOO BAD FOR THAT PART...)
C	IF(ID.LT.1.OR.ID.GT.18060)RETURN
	CALL FVS(ID,IVAL)
        RETURN
        END


