anchor.diff:           IF ( ALLOCATED( ColOff             ) ) DEALLOCATE( ColOff             )
            IF ( ALLOCATED( ColScl             ) ) DEALLOCATE( ColScl             )
            IF ( ALLOCATED( DescStrASCII       ) ) DEALLOCATE( DescStrASCII       )
  +         IF ( ALLOCATED( TmpStrASCII        ) ) DEALLOCATE( TmpStrASCII        )
            IF ( ALLOCATED( TmpInArray         ) ) DEALLOCATE( TmpInArray         )
            IF ( ALLOCATED( TmpR8InArray       ) ) DEALLOCATE( TmpR8InArray         )
            IF ( ALLOCATED( TmpTimeArray       ) ) DEALLOCATE( TmpTimeArray       )
  
positive.code:          RETURN
        ENDIF
        FASTdata%ChanNames(IChan) = ''
        DO IChr=1,MaxChrLen
           FASTdata%ChanNames(IChan)(IChr:IChr) = CHAR( TmpStrASCII(IChr) )
        END DO
     END DO
  
negative.code: 
        ! Argument declarations.
  
     INTEGER(IntKi),                     INTENT(  OUT)  :: ErrStat     !< An optional error level to be returned to the calling routine.
     INTEGER(IntKi),                     INTENT(INOUT)  :: UnIn        !< The IO unit for the FAST binary file.
  
     LOGICAL,                            INTENT(IN)     :: Init        !< A flag to tell the routine to read only the file header for initialization purposes.
  
     CHARACTER(*),                       INTENT(  OUT)  :: ErrMsg      !< An optional error message to be returned to the calling routine.
  
     TYPE (FASTdataType),                INTENT(INOUT)  :: FASTdata    !< The derived type for holding FAST output data.
  
  
        ! Local declarations.
  