C
C=======================================================================
C
C	MPSPFT.COM
C
C=======================================================================
C
	COMMON/MPSP00/LSTRN2,STRNG2,COOR  ,ORIG  ,ICMDS1,ICMDS2,ICMDS3,
	9              NCMDS1,NCMDS2,NCMDS3,LDRAWA,
	1              STRNGS,LSTRNS,NSTRNS,SYMANS,CPARMS,MODESY,NIBSY ,
	2              TLFRSS,TLLASS,ALBEGS,ALENDS,TIXLNS,DELLTS,DELSTS,
	2              NLABES,ANGLAS,IDISAS,IMODES,IFUNCS,BASLOS,TLFORS,
	2              LTLFOS,NIBAXS,LPATTS,SPACES,NTLFOS,
	3              MODELN,NIBLN ,LPATLN,DELBRX,DELBRY,NPINCH,
	4              NIBAH ,NIBAS ,LPATAH,LPATAS,AHWIDT,AHLENG,MODAR ,
	5              MODSA1,MODSA2,SASIZ ,THETA1,THETA2,NIBSA ,LPATSA,
	6              MODDM1,MODDM2,NIBDM ,LPATDM,DMSIZ ,
	7              MODCD1,MODCD2,NIBCD ,LPATCD,CDSIZ ,CDORIG,
	8              ARCBEG,ARCEND,ARCORG,ARCRAD,NIBARC,LPTARC,
	1              SYBXMG,NIBSB ,LPATSB,
	2              XSCALT,YSCALT,XOFFT ,YOFFT,
	3		LAHTYP,AHTYPE,
	4		NIBREL,LINREL,NIBRES,LINRES,KREBOX,KRESHD,REDIST
C
	BYTE STRNG2(80),STRNGS(400),TLFORS(10),AHTYPE(40)
	LOGICAL*1 LDRAW
	INTEGER*2 MODESY(3),LPATTS(4),NIBAXS(4)
	REAL*4 TIXLNS(4),CPARMS(5),COOR(4,8),ORIG(4),SASIZ(3),DMSIZ(6)
	REAL*4 CDSIZ(6),ARCORG(2),SYBXMG(4)
	REAL*4 DMBEG(2),DMEND(2),CDBEG(2),CDEND(2)
	REAL*4 CDORIG(2)
C
	EQUIVALENCE (COOR(1,6),DMBEG(1)),(COOR(3,6),DMEND(1))
	EQUIVALENCE (COOR(1,7),CDBEG(1)),(COOR(3,7),CDEND(1))
	EQUIVALENCE (LDRAW,LDRAWA)