SUBROUTINE L15C_FILL_FRAME_PARAM_BLOCK
C----------------------------------------------------------------------
C-
C-   Purpose and Methods :
C-
C-   Inputs  :
C-   Outputs :
C-   Controls:
C-
C-   Created  26-OCT-1994   Greg Griffin
C-
C----------------------------------------------------------------------
      IMPLICIT NONE

c      INCLUDE 'D0$PARAMS:LEVEL1_LOOKUP.PARAMS'
c      INCLUDE 'D0$PARAMS:L1_FRAMEWORK.PARAMS'
c      INCLUDE 'D0$PARAMS:L1_CALTRIG.PARAMS'
c      INCLUDE 'D0$INC:L1_SPECIFIC_TRIGGER.INC'
      INCLUDE 'D0$PARAMS:L15COOR_PARSER.PARAMS'
c      INCLUDE 'D0$INC:L15C_TERM_INIT.INC'
      INCLUDE 'D0$PARAMS:L15CALDBB_DATA_BLOCK.PARAMS'
      INCLUDE 'D0$INC:L15C_TERM_INIT.INC'
      INCLUDE 'D0$INC:L15CALDBB_DATA_BLOCK.INC'
      INCLUDE 'D0$INC:L15C_TERM_INFO.INC'

c      INCLUDE 'D0$INC:ZEBCOM.INC'

      INTEGER I, pntr

C----------------------------------------------------------------------
C
C
c      type *, '!@#$%^&*()!@#$%^&* in L15C_FILL_FRAME_PARAM_BLOCK'

      DO i=1,L15CAL_FRAME_PARAM_LENGTH
        L15CAL_FRAME_PARAM_BLOCK (i) = 0
      ENDDO


      L15CAL_FRAME_PARAM_BLOCK(1) = L15CAL_FRAME_PARAM_LENGTH -1 !LW to follow

      CALL BYTE_COPYTO_LW(1                         , 1,
     &                        L15CAL_FRAME_PARAM_BLOCK(2))
      CALL BYTE_COPYTO_LW(FRAME_UNI_NLW             , 2,
     &                        L15CAL_FRAME_PARAM_BLOCK(2))
      CALL BYTE_COPYTO_LW( L15CAL_NUM_TERMS_HARDWARE, 3,
     &                        L15CAL_FRAME_PARAM_BLOCK(2))
      CALL BYTE_COPYTO_LW(FRAME_TERM_NLW            , 4,
     &                        L15CAL_FRAME_PARAM_BLOCK(2))


      CALL BYTE_COPYTO_LW(1       , 1, L15CAL_FRAME_PARAM_BLOCK(3))
      CALL BYTE_COPYTO_LW(1       , 2, L15CAL_FRAME_PARAM_BLOCK(3))
      CALL BYTE_COPYTO_LW(0       , 3, L15CAL_FRAME_PARAM_BLOCK(3))
      CALL BYTE_COPYTO_LW(0       , 4, L15CAL_FRAME_PARAM_BLOCK(3))

      L15CAL_FRAME_PARAM_BLOCK(4) =  L15CAL_NUM_TERMS_HARDWARE

      pntr = 18
      DO i=0, L15CAL_NUM_TERMS_HARDWARE-1
        L15CAL_FRAME_PARAM_BLOCK(pntr+1) = i
        L15CAL_FRAME_PARAM_BLOCK(pntr+2) = L15C_PASS(0,i)
        L15CAL_FRAME_PARAM_BLOCK(pntr+3) = L15C_TERM_INFO(0,i,6)
        pntr = pntr + 16
      ENDDO


  999 RETURN
      END