anchor.diff:     CHARACTER(1024)                      :: PriPath              ! Path name of the primary file
      LOGICAL                              :: Echo
      ! --- Initialization
  +   ErrStat = ErrID_None
  +   ErrMsg  = ""
      Echo = .FALSE.
      UnEc = -1                             ! Echo file not opened, yet
      CALL GetPath(InputFile, PriPath)     ! Input files will be relative to the path where the primary input file is located.
  
positive.code:    TYPE(ProgDesc), PARAMETER :: ExtPtfm_Ver = ProgDesc( 'ExtPtfm_MCKF', '', '' ) !< module date/version information
  
     CHARACTER(len=4), DIMENSION(3), PARAMETER :: StrIntMethod = (/'RK4 ','AB4 ','ABM4'/)
  
  
     ! Variables for output channels
  
negative.code:    end subroutine cleanup
  END SUBROUTINE ReadPrimaryFile
  !..................................................................................................................................
  SUBROUTINE ReadReducedFile( InputFile, p, FileFormat, ErrStat, ErrMsg )
  !..................................................................................................................................
     ! Passed variables
     CHARACTER(*),                INTENT(IN)    :: InputFile                           !< Name of the file containing the primary input data
     TYPE(ExtPtfm_ParameterType), INTENT(INOUT) :: p                                   !< All the parameter matrices stored in this input file
     INTEGER(IntKi),              INTENT(IN)    :: FileFormat                          !< File format for reduction inputs
     INTEGER(IntKi),              INTENT(OUT)   :: ErrStat                             !< Error status                              
     CHARACTER(*),                INTENT(OUT)   :: ErrMsg                              !< Error message
     ! Local variables:
  