anchor.diff:     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
  
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:    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
  