anchor.diff:  
         ! Check to see if the file already exists.
   
  -   INQUIRE ( FILE=TRIM( OutFile ) , EXIST=Exists )
  -
  -!bjj: should we be checking something here?
  +   INQUIRE ( FILE=TRIM( OutFile ) , EXIST=Exists )   
   
   
         ! Open output file.  Make sure it worked.
  
positive.code: 
        LineNum = LineNum + 1
  
        CALL ExitThisRoutine ( ErrID_None, ' ' )
  
        RETURN
  
     !=======================================================================
     CONTAINS
     !=======================================================================
        SUBROUTINE ExitThisRoutine ( ErrID, Msg )
  
           ! This subroutine cleans up the parent routine before exiting.
  
  
              ! Argument declarations.
  
           INTEGER(IntKi), INTENT(IN)       :: ErrID                            ! The error identifier (ErrLev)
  
           CHARACTER(*),   INTENT(IN)       :: Msg                              ! The error message (ErrMsg)
  
  
              ! Local declarations.
  
           LOGICAL                          :: IsOpen                           ! A flag that indicates if the input unit is still open.
  
  
              ! Set error status/message
  
           ErrStat = ErrID
           ErrMsg  = TRIM( Msg )//NewLine//' >> The text being parsed was :'//NewLine//'    "'//TRIM( FileInfo%Lines(LineNum) )//'"'
  
  
           RETURN
  
        END SUBROUTINE ExitThisRoutine ! ( ErrID, Msg )
  
     END SUBROUTINE ParseLoVar ! ( FileInfo, LineNum, ExpVarName, LoVar, ErrStat, ErrMsg, UnEc )
  !=======================================================================
  
negative.code:       INTEGER(IntKi)                         :: NameIndx                      ! The index into the Words array that points to the variable name.
  
        CHARACTER(20)                          :: Words       (2)               ! The two "words" parsed from the line.
        CHARACTER(ErrMsgLen)                   :: ErrMsg2
        CHARACTER(*), PARAMETER                :: RoutineName = 'ParseLoVar'
  
        ErrStat = ErrID_None
        ErrMsg  = ""
  
  
        CALL GetWords ( FileInfo%Lines(LineNum), Words, 2 )                     ! Read the first two words in Line.
  
        CALL ChkParseData ( Words, ExpVarName, FileInfo%FileList(FileInfo%FileIndx(LineNum)) &
                          , FileInfo%FileLine(LineNum), NameIndx, ErrStatLcl, ErrMsg2 )
        IF ( ErrStatLcl /= 0 )  THEN
           CALL SetErrStat ( ErrStatLcl, ErrMsg2, ErrStat, ErrMsg, RoutineName )
           RETURN
        ENDIF
  
        READ (Words(3-NameIndx),*,IOSTAT=ErrStatLcl)  LoVar
  
        IF ( ErrStatLcl /= 0 )  THEN
           CALL SetErrStat ( ErrID_Fatal, 'A fatal error occurred when parsing data from "' &
                     //TRIM( FileInfo%FileList(FileInfo%FileIndx(LineNum)) )//'".'//NewLine//  &
                     ' >> The variable "'//TRIM( Words(NameIndx) )//'" was not assigned valid LOGICAL value on line #' &
                     //TRIM( Num2LStr( LineNum ) )//'.'//NewLine//' >> The text being parsed was :'//NewLine &
                     //'    "'//TRIM( FileInfo%Lines(LineNum) )//'"', ErrStat, ErrMsg, RoutineName )
           RETURN
        ENDIF
  
  