SUBROUTINE  storezjo (CLFNAM, ZJO)
#if defined (DOC)
*
***s/r  storezjo
*
*Author  : Y. Yang ARQI Aug. 2005
*Revision:
**    Purpose:
*      store Jo for each obs. family for chi^2 testing
*
*Arguments
*
*       input:
*          CLFNAM: the family name
*          ZJO   : Jo for that family
#endif
      IMPLICIT NONE
*implicits
#include "comlun.cdk"
#include "comdim.cdk"
#include "comdimo.cdk"
#include "comnumbr.cdk"
#include "cvcord.cdk"
#include "partov.cdk"
#include "comtov.cdk"
#include "comchi2test.cdk"
*
      CHARACTER*(*) CLFNAM
      REAL*8 ZJO
      INTEGER J
C
C-----------------------------------------------------------------------
C
C
      do j = 1, jpfiles + 1
         if (CFAMOBS(J) .eq. CLFNAM) then
            STJO(J) = STJO(J) + ZJO 
             write(nulout, *) 'Jo for family ', CLFNAM, ' stored'
            RETURN
         endif
      enddo

      if( j .eq. jpfiles+2) then
         write(nulout, *) 'Jo for family ', CLFNAM, ' not stored!!!'
      endif

      RETURN
      END