anchor.diff:        !---------------------- BEAM SECTIONAL PARAMETER ----------------------------------------
      CALL ReadVar ( UnIn, DvrInputFile, InitInputData%InputFile, 'InputFile', 'Name of the primary input file', ErrStat2,ErrMsg2, UnEc )
         CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
  +      IF ( PathIsRelative( InitInputData%InputFile ) ) InitInputData%InputFile = TRIM(PriPath)//TRIM(InitInputData%InputFile)
  +      
      if (ErrStat >= AbortErrLev) then
          call cleanup()
          return
  
positive.code:    INTEGER(IntKi)               :: UnEc
     
     CHARACTER(1024)              :: FTitle                       ! "File Title": the 2nd line of the input file, which contains a description of its contents
  
     INTEGER(IntKi)               :: i
  !------------------------------------------------------------------------------------
  
negative.code:    CALL OpenFInpFile(UnIn,DvrInputFile,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
        IF (ErrStat >= AbortErrLev) RETURN
        
        
     CALL GetPath( DvrInputFile, PriPath )     ! Input files will be relative to the path where the primary input file is located.
        
     !-------------------------- HEADER ---------------------------------------------
     CALL ReadCom(UnIn,DvrInputFile,'File Header: Module Version (line 1)',ErrStat2,ErrMsg2,UnEc)
  