anchor.diff:  
         ! now that it has been established that the input parameters for second order are good, we check to make sure that the WAMIT files actually exist.
         ! Check MnDrift file
  -   IF ( InitInp%WAMIT2%MnDrift /= 0) THEN
  +   IF ( InitInp%WAMIT2%MnDriftF ) THEN
         ! Check if using QTF file types (10d, 11d, 12d) or not (7,8,9)
         IF ( InitInp%WAMIT2%MnDrift <= 9 ) THEN
            TmpExtension = TRIM(Num2LStr(InitInp%WAMIT2%MnDrift))
  
positive.code:       InitInp%WAMIT2%NewmanAppF = .FALSE.
     ELSE IF ( InitInp%WAMIT2%NewmanApp == 7  .OR. InitInp%WAMIT2%NewmanApp == 8  .OR. InitInp%WAMIT2%NewmanApp == 9 .OR. &
               InitInp%WAMIT2%NewmanApp == 10 .OR. InitInp%WAMIT2%NewmanApp == 11 .OR. InitInp%WAMIT2%NewmanApp == 12 ) THEN ! Valid values for NewmanApp
        InitInp%WAMIT2%NewmanAppF = .TRUE.
     ELSE     ! Must have received an invalid value
        CALL SetErrStat( ErrID_Fatal,'NewmanApp can only have values of 0, 7, 8, 9, 10, 11, or 12.',ErrStat,ErrMsg,RoutineName)
        RETURN
  
negative.code:       RETURN
     END IF
  
  
     if ( InitInp%NBody > 1 .and. InitInp%WAMIT2%MnDrift == 8 ) then
        call SetErrStat( ErrID_Fatal,'MnDrift cannot equal 8 when NBody > 1.',ErrStat,ErrMsg,RoutineName)
        return
  