anchor.diff:     p%numOuts          = InputFileData%NumOuts      
     !p%RootName       = TRIM(InitInp%RootName)//'.AD'   ! set earlier to it could be used   
      
  -   call SetOutParam(InputFileData%OutList, p, ErrStat2, ErrMsg2 ) ! requires: p%NumOuts, p%numBlades, p%NumBlNds, p%NumTwrNds; sets: p%OutParam.
  -      call setErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName)
  -      if (ErrStat >= AbortErrLev) return  
  -
      p%NBlOuts = InputFileData%NBlOuts      
      p%BlOutNd = InputFileData%BlOutNd
      
  
positive.code:    call AllocAry( InitOut%WriteOutputUnt, p%numOuts, 'WriteOutputUnt', errStat2, errMsg2 )
        call SetErrStat( errStat2, errMsg2, errStat, errMsg, RoutineName )
  
        
     if (ErrStat >= AbortErrLev) return
     
  
negative.code:    
     
     
     integer(IntKi)                                :: i, j, k, n
        ! Initialize variables for this routine
  
     errStat = ErrID_None
  