anchor.diff:     END DO ! IRow=1,FASTdata%NumRecs
   
   
  -   DO IRow=1,FASTdata%NumRecs
  -      IF ( FileType == FileFmtID_NoCompressWithoutTime ) THEN
  +   IF ( FileType == FileFmtID_NoCompressWithoutTime ) THEN
  +      DO IRow=1,FASTdata%NumRecs
            FASTdata%Data(IRow,2:) = REAL(TmpInArray(IRow,:), ReKi)
  -      ELSE
  +      END DO ! IRow=1,FASTdata%NumRecs
  +   ELSE
  +      DO IRow=1,FASTdata%NumRecs
               ! Denormalize the data one row at a time and store it in the FASTdata%Data array.
            FASTdata%Data(IRow,2:) = ( TmpInArray(IRow,:) - ColOff(:) )/ColScl(:)
  -      END IF
  -      
  -   END DO ! IRow=1,FASTdata%NumRecs
  +      END DO ! IRow=1,FASTdata%NumRecs
  +   END IF
  +      
   
   
      CALL Cleanup( )
  
positive.code:    INTEGER(IntKi)                         :: IRow                    ! The row index used for DO loops.
     INTEGER(IntKi)                         :: LenDesc                 ! The length of the description string, DescStr.
     INTEGER(IntKi), PARAMETER              :: MaxLenDesc = 1024       ! The maximum allowed length of the description string, DescStr.
     INTEGER(IntKi), PARAMETER              :: MaxChrLen  = 10         ! The maximum length for channel names and units.
  
     INTEGER(B4Ki), ALLOCATABLE             :: TmpTimeArray(:)         ! This array holds the normalized time channel that was read from the binary file.
     INTEGER(B4Ki)                          :: Tmp4BInt                ! This scalar temporarially holds a 4-byte integer that was stored in the binary file
  
     INTEGER(B2Ki)                          :: FileType                ! The type of FAST data file (1: Time channel included in file; 2: Time stored as start time and step).
     INTEGER(B2Ki), ALLOCATABLE             :: TmpInArray(:,:)         ! This array holds the normalized channels that were read from the binary file.
     INTEGER(R8Ki), ALLOCATABLE             :: TmpR8InArray(:,:)       ! This array holds the uncompressed channels that were read from the binary file.
  
     INTEGER(B1Ki), ALLOCATABLE             :: DescStrASCII(:)         ! The ASCII equivalent of DescStr.
     INTEGER(B1Ki)                          :: TmpStrASCII(MaxChrLen)  ! The temporary ASCII equivalent of a channel name or units.
  
     INTEGER(IntKi)                         :: ErrStat2
     CHARACTER(ErrMsgLen)                   :: ErrMsg2
  
negative.code:       FASTdata%Descr(IChr:IChr) = CHAR( DescStrASCII(IChr) )
     END DO
  
     
     ALLOCATE ( TmpStrASCII( ChanLen2 ) , STAT=ErrStat2 )
     IF ( ErrStat2 /= 0 )  THEN
        CALL SetErrStat ( ErrID_Fatal, 'Fatal error allocating memory for the DescStrASCII array.', ErrStat, ErrMsg, RoutineName )
        CALL Cleanup()
        RETURN
     ENDIF   
     TmpStrASCII(:) = ICHAR( ' ' )
     DO IChan=1,FASTdata%NumChans+1
        READ (UnIn, IOSTAT=ErrStat2)  TmpStrASCII
  