anchor.diff:     
      
      !.................................
  -   ! y%WriteOutput
  +   ! y%WriteOutput (for writing columns to output file)
      !.................................
      
      call AllocAry( y%WriteOutput, p%numOuts, 'WriteOutput', errStat2, errMsg2 )
  
positive.code:    REAL(ReKi)                                 :: temp_p0(3)
     REAL(ReKi)                                 :: temp_rv(3)
     REAL(ReKi)                                 :: temp_R(3,3)
  !   REAL(ReKi)                                 :: temp_Rb(3,3)
     INTEGER(IntKi)                             :: ErrStat2                     ! Temporary Error status
     CHARACTER(ErrMsgLen)                       :: ErrMsg2                      ! Temporary Error message
  
negative.code:          call cleanup()
           return
        end if
     p%IniDisp(:) = x%q(:)
     p%IniVelo(:) = x%dqdt(:)
  
  