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