anchor.diff:  
   
      RETURN
  -   END FUNCTION CurTime ! ()
  +   END FUNCTION CurTime
   !=======================================================================
      SUBROUTINE DispCopyrightLicense( ProgInfo, AdditionalComment )
   
  
positive.code: 
        CHARACTER(*),   INTENT(OUT)            :: ErrMsg                        ! The error message, if ErrStat /= 0.
  
        TYPE (InpErrsType)                     :: InputErrors                   ! The derived type for holding the input errors.
  
  
           ! Local declarations.
  
        INTEGER(IntKi)                         :: ErrStatLcl                    ! Error status local to this routine.
  
  
  
           ! Set up the error-messages structure for invalid entries.
  
        InputErrors%MaxErrs = MaxErrs
  
negative.code:    OPEN( Un, FILE=TRIM( OutFile ), STATUS='UNKNOWN', FORM='UNFORMATTED' , ACCESS='STREAM', IOSTAT=ErrStat, ACTION='WRITE' )
  
     IF ( ErrStat /= 0 ) THEN
        ErrStat = ErrID_Fatal
        ErrMsg  = 'OpenBOutFile:Cannot open file "'//TRIM( OutFile )//'". Another program may have locked it for writing.' &
                  //' (IOSTAT is '//TRIM(Num2LStr(ErrStat))//')'
     ELSE
        ErrStat = ErrID_None
        ErrMsg  = ''
  