anchor.diff:     call AllocAry( InitOut%WriteOutputUnt, p%numOuts, 'WriteOutputUnt', errStat2, errMsg2 )
         call SetErrStat( errStat2, errMsg2, errStat, errMsg, RoutineName )
   
  +   do i=1,p%NumOuts
  +      InitOut%WriteOutputHdr(i) = p%OutParam(i)%Name
  +      InitOut%WriteOutputUnt(i) = p%OutParam(i)%Units
  +   end do
  +        
         
      if (ErrStat >= AbortErrLev) return
      
  
positive.code:       p%NTwOuts = 0
     end if
     
     
  end subroutine SetParameters
  !----------------------------------------------------------------------------------------------------------------------------------
  subroutine AD_End( u, p, x, xd, z, OtherState, y, ErrStat, ErrMsg )
  
negative.code:    p%numOuts          = InputFileData%NumOuts      
    !p%RootName       = TRIM(InitInp%RootName)//'.AD'   ! set earlier to it could be used   
     
     p%NBlOuts = InputFileData%NBlOuts      
     p%BlOutNd = InputFileData%BlOutNd
     
  