SUBROUTINE L15C_FILL_FRAME_CODE_BLOCK() C---------------------------------------------------------------------- C- C- Purpose and Methods : Fill the frame code section of the L15 C- calorimeter data block C- C- Inputs : C- Outputs : C- Controls: C- C- Created 9-MAY-1994 sFahey C- C- *NOTE* -- NOT FULLY FILLED C- C---------------------------------------------------------------------- IMPLICIT NONE C INCLUDE 'D0$PARAMS:L15CALDBB_DATA_BLOCK.PARAMS' INCLUDE 'D0$INC:L15CALDBB_DATA_BLOCK.INC' C---------------------------------------------------------------------- C C 999 RETURN END