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:    OPEN( Un, FILE=TRIM( OutFile ), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='WRITE' )
  
     IF ( ErrStat /= 0 ) THEN
        ErrStat = ErrID_Fatal
        ErrMsg  = ' Cannot open file "'//TRIM( OutFile )//'". Another program may have locked it for writing.'
     ELSE
        ErrStat = ErrID_None
        ErrMsg  = ''
  
negative.code: !=======================================================================
  
     TYPE(ProgDesc), PARAMETER    :: NWTC_Ver = &                               ! The name, version, and date of the NWTC Subroutine Library.
                                      ProgDesc( 'NWTC Subroutine Library', 'v2.03.00b-bjj', '29-Aug-2013')
  
     TYPE, PUBLIC                 :: FNlist_Type                                ! This type stores a linked list of file names.
        CHARACTER(1024)                        :: FileName                      ! A file name.
  