anchor.diff:  END DO !NUMFOIL
   RETURN
   
  -205 CALL ProgAbort( ' Error reading line: "'//TRIM(Line)//'" in file : "'//TRIM(P%AirFoil%FOILNM(NFOILID))//'"' )
  +205 CALL SetErrStat( ErrID_Fatal, ' Error reading line: "'//TRIM(Line)//'" in file : "'//TRIM(P%AirFoil%FOILNM(NFOILID))//'"', ErrStat, ErrMess, 'READFL')   
  +   CLOSE(NUNIT)
  +   RETURN
   
   RETURN
   END SUBROUTINE READFL
  
positive.code: 
        DO IPHI = 1, p%AirFoil%NTables(NFOILID)
          IF ( ABS( O%AirFoil%AL( NFOILID, I ) ) > 185.) THEN
             CALL ProgAbort( 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Angle of attack exceeds 185 degrees.')
          ELSEIF (ABS( O%AirFoil%CL( NFOILID, I, IPHI ) ) > 3. ) THEN
             CALL ProgAbort( 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Coefficient of Lift exceeds 3.0.')
          ELSEIF (ABS( O%AirFoil%CD( NFOILID, I, IPHI ) ) > 3. ) THEN
             CALL ProgAbort( 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Coefficient of Drag exceeds 3.0.')
          ELSEIF (ABS( O%AirFoil%CM( NFOILID, I, IPHI ) ) > 3. ) THEN
             CALL ProgAbort( 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Coefficient of Moment exceeds 3.0.')
          ENDIF
        ENDDO ! IPHI
  
  
negative.code:          IF (CLPosPI(IPHI) /= CLNegPI(IPHI) .OR. &
               CDPosPI(IPHI) /= CDNegPI(IPHI) .OR. &
               CMPosPI(IPHI) /= CMNegPI(IPHI)) THEN
              CALL SetErrStat( ErrID_Fatal, ' The airfoil data at +180 deg is different from -180 deg in file :'//Trim(P%AirFoil%FOILNM(NFOILID)), ErrStat, ErrMess, 'READFL')            
              return
           ENDIF
        END Do ! IPHI
     ENDIF
  