anchor.diff:           IF ( InitInp%SumQTFF .eqv. .TRUE. ) THEN    ! Should be false in this case, so if true there is a problem
               CALL SetErrStat( ErrID_Fatal, ' Programming error in call to WAMIT2_Init: '//NewLine// &
                     '           SumQTFF flag should be set to false by calling program for SumQTF = 0.'//NewLine// &
  -                  '              --> This should have been checked by the calling program.', ErrStat, ErrMsg, 'CheckInitInput')
  +                  '              --> This should have been checked by the calling program.', ErrStat, ErrMsg, RoutineName)
            END IF
         ELSE IF( InitInp%SumQTF >= 10 .AND. InitInp%SumQTF <= 12 ) THEN              ! Valid values
            IF ( InitInp%SumQTFF .eqv. .FALSE. ) THEN    ! Should be true in this case, so if false there is a problem
               CALL SetErrStat( ErrID_Fatal, ' Programming error in call to WAMIT2_Init: '//NewLine// &
                     '           SumQTFF flag should be set to true by calling program for SumQTF /= 0.'//NewLine// &
  -                  '              --> This should have been checked by the calling program.', ErrStat, ErrMsg, 'CheckInitInput')
  +                  '              --> This should have been checked by the calling program.', ErrStat, ErrMsg, RoutineName)
            END IF
         ELSE
            CALL SetErrStat( ErrID_Fatal, ' Programming Error in call to WAMIT2_Init: '//NewLine// &
                     '           SumQTF can only have values of 0, 10, 11, or 12. '//NewLine// &
  -                  '              --> This should have been checked by the calling program.', ErrStat, ErrMsg, 'CheckInitInput')
  +                  '              --> This should have been checked by the calling program.', ErrStat, ErrMsg, RoutineName)
         END IF
         IF ( ErrStat >= AbortErrLev ) THEN
            CALL CleanUp
  
positive.code:          ENDIF
           IF ( TmpFileExist .eqv. .FALSE. ) THEN
              CALL SetErrStat( ErrID_Fatal, ' Cannot find the WAMIT file '//TRIM(NewmanAppData%Filename)// &
                          ' required by the NewmanApp option.', ErrStat, ErrMsg, 'CheckInitInput')
              CALL CleanUp
              RETURN
           END IF
  
negative.code:       INTEGER(IntKi)                                     :: I                    !< Generic counter
        INTEGER(IntKi)                                     :: J                    !< Generic counter
        INTEGER(IntKi)                                     :: K                    !< Generic counter
        CHARACTER(*), PARAMETER                            :: RoutineName = 'MnDrift_InitCalc'
   
  
           ! Wave information and QTF temporary
        COMPLEX(SiKi)                                      :: QTF_Value            !< Temporary complex number for QTF
  