anchor.diff:       INTEGER(IntKi),              INTENT(OUT)   :: ErrStat  ! Error code
        CHARACTER(*),                INTENT(OUT)   :: ErrMess  ! Error message
       ! Optional arguments (used only if CtrlCode is MESH_SIBLING):
  -     LOGICAL,        OPTIONAL,    INTENT(IN)    :: Force             & ! If present and true, allocate Force field
  -                                                 , Moment            & ! If present and true, allocate Moment field
  -                                                 , Orientation       & ! If present and true, allocate Orientation field
  -                                                 , TranslationDisp   & ! If present and true, allocate TranslationDisp field
  -                                                 , TranslationVel    & ! If present and true, allocate TranslationVel field
  -                                                 , RotationVel       & ! If present and true, allocate RotationVel field
  -                                                 , TranslationAcc    & ! If present and true, allocate TranslationAcc field
  -                                                 , RotationAcc       & ! If present and true, allocate RotationAcc field
  -                                                 , AddedMass           ! If present and true, allocate AddedMess field
  -     INTEGER(IntKi), OPTIONAL,    INTENT(IN)    :: nScalars            ! If present and > 0 , alloc n Scalars
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: Force             ! If present and true, allocate Force field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: Moment            ! If present and true, allocate Moment field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: Orientation       ! If present and true, allocate Orientation field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: TranslationDisp   ! If present and true, allocate TranslationDisp field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: TranslationVel    ! If present and true, allocate TranslationVel field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: RotationVel       ! If present and true, allocate RotationVel field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: TranslationAcc    ! If present and true, allocate TranslationAcc field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: RotationAcc       ! If present and true, allocate RotationAcc field
  +     LOGICAL,        OPTIONAL,    INTENT(IN)    :: AddedMass         ! If present and true, allocate AddedMess field
  +     INTEGER(IntKi), OPTIONAL,    INTENT(IN)    :: nScalars          ! If present and > 0 , alloc n Scalars
       ! Local
        LOGICAL                                    :: Force_l           & ! If present and true, allocate Force field
                                                    , Moment_l          & ! If present and true, allocate Moment field
  
positive.code:        ErrStat = ErrID_None
         ErrMsg  = ""
  
            ! we'll subtract a constant from the times to resolve some
            ! numerical issues when t gets large (and to simplify the equations)
         t = tin - tin(1)
  
negative.code:          END IF
        END IF
  
        
        !IF ( ASSOCIATED(u_out%RemapFlag) ) THEN
        !   ErrStat=ErrID_Info
        !   ErrMsg=' Orientations are not implemented in MeshExtrapInterp2; using nearest neighbor approach instead.'
        !
        !   IF ( t_out < 0.5_DbKi*(t(2)+t(1)) ) THEN
        !      u_out%RemapFlag = u1%RemapFlag
        !   ELSEIF ( t_out < 0.5_DbKi*(t(3)+t(2)) ) THEN
        !      u_out%RemapFlag = u2%RemapFlag
        !   ELSE
        !      u_out%RemapFlag = u3%RemapFlag
        !   END IF
        !END IF      
        
     END SUBROUTINE MeshExtrapInterp2
  
     !...............................................................................................................................
  