$STORAGE: 4
C THE FOLLOWING ROUTINES ARE NEEDED FOR GHASP AND IMPLEMENTED CORRECTLY
C IN DEC FORTRAN AND SOME OTHERS; NOT NECESSARILY CORRECT IN IBM FORTRAN.
C MODIFIED FOR MICROSOFT FORTRAN (WHICH IS MORE FUSSY ABOUT LOGICAL TYPES)
C GCE 7/84
	FUNCTION MOR(IK,JK)
	INTEGER*4 MOR,KMAND,IK,JK
	integer*2 I2A(2),I2B(2),IWK(2)
	INTEGER*4 IA,IB
	EQUIVALENCE(IA,I2A(1)),(IB,I2B(1))
	EQUIVALENCE(IWK(1),KMAND)
	IA=IK
	IB=JK
	IWK(1)=IINCOR(I2A(1),I2B(1))
	IWK(2)=IINCOR(I2A(2),I2B(2))
	MOR=KMAND
	RETURN
	END



