anchor.diff:           IF (ErrStat >= AbortErrLev) RETURN
   
            NewmanAppData%DataIs3D = .TRUE.       ! Set flag to indicate we now have the 3D data.
  -
  +       
         ENDIF
   
   
  
positive.code:       ENDIF
        
           ! add the two points for step-change after last entered frequency
        Data4D%WvFreq1( Data4D%NumWvFreq1-1 )     = TmpWvFreq1(Data4D%NumWvFreq1-2) + EPSILON(0.0_ReKi)
        Data4D%WvFreq1( Data4D%NumWvFreq1   )     = HUGE(1.0_ReKi)
                       
  
  
negative.code:          IF (ErrStatTmp /= 0) CALL SetErrStat(ErrID_Fatal,' Cannot allocate temporary array for interpolation of 3D QTF data.', &
                                                  ErrStat, ErrMsg, 'MnDrift_InitCalc')
        ELSE
           ALLOCATE( TmpData4D(MnDriftData%Data4D%NumWvFreq1,MnDriftData%Data4D%NumWvFreq2,MnDriftData%Data4D%NumWvDir1,MnDriftData%Data4D%NumWvDir2),STAT=ErrStatTmp )
           IF (ErrStatTmp /= 0) CALL SetErrStat(ErrID_Fatal,' Cannot allocate temporary array for interpolation of 4D QTF data.', &
                                                  ErrStat, ErrMsg, 'MnDrift_InitCalc')
        ENDIF
  