BLOCK DATA
	LOGICAL*1 MAT(4,20,32:127),WID(32:127)
	COMMON /PSPRT/MAT,WID
	LOGICAL*1 MX1040(4,20),MX1041(4,20),MX1042(4,20),MX1043(4,20)
	LOGICAL*1 MX1044(4,20),MX1045(4,20),MX1046(4,20),MX1047(4,20)
	LOGICAL*1 MX1050(4,20),MX1051(4,20),MX1052(4,20),MX1053(4,20)
	LOGICAL*1 MX1054(4,20),MX1055(4,20),MX1056(4,20),MX1057(4,20)
	LOGICAL*1 MX1060(4,20),MX1061(4,20),MX1062(4,20),MX1063(4,20)
	LOGICAL*1 MX1064(4,20),MX1065(4,20),MX1066(4,20),MX1067(4,20)
	LOGICAL*1 MX1070(4,20),MX1071(4,20),MX1072(4,20),MX1073(4,20)
	LOGICAL*1 MX1074(4,20),MX1075(4,20),MX1076(4,20),MX1077(4,20)
	LOGICAL*1 MX1100(4,20),MX1101(4,20),MX1102(4,20),MX1103(4,20)
	LOGICAL*1 MX1104(4,20),MX1105(4,20),MX1106(4,20),MX1107(4,20)
	LOGICAL*1 MX1110(4,20),MX1111(4,20),MX1112(4,20),MX1113(4,20)
	LOGICAL*1 MX1114(4,20),MX1115(4,20),MX1116(4,20),MX1117(4,20)
	LOGICAL*1 MX1120(4,20),MX1121(4,20),MX1122(4,20),MX1123(4,20)
	LOGICAL*1 MX1124(4,20),MX1125(4,20),MX1126(4,20),MX1127(4,20)
	LOGICAL*1 MX1130(4,20),MX1131(4,20),MX1132(4,20),MX1133(4,20)
	LOGICAL*1 MX1134(4,20),MX1135(4,20),MX1136(4,20),MX1137(4,20)
	LOGICAL*1 MX1140(4,20),MX1141(4,20),MX1142(4,20),MX1143(4,20)
	LOGICAL*1 MX1144(4,20),MX1145(4,20),MX1146(4,20),MX1147(4,20)
	LOGICAL*1 MX1150(4,20),MX1151(4,20),MX1152(4,20),MX1153(4,20)
	LOGICAL*1 MX1154(4,20),MX1155(4,20),MX1156(4,20),MX1157(4,20)
	LOGICAL*1 MX1160(4,20),MX1161(4,20),MX1162(4,20),MX1163(4,20)
	LOGICAL*1 MX1164(4,20),MX1165(4,20),MX1166(4,20),MX1167(4,20)
	LOGICAL*1 MX1170(4,20),MX1171(4,20),MX1172(4,20),MX1173(4,20)
	LOGICAL*1 MX1174(4,20),MX1175(4,20),MX1176(4,20),MX1177(4,20)
	EQUIVALENCE(MX1040,MAT(1,1,32))
	EQUIVALENCE(MX1041,MAT(1,1,33))
	EQUIVALENCE(MX1042,MAT(1,1,34))
	EQUIVALENCE(MX1043,MAT(1,1,35))
	EQUIVALENCE(MX1044,MAT(1,1,36))
	EQUIVALENCE(MX1045,MAT(1,1,37))
	EQUIVALENCE(MX1046,MAT(1,1,38))
	EQUIVALENCE(MX1047,MAT(1,1,39))
	EQUIVALENCE(MX1050,MAT(1,1,40))
	EQUIVALENCE(MX1051,MAT(1,1,41))
	EQUIVALENCE(MX1052,MAT(1,1,42))
	EQUIVALENCE(MX1053,MAT(1,1,43))
	EQUIVALENCE(MX1054,MAT(1,1,44))
	EQUIVALENCE(MX1055,MAT(1,1,45))
	EQUIVALENCE(MX1056,MAT(1,1,46))
	EQUIVALENCE(MX1057,MAT(1,1,47))
	EQUIVALENCE(MX1060,MAT(1,1,48))
	EQUIVALENCE(MX1061,MAT(1,1,49))
	EQUIVALENCE(MX1062,MAT(1,1,50))
	EQUIVALENCE(MX1063,MAT(1,1,51))
	EQUIVALENCE(MX1064,MAT(1,1,52))
	EQUIVALENCE(MX1065,MAT(1,1,53))
	EQUIVALENCE(MX1066,MAT(1,1,54))
	EQUIVALENCE(MX1067,MAT(1,1,55))
	EQUIVALENCE(MX1070,MAT(1,1,56))
	EQUIVALENCE(MX1071,MAT(1,1,57))
	EQUIVALENCE(MX1072,MAT(1,1,58))
	EQUIVALENCE(MX1073,MAT(1,1,59))
	EQUIVALENCE(MX1074,MAT(1,1,60))
	EQUIVALENCE(MX1075,MAT(1,1,61))
	EQUIVALENCE(MX1076,MAT(1,1,62))
	EQUIVALENCE(MX1077,MAT(1,1,63))
	EQUIVALENCE(MX1100,MAT(1,1,64))
	EQUIVALENCE(MX1101,MAT(1,1,65))
	EQUIVALENCE(MX1102,MAT(1,1,66))
	EQUIVALENCE(MX1103,MAT(1,1,67))
	EQUIVALENCE(MX1104,MAT(1,1,68))
	EQUIVALENCE(MX1105,MAT(1,1,69))
	EQUIVALENCE(MX1106,MAT(1,1,70))
	EQUIVALENCE(MX1107,MAT(1,1,71))
	EQUIVALENCE(MX1110,MAT(1,1,72))
	EQUIVALENCE(MX1111,MAT(1,1,73))
	EQUIVALENCE(MX1112,MAT(1,1,74))
	EQUIVALENCE(MX1113,MAT(1,1,75))
	EQUIVALENCE(MX1114,MAT(1,1,76))
	EQUIVALENCE(MX1115,MAT(1,1,77))
	EQUIVALENCE(MX1116,MAT(1,1,78))
	EQUIVALENCE(MX1117,MAT(1,1,79))
	EQUIVALENCE(MX1120,MAT(1,1,80))
	EQUIVALENCE(MX1121,MAT(1,1,81))
	EQUIVALENCE(MX1122,MAT(1,1,82))
	EQUIVALENCE(MX1123,MAT(1,1,83))
	EQUIVALENCE(MX1124,MAT(1,1,84))
	EQUIVALENCE(MX1125,MAT(1,1,85))
	EQUIVALENCE(MX1126,MAT(1,1,86))
	EQUIVALENCE(MX1127,MAT(1,1,87))
	EQUIVALENCE(MX1130,MAT(1,1,88))
	EQUIVALENCE(MX1131,MAT(1,1,89))
	EQUIVALENCE(MX1132,MAT(1,1,90))
	EQUIVALENCE(MX1133,MAT(1,1,91))
	EQUIVALENCE(MX1134,MAT(1,1,92))
	EQUIVALENCE(MX1135,MAT(1,1,93))
	EQUIVALENCE(MX1136,MAT(1,1,94))
	EQUIVALENCE(MX1137,MAT(1,1,95))
	EQUIVALENCE(MX1140,MAT(1,1,96))
	EQUIVALENCE(MX1141,MAT(1,1,97))
	EQUIVALENCE(MX1142,MAT(1,1,98))
	EQUIVALENCE(MX1143,MAT(1,1,99))
	EQUIVALENCE(MX1144,MAT(1,1,100))
	EQUIVALENCE(MX1145,MAT(1,1,101))
	EQUIVALENCE(MX1146,MAT(1,1,102))
	EQUIVALENCE(MX1147,MAT(1,1,103))
	EQUIVALENCE(MX1150,MAT(1,1,104))
	EQUIVALENCE(MX1151,MAT(1,1,105))
	EQUIVALENCE(MX1152,MAT(1,1,106))
	EQUIVALENCE(MX1153,MAT(1,1,107))
	EQUIVALENCE(MX1154,MAT(1,1,108))
	EQUIVALENCE(MX1155,MAT(1,1,109))
	EQUIVALENCE(MX1156,MAT(1,1,110))
	EQUIVALENCE(MX1157,MAT(1,1,111))
	EQUIVALENCE(MX1160,MAT(1,1,112))
	EQUIVALENCE(MX1161,MAT(1,1,113))
	EQUIVALENCE(MX1162,MAT(1,1,114))
	EQUIVALENCE(MX1163,MAT(1,1,115))
	EQUIVALENCE(MX1164,MAT(1,1,116))
	EQUIVALENCE(MX1165,MAT(1,1,117))
	EQUIVALENCE(MX1166,MAT(1,1,118))
	EQUIVALENCE(MX1167,MAT(1,1,119))
	EQUIVALENCE(MX1170,MAT(1,1,120))
	EQUIVALENCE(MX1171,MAT(1,1,121))
	EQUIVALENCE(MX1172,MAT(1,1,122))
	EQUIVALENCE(MX1173,MAT(1,1,123))
	EQUIVALENCE(MX1174,MAT(1,1,124))
	EQUIVALENCE(MX1175,MAT(1,1,125))
	EQUIVALENCE(MX1176,MAT(1,1,126))
	EQUIVALENCE(MX1177,MAT(1,1,127))