anchor.diff:              IF ( InitInp%WaveDirMin < MINVAL(MnDriftData%Data4D%WvDir2) ) THEN
                  CALL SetErrStat( ErrID_Fatal,' Minimum wave direction required of '//TRIM(Num2LStr(InitInp%WaveDirMin))//' is not'//&
                        'found in the WAMIT data file '//TRIM(MnDriftData%Filename)//' for the second wave direction.', &
  -                     ErrStat, ErrMsg, 'MnDrift_InitCalc')
  +                     ErrStat, ErrMsg, RoutineName)
               ENDIF
               IF ( InitInp%WaveDirMax < MAXVAL(MnDriftData%Data4D%WvDir2) ) THEN
                  CALL SetErrStat( ErrID_Fatal,' Maximum wave direction required of '//TRIM(Num2LStr(InitInp%WaveDirMax))//' is not'//&
                        'found in the WAMIT data file '//TRIM(MnDriftData%Filename)//' for the second wave direction.', &
  -                     ErrStat, ErrMsg, 'MnDrift_InitCalc')
  +                     ErrStat, ErrMsg, RoutineName)
               ENDIF
   
            ENDIF
   
         ELSE
               ! No data. This is a catastrophic issue.  We should not have called this routine without data that is usable for the MnDrift calculation
  -         CALL SetErrStat( ErrID_Fatal, ' Mean drift calculation called without data.',ErrStat,ErrMsg,'MnDrift_InitCalc')
  +         CALL SetErrStat( ErrID_Fatal, ' Mean drift calculation called without data.',ErrStat,ErrMsg,RoutineName)
         ENDIF
   
         IF ( ErrStat >= AbortErrLev )    RETURN
  
positive.code:       INTEGER(IntKi)                                     :: J                    !< Generic counter
        INTEGER(IntKi)                                     :: K                    !< Generic counter
        TYPE(FFT_DataType)                                 :: FFT_Data             !< Temporary array for the FFT module we're using
  
  
           ! Wave information and QTF temporary
        COMPLEX(SiKi)                                      :: QTF_Value            !< Temporary complex number for QTF
  
negative.code: 
  
                    ! Check and make sure nothing bombed in the interpolation that we need to be aware of
                 CALL SetErrStat(ErrStatTmp,ErrMsgTmp,ErrStat,ErrMsg,RoutineName)
                 IF ( ErrStat >= AbortErrLev ) THEN
                    IF (ALLOCATED(TmpData3D))        DEALLOCATE(TmpData3D,STAT=ErrStatTmp)
                    IF (ALLOCATED(TmpData4D))        DEALLOCATE(TmpData4D,STAT=ErrStatTmp)
  