File 1)	DSK:LOC.MAC[4,361]	created: 1014 03-Jul-1980
File 2)	DSK:LOC.MAC[4,67] 	created: 1917 19-Aug-1973

1)1	LOC:	MOVE	0,@5(16)	;GET MS
1)		SOJL	0,GEN		;MS = 0 FOR GENERAL MATRIX
****
2)1	LOC:	0-0		;JSA HERE (MUST BE CHANGED FOR FORTRAN-10)
2)		MOVE	0,@5(16)	;GET MS
2)		SOJL	0,GEN		;MS = 0 FOR GENERAL MATRIX
**************
1)1		POPJ	17,
1)	;HERE IF SYMMETRIC MATRIX
****
2)1		JRA	16,6(16)
2)	;HERE IF SYMMETRIC MATRIX
**************
1)1		POPJ	17,
1)	;HERE FOR ELEMENT IN OTHER HALF OF SYMMETRIC MATRIX
****
2)1		JRA	16,6(16)
2)	;HERE FOR ELEMENT IN OTHER HALF OF SYMMETRIC MATRIX
**************
1)1		POPJ	17,
1)	;HERE FOR GENERAL MATRIX
****
2)1		JRA	16,6(16)
2)	;HERE FOR GENERAL MATRIX
**************
1)1		POPJ	17,
1)		END
****
2)1		JRA	16,6(16)
2)	END
**************
