anchor.diff:     END IF
      DstParamData%M = SrcParamData%M
   ENDIF
  -   DstParamData%num_elem = SrcParamData%num_elem
  +   DstParamData%elem_total = SrcParamData%elem_total
      DstParamData%order = SrcParamData%order
      DstParamData%dof_node = SrcParamData%dof_node
  -   DstParamData%num_node = SrcParamData%num_node
  -   DstParamData%num_dof = SrcParamData%num_dof
  +   DstParamData%node_total = SrcParamData%node_total
  +   DstParamData%dof_total = SrcParamData%dof_total
  +   DstParamData%node_elem = SrcParamData%node_elem
  +   DstParamData%dof_elem = SrcParamData%dof_elem
   IF (ALLOCATED(SrcParamData%gll_w)) THEN
      i1 = SIZE(SrcParamData%gll_w,1)
      IF (.NOT.ALLOCATED(DstParamData%gll_w)) THEN 
  
positive.code:     IF ( .NOT. OnlySize ) ReKiBuf ( Re_Xferred:Re_Xferred+(SIZE(InData%gll_deriv))-1 ) =  PACK(InData%gll_deriv ,.TRUE.)
      Re_Xferred   = Re_Xferred   + SIZE(InData%gll_deriv)
    ENDIF
    IF ( ALLOCATED(InData%pos) ) THEN
      IF ( .NOT. OnlySize ) ReKiBuf ( Re_Xferred:Re_Xferred+(SIZE(InData%pos))-1 ) =  PACK(InData%pos ,.TRUE.)
      Re_Xferred   = Re_Xferred   + SIZE(InData%pos)
    ENDIF
    IF ( ALLOCATED(InData%det_jac) ) THEN
      IF ( .NOT. OnlySize ) ReKiBuf ( Re_Xferred:Re_Xferred+(SIZE(InData%det_jac))-1 ) =  PACK(InData%det_jac ,.TRUE.)
      Re_Xferred   = Re_Xferred   + SIZE(InData%det_jac)
    ENDIF
   END SUBROUTINE BDyn_PackParam
  
  
negative.code:    END IF
     DstParamData%det_jac = SrcParamData%det_jac
  ENDIF
  IF (ALLOCATED(SrcParamData%bc)) THEN
     i1 = SIZE(SrcParamData%bc,1)
     IF (.NOT.ALLOCATED(DstParamData%bc)) THEN 
        ALLOCATE(DstParamData%bc(i1),STAT=ErrStat)
        IF (ErrStat /= 0) THEN 
           ErrStat = ErrID_Fatal 
           ErrMsg = 'BDyn_CopyParam: Error allocating DstParamData%bc.'
           RETURN
        END IF
     END IF
     DstParamData%bc = SrcParamData%bc
  ENDIF
   END SUBROUTINE BDyn_CopyParam
  
   SUBROUTINE BDyn_DestroyParam( ParamData, ErrStat, ErrMsg )
  