SUBROUTINE store $$IMPLICIT $$INCLUDE 'C$INC:BCS.INC' $$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC' $$INCLUDE 'YBOS$LIBRARY:BNKTYP.INC' INTEGER ind, index ! bank and data index of TAUS INTEGER blocat ! YBOS named bank finder INTEGER bmake ! create a named bank INTEGER status ! error return status INTEGER ind, index ! bank and data indices INTEGER ngroup ! number of groups in bank INTEGER bnktyp(3) ! store info about types of peices in bank C................................. C== Load the bank type header with the appropriate bits ngroup = 0 CALL btpack(bnktmx, ngroup, 2, bnktyp(1)) ! mixed-type bank CALL btpack(bnkti4, ngroup, 10, bnktyp(2)) ! 10 integers CALL btpack(bnktr4, ngroup, 20, bnktyp(3)) ! 20 reals status = bmake(iw, 'TAUS', 1, 30, bnktyp, ind, index) IF(status .NE. yesucc) RETURN C== Set usual constants rw(index+5) = 3.1415926 ! boston cream pie iw(index+6) = 30.2 ! version number CALL loadup RETURN END
This routine has a bug.