anchor.diff:     end subroutine cleanup
   END SUBROUTINE ReadPrimaryFile
   !..................................................................................................................................
  -SUBROUTINE ReadReducedFile( InputFile, p, ErrStat, ErrMsg )
  +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:
  
positive.code:                                "(N)      ","(N)      ","(N)      ","(Nm)     ","(Nm)     ","(Nm)     ","(m)      "/)
     INTEGER(IntKi), PARAMETER :: ParamIndxAry(7) =  (/ &                            ! This lists the index into AllOuts(:) of the allowed parameters ValidParamAry(:)
                                ID_PtfFx, ID_PtfFy, ID_PtfFz, ID_PtfMx, ID_PtfMy, ID_PtfMz, ID_WaveElev /)
     
     p%NumOuts = NumOuts_in
     allocate(p%OutParam(0:p%NumOuts) , stat=ErrStat )
  
negative.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
     INTEGER(IntKi), PARAMETER :: FILEFORMAT_GUYANASCII = 0
     INTEGER(IntKi), PARAMETER :: FILEFORMAT_FLEXASCII  = 1
  
  
     ! Variables for output channels
  