anchor.diff:     
      
      
  -   integer(IntKi)                                :: j, k, n
  +   integer(IntKi)                                :: i, j, k, n
         ! Initialize variables for this routine
   
      errStat = ErrID_None
  
positive.code:    call AllocAry( InitOut%WriteOutputUnt, p%numOuts, 'WriteOutputUnt', errStat2, errMsg2 )
        call SetErrStat( errStat2, errMsg2, errStat, errMsg, RoutineName )
  
        
     if (ErrStat >= AbortErrLev) return
     
  
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
     
  