SUBROUTINE CLIENT(NI,THETAI,PRIORI,NC,GC,PRIORC)
C  This subroutine accomplishes reweighting of posterior simulator output
C  and/or construction of new functions of interest.  The code given here
C  leaves the prior and functions of interest unchanged, and therefore
C  accomplishes nothing.  This code must be replaced by code specific to
C  the client's interests.
C  Inputs:
C  NI      Number of functions of interest in the investigator's posterior
C          simulation file.
C  THETAI  Vector of dimension NI, containing the parameter values read from
C          the investigator's simulation file in the current record.
C  PRIORI  Logarithm of the investigator's prior evaluated at THETAI
C  Outputs:
C  NC      Number of functions of interest in the client's posterior simulation
C          file.
C  GC      Vector of dimension NC, containing the values of the client's
C          function of interest
C  PRIORC  Logarithm of the client's prior evaluated at THETAI
      IMPLICIT REAL*8 (A-H,O-Z)
      DIMENSION THETAI(NI),GC(NI)
      NC=NI
      PRIORC=PRIORI
      CALL DCOPY(NI,THETAI,1,GC,1)
      RETURN
      END