c
c   *** Layout of the managment record. Key is Null ( ASCII 0 ).
c
	Character*40	Manager_Key_0
	Character*20	Manager_Key_1,	Manager_Key_2
	Character*8	Manager_Test_Name( Maximum_Tests )
c
	Integer		Manager_Counts( 5 ),	Manager_Num_Tests
c
	Logical*1	Manager_Dropped( Maximum_Tests )
	Logical*1	Manager_Record( 508 )
c
	Real		Manager_Weights( Maximum_Tests )
	Real		Manager_Scale( Maximum_Tests )
	Real		Manager_Score_Average( Maximum_Tests )
	Real		Manager_Average_Grade
c
	Common / Manager /
	1	Manager_Key_0,		!   1	 40
	1	Manager_Key_1,		!  41	 60
	1	Manager_Key_2,		!  61	 60
	1	Manager_Dropped,	!  81	100
	1	Manager_Weights,	! 101	180
	1	Manager_Counts,		! 181	200
	1	Manager_Average_Grade,	! 201	204
	1	Manager_Num_Tests,	! 205	208
	1	Manager_Scale,		! 209	288
	1	Manager_Score_Average,	! 289	368
	1	Manager_Test_Name	! 369	528
c
	Equivalence(	Manager_Record(   1 ),	Manager_Key_0		)
	Equivalence(	Manager_Record(  41 ),	Manager_Key_1		)
	Equivalence(	Manager_Record(  61 ),	Manager_Key_2		)
	Equivalence(	Manager_Record(  81 ),	Manager_Dropped		)
	Equivalence(	Manager_Record( 101 ),	Manager_Weights		)
	Equivalence(	Manager_Record( 181 ),	Manager_Counts		)
	Equivalence(	Manager_Record( 201 ),	Manager_Average_Grade	)
	Equivalence(	Manager_Record( 205 ),	Manager_Num_Tests	)
	Equivalence(	Manager_Record( 209 ),  Manager_Scale		)
	Equivalence(	Manager_Record( 289 ),	Manager_Score_Average	)
	Equivalence(	Manager_Record( 369 ),	Manager_Test_Name	)
c