c
	Parameter	Maximum_Tests	= 20
	Parameter	Data_File_Lun	= 1
c
	Character*20	Last_Name,	First_Name,	Department_Name
	Character*20	Student_Number,	Comment
	Character*20	Test_Comments( Maximum_Tests )
	Character*1	Letter_Grade
c
	Logical*1	Test_Dropped( Maximum_Tests )
	Logical*1	Student_Record( 620 )
c
	Real		Test_Score( Maximum_Tests )
	Real		Average_Needed( 3 )
	Real		Average_Grade
c
	Common / Record /
	1	Last_Name,		!   1	 20
	1	First_Name,		!  21	 40
	1	Student_Number,		!  41	 60
	1	Department_Name,	!  61	 80
	1	Comment,		!  81	100
	1	Test_Comments,		! 101	500
	1	Test_Dropped,		! 501	520
	1	Test_Score,		! 521	600
	1	Average_Needed,		! 601	612
	1	Average_Grade,		! 613	616
	1	Letter_Grade		! 617	618
c
	Equivalence(	Student_Record(   1 ),	Last_Name	)
	Equivalence(	Student_Record(  21 ),	First_Name	)
	Equivalence(	Student_Record(  41 ),	Student_Number	)
	Equivalence(	Student_Record(  61 ),	Department_Name	)
	Equivalence(	Student_Record(  81 ),	Comment		)
	Equivalence(	Student_Record( 101 ),	Test_Comments	)
	Equivalence(	Student_Record( 501 ),	Test_Dropped	)
	Equivalence(	Student_Record( 521 ),	Test_Score	)
	Equivalence(	Student_Record( 601 ),	Average_Needed	)
	Equivalence(	Student_Record( 613 ),	Average_Grade	)
	Equivalence(	Student_Record( 617 ),	Letter_Grade	)