* PACKAGE APCON  !" ���� ɸ��ʪ��������å�
*
*"  [HIS] 92/09/10(takepiro)
*
*********************************************************************
      SUBROUTINE PCONST        !" ɸ��ʪ�����
*
#ifdef SYS_IBMS
      INCLUDE   (ZCCOM)                      !" ɸ��ʪ�����
#else
#include        "zccom.F"                    !" ɸ��ʪ�����
#endif
*
*"    COMMON /COMCON/
*     REAL       ERI                          !" ���
*     REAL       ERO                          !" ����
*     REAL       ETA                          !" ���/����
*"    COMMON /COMCON/ end
*
      ERI  = 0.4
      ERO  = 1.0
      ETA  = ERI/ERO
*
      RETURN
      END
