* PACKAGE APCON  !" 共通 標準物理定数セット
*
*"  [HIS] 90/09/26(numaguti)
*"        96/09/12(takepiro)  NAMELIST 設定
*"        96/11/14(takepiro)  for shallow
*
*********************************************************************
      SUBROUTINE PCONST        !" 標準物理定数
*
#ifdef SYS_IBMS
      INCLUDE   (ZCCOM)                      !" 標準物理定数
#else
#include        "zccom.F"                    !" 標準物理定数
#endif
*
*"    COMMON /COMCON/
*     REAL       ER                          !" 地球半径
*     REAL       GRAV                        !" 重力加速度
*"    COMMON /COMCON/ end
*
*    [INTERNAL WORK]
      INTEGER    IFPAR, JFPAR
*
      LOGICAL    OFIRST
      DATA       OFIRST /.TRUE./
      SAVE       OFIRST
*
      NAMELIST    /NMPCON/ ER, GRAV
*
      IF ( OFIRST ) THEN
         OFIRST = .FALSE.
*
         ER   = 6370.E+3
         GRAV = 9.8
*
         CALL   REWNML ( IFPAR , JFPAR )
         READ   ( IFPAR, NMPCON, END=5190 )
 5190    WRITE  ( JFPAR, NMPCON )
      ENDIF
*
      RETURN
      END