anchor.diff:     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
  
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:    NumOutChans = SIZE(AllOutData,1)     ! The number of output channels
     NT          = SIZE(AllOutData,2)     ! The number of time steps to be written
     LenDesc     = LEN_TRIM( DescStr )    ! Length of the string that contains program name, version, date, and time
  
        ! Generate the unit number for the binary file
     UnIn = 0
     CALL GetNewUnit( UnIn, ErrStat2, ErrMsg2 )
        CALL CheckError( ErrStat2, ErrMsg2 )
        IF ( ErrStat >= AbortErrLev ) RETURN
  
     !...............................................................................................................................
     ! Open the binary file for output
  