anchor.diff:           IF (CLPosPI(IPHI) /= CLNegPI(IPHI) .OR. &
                CDPosPI(IPHI) /= CDNegPI(IPHI) .OR. &
                CMPosPI(IPHI) /= CMNegPI(IPHI)) THEN
  -            CALL ProgAbort( ' The airfoil data at +180 deg is different from -180 deg in file :'//Trim(P%AirFoil%FOILNM(NFOILID)) )
  +            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
  
positive.code:  ! Read in airfoil data table identification array
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , 'multi-table metric' )
     READ(LINE,*,ERR=205)  (p%AirFoil%MulTabMet ( NFOILID, K ), K = 1, p%AirFoil%NTables(NFOILID))
  
   ! Read in four lines that are no longer used
   ! These are retained for future USE and backwards compatibility only
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , '5th line' )
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , '6th line' )
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , '7th line' )
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , '8th line' )
  
   ! Read Beddoes stall parameters
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , 'Angle of zero lift (AOL)' )
     IF (p%DSTALL) READ(LINE,*,ERR=205)  (O%Beddoes%AOL( NFOILID, K ), K = 1, p%AirFoil%NTables(NFOILID))
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , 'CNA' )
     IF (p%DSTALL) READ(LINE,*,ERR=205)  (O%Beddoes%CNA   ( NFOILID, K ), K = 1, p%AirFoil%NTables(NFOILID))
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , 'CNS' )
     IF (p%DSTALL) READ(LINE,*,ERR=205)  (O%Beddoes%CNS   ( NFOILID, K ), K = 1, p%AirFoil%NTables(NFOILID))
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , 'CNSL' )
     IF (p%DSTALL) READ(LINE,*,ERR=205)  (O%Beddoes%CNSL  ( NFOILID, K ), K = 1, p%AirFoil%NTables(NFOILID))
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , 'AOD' )
     IF (p%DSTALL) READ(LINE,*,ERR=205)  (O%Beddoes%AOD   ( NFOILID, K ), K = 1, p%AirFoil%NTables(NFOILID))
  
     READ(NUNIT,'( A )',IOSTAT=IOS) LINE
     IF ( IOS < 0 ) CALL PremEOF ( Trim(p%AirFoil%FOILNM(NFOILID)) , 'CDO' )
     IF (p%DSTALL) READ(LINE,*,ERR=205)  (O%Beddoes%CDO   ( NFOILID, K ), K = 1, p%AirFoil%NTables(NFOILID))
  
   ! Convert angles to radians
  
negative.code: 
        DO IPHI = 1, p%AirFoil%NTables(NFOILID)
          IF ( ABS( O%AirFoil%AL( NFOILID, I ) ) > 185.) THEN
              CALL SetErrStat( ErrID_Fatal, 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Angle of attack exceeds 185 degrees.', ErrStat, ErrMess, 'READFL')   
              CLOSE(NUNIT)
              RETURN
  
          ELSEIF (ABS( O%AirFoil%CL( NFOILID, I, IPHI ) ) > 3. ) THEN
              CALL SetErrStat( ErrID_Fatal, 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Coefficient of Lift exceeds 3.0.', ErrStat, ErrMess, 'READFL')   
              CLOSE(NUNIT)
              RETURN
          ELSEIF (ABS( O%AirFoil%CD( NFOILID, I, IPHI ) ) > 3. ) THEN
              CALL SetErrStat( ErrID_Fatal, 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Coefficient of Drag exceeds 3.0.', ErrStat, ErrMess, 'READFL')   
              CLOSE(NUNIT)
              RETURN
          ELSEIF (ABS( O%AirFoil%CM( NFOILID, I, IPHI ) ) > 3. ) THEN
              CALL SetErrStat( ErrID_Fatal, 'Probable error in airfoil data table number '//TRIM(Int2LStr(NFOILID))// &
                             ' Coefficient of Moment exceeds 3.0.', ErrStat, ErrMess, 'READFL')   
              CLOSE(NUNIT)
              RETURN
             
             
          ENDIF
        ENDDO ! IPHI
  
  