C EDIT DATE 01JUN78 22:23 C SOURCE FILE BITDFNGAK.IN C AUTHOR GARY A. KUDIS C BIT DEFINITIONS C C BIT00 IS THE LEAST SIGNIFICANT; BIT15 IS MOST SIGNIFICANT. C INTEGER BITS (16) INTEGER BIT00,BIT01,BIT02,BIT03,BIT04,BIT05,BIT06,BIT07 INTEGER BIT08,BIT09,BIT10,BIT11,BIT12,BIT13,BIT14,BIT15 EQUIVALENCE (BITS(1),BIT00),(BITS(2),BIT01),(BITS(3),BIT02) EQUIVALENCE (BITS(4),BIT03),(BITS(5),BIT04),(BITS(6),BIT05) EQUIVALENCE (BITS(7),BIT06),(BITS(8),BIT07),(BITS(9),BIT08) EQUIVALENCE (BITS(10),BIT09),(BITS(11),BIT10) EQUIVALENCE (BITS(12),BIT11),(BITS(13),BIT12) EQUIVALENCE (BITS(14),BIT13),(BITS(15),BIT14) EQUIVALENCE (BITS(16),BIT15) INTEGER BIT, BITNO COMMON /BITDFN/ BITS COMMON /BITDFN/ BIT, BITNO