anchor.diff:                 ! Check the dimensions used.  The LoadComponents(I) flag will be set to .TRUE. if data was found in the file
               DO I=1,6
                  IF ( p%MnDriftDims(I) .AND. ( .NOT. MnDriftData%Data3D%LoadComponents(I) ) ) &
  -                     CALL SetErrStat( ErrID_Fatal, ' '//TRIM(MnDriftData%Filename)//' does not contain information for the '// &
  -                           TRIM(Num2LStr(I))//' force component for the MnDrift method.', ErrStat,ErrMsg,'WAMIT2_Init')
  +                  CALL SetErrStat( ErrID_Warn, ' '//TRIM(MnDriftData%Filename)//' does not contain information for the '// &
  +                        TRIM(Num2LStr(I))//' force component for the MnDrift method.  Setting this component to zero.',    &
  +                        ErrStat,ErrMsg,'WAMIT2_Init')
               ENDDO
            ELSE IF ( MnDriftData%DataIs4D ) THEN
                  ! Check the dimensions used.  The LoadComponents(I) flag will be set to .TRUE. if data was found in the file
               DO I=1,6
                  IF ( p%MnDriftDims(I) .AND. ( .NOT. MnDriftData%Data4D%LoadComponents(I) )  )&
  -                     CALL SetErrStat( ErrID_Fatal, ' '//TRIM(MnDriftData%Filename)//' does not contain information for the '// &
  -                           TRIM(Num2LStr(I))//' force component for the MnDrift method.', ErrStat,ErrMsg,'WAMIT2_Init')
  +                  CALL SetErrStat( ErrID_Warn, ' '//TRIM(MnDriftData%Filename)//' does not contain information for the '// &
  +                        TRIM(Num2LStr(I))//' force component for the MnDrift method.  Setting this component to zero.',    &
  +                        ErrStat,ErrMsg,'WAMIT2_Init')
               ENDDO
            ELSE  ! We didn't find any data to use...
               CALL SetErrStat( ErrID_Fatal, ' Programming error.  MnDrift flag is set, but no data has been read in.',ErrStat,ErrMsg, 'WAMIT2_Init')
  
positive.code:          IF ( DiffQTFData%DataIs4D ) THEN
                 ! Check the dimensions used.  The LoadComponents(I) flag will be set to .TRUE. if data was found in the file
              DO I=1,6
                 IF ( p%DiffQTFDims(I) ) THEN
                    IF ( .NOT. DiffQTFData%Data4D%LoadComponents(I) ) &
                       CALL SetErrStat( ErrID_Fatal, ' '//TRIM(DiffQTFData%Filename)//' does not contain information for the '// &
                             TRIM(Num2LStr(I))//' force component for the DiffQTF method.', ErrStat,ErrMsg,'WAMIT2_Init')
                 END IF
              ENDDO
           ELSE
              CALL SetErrStat( ErrID_Fatal, ' Programming error.  DiffQTF flag is set, but no data has been read in.',ErrStat,ErrMsg, 'WAMIT2_Init')
  
negative.code:          IF ( SumQTFData%DataIs4D ) THEN
                 ! Check the dimensions used.  The LoadComponents(I) flag will be set to .TRUE. if data was found in the file
              DO I=1,6
                 IF ( p%SumQTFDims(I) .AND. ( .NOT. SumQTFData%Data4D%LoadComponents(I) ) ) &
                    CALL SetErrStat( ErrID_Warn, ' '//TRIM(SumQTFData%Filename)//' does not contain information for the '// &
                          TRIM(Num2LStr(I))//' force component for the SumQTF method.  Setting this component to zero.',    &
                          ErrStat,ErrMsg,'WAMIT2_Init')
              ENDDO
           ELSE
              CALL SetErrStat( ErrID_Fatal, ' Programming error.  SumQTF flag is set, but no data has been read in.',ErrStat,ErrMsg, 'WAMIT2_Init')
  