anchor.diff:        CHARACTER(*),   INTENT(In)             :: AryName                       ! The array name we are trying to fill.
         CHARACTER(*),   INTENT(OUT)            :: ErrMsg                        ! The error message, if ErrStat /= 0.
   
  -      TYPE (FileInfoType)                    :: FileInfo                      ! The derived type for holding the file information.
  +      TYPE (FileInfoType), INTENT(IN)        :: FileInfo                      ! The derived type for holding the file information.
   
   
            ! Local declarations.
  
positive.code: 
        ! Read some of the header information.
  
     READ (UnIn, IOSTAT=ErrLev)  FileType
     IF ( ErrLev /= 0 )  THEN
        CALL ExitThisRoutine ( ErrID_Fatal, '>> Fatal error reading FileType in ReadFASTbin for file "'//TRIM( FASTdata%File )//'".' )
        RETURN
     ENDIF
  
     READ (UnIn, IOSTAT=ErrLev)  Tmp4BInt
     IF ( ErrLev /= 0 )  THEN
        CALL ExitThisRoutine ( ErrID_Fatal, '>> Fatal error reading the number of channels in ReadFASTbin for file "' &
                                        //TRIM( FASTdata%File )//'".' )
        RETURN
     ENDIF
     FASTdata%NumChans = Tmp4BInt  ! possible type conversion
  
     READ (UnIn, IOSTAT=ErrLev)  Tmp4BInt
     IF ( ErrLev /= 0 )  THEN
        CALL ExitThisRoutine ( ErrID_Fatal, '>> Fatal error reading the number of records in ReadFASTbin for file "' &
                                            //TRIM( FASTdata%File )//'".' )
        RETURN
     ENDIF
     FASTdata%NumRecs = Tmp4BInt ! possible type conversion
  
negative.code: 
  
     RETURN
     END SUBROUTINE ReadOutputList
  !=======================================================================
     SUBROUTINE ReadR4Ary ( UnIn, Fil, RealAry, AryLen, AryName, AryDescr, ErrStat, ErrMsg, UnEc )
  
  