anchor.diff:     DstParamData%det_jac = SrcParamData%det_jac
   ENDIF
   IF (ALLOCATED(SrcParamData%bc)) THEN
  -   i1 = SIZE(SrcParamData%bc,1)
  +   i1_l = LBOUND(SrcParamData%bc,1)
  +   i1_u = UBOUND(SrcParamData%bc,1)
      IF (.NOT.ALLOCATED(DstParamData%bc)) THEN 
  -      ALLOCATE(DstParamData%bc(i1),STAT=ErrStat)
  +      ALLOCATE(DstParamData%bc(i1_l:i1_u),STAT=ErrStat)
         IF (ErrStat /= 0) THEN 
            ErrStat = ErrID_Fatal 
            ErrMsg = 'BDyn_CopyParam: Error allocating DstParamData%bc.'
  
positive.code:    CHARACTER(*),    INTENT(  OUT) :: ErrMsg
  ! Local 
     INTEGER(IntKi)                 :: i,i1,i2,i3,i4,i5,j,k
  ! 
     ErrStat = ErrID_None
     ErrMsg  = ""
  
negative.code:    DstParamData%gll_w = SrcParamData%gll_w
  ENDIF
  IF (ALLOCATED(SrcParamData%gll_p)) THEN
     i1_l = LBOUND(SrcParamData%gll_p,1)
     i1_u = UBOUND(SrcParamData%gll_p,1)
     IF (.NOT.ALLOCATED(DstParamData%gll_p)) THEN 
        ALLOCATE(DstParamData%gll_p(i1_l:i1_u),STAT=ErrStat)
        IF (ErrStat /= 0) THEN 
           ErrStat = ErrID_Fatal 
           ErrMsg = 'BDyn_CopyParam: Error allocating DstParamData%gll_p.'
  