anchor.diff:     INTEGER(IntKi)                :: LenDesc                          ! Length of the description string, DescStr
      INTEGER(IntKi)                :: NT                               ! Number of time steps
      INTEGER(IntKi)                :: NumOutChans                      ! Number of output channels
  -   INTEGER(IntKi)                :: UnIn
  -   INTEGER(IntKi)                :: ErrStat2                         ! temporary error status
  +   INTEGER(IntKi)                :: UnIn                             ! Unit number for the binary file
   
      INTEGER(B2Ki), ALLOCATABLE    :: TmpOutArray(:)                   ! This array holds the normalized output channels before being written to the binary file
      INTEGER(B4Ki), ALLOCATABLE    :: TmpTimeArray(:)                  ! This array holds the normalized output time channel before being written to the binary file
  
positive.code: !=======================================================================
  
     TYPE(ProgDesc), PARAMETER    :: NWTC_Ver = &                               ! The name, version, and date of the NWTC Subroutine Library.
                                      ProgDesc( 'NWTC Subroutine Library', 'v2.03.00b-bjj', '20-Aug-2013')
  
     TYPE, PUBLIC                 :: FNlist_Type                                ! This type stores a linked list of file names.
        CHARACTER(1024)                        :: FileName                      ! A file name.
  
negative.code:    REAL(SiKi), ALLOCATABLE       :: ColScl(:)                        ! Slope for the column data
  
  
     INTEGER(IntKi)                :: ErrStat2                         ! temporary error status
     INTEGER(IntKi)                :: I                                ! Generic loop counter
     INTEGER(IntKi)                :: IC                               ! Loop counter for the output channel
     INTEGER(IntKi)                :: IT                               ! Loop counter for the timestep
  