anchor.diff:     INTEGER(IntKi)               :: UnEc
      
      CHARACTER(1024)              :: FTitle                       ! "File Title": the 2nd line of the input file, which contains a description of its contents
  +   CHARACTER(1024)              :: PriPath                      ! Path name of the primary file
   
      INTEGER(IntKi)               :: i
   !------------------------------------------------------------------------------------
  
positive.code:    CALL OpenFInpFile(UnIn,DvrInputFile,ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
        IF (ErrStat >= AbortErrLev) RETURN
        
     !-------------------------- HEADER ---------------------------------------------
     CALL ReadCom(UnIn,DvrInputFile,'File Header: Module Version (line 1)',ErrStat2,ErrMsg2,UnEc)
  
negative.code:       !---------------------- 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
  