anchor.diff:        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
  
positive.code:       END IF
     END IF
  
     IF ( InitInp%WAMIT2%SumQTF /= 0) THEN
        TmpExtension = TRIM(Num2LStr(InitInp%WAMIT2%SumQTF))//'s'
        INQUIRE( file=TRIM(InitInp%WAMIT2%WAMITFile)//'.'//TRIM(TmpExtension), exist=TmpFileExist )
        IF ( .not. TmpFileExist ) THEN
  
negative.code: 
        ! 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%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))
  