* PACKAGE APARM  !" ���� �ѥ�᡼���� ( 1 time level )
*
*"  [HIS] 92/10/13(takepiro)
*"        93/07/29(takepiro)
*
***********************************************************************
      SUBROUTINE SETPAR      !" �ѥ�᡼�����Υ��å�
     O         ( ITSTRT, ITEND , IORSTR,
     O           IDELT                   )
*
*   [PARAM] 
#ifdef SYS_IBMS
      INCLUDE   (ZCDIM)                      !" �ʻ��������ȿ�
      INCLUDE   (ZHDIM)                      !" ʸ����ʸ����
      INCLUDE   (ZCCOM)                      !" ɸ��ʪ�����
#else
#include        "zcdim.F"                    !" �ʻ��������ȿ�
#include        "zhdim.F"                    !" ʸ����ʸ����
#include        "zccom.F"                    !" ɸ��ʪ�����
#endif
*
*   [OUTPUT] 
      INTEGER    ITSTRT                      !" �׻����ϻ���(ɸ�����ñ��)
      INTEGER    ITEND                       !" �׻���λ����(ɸ�����ñ��)
      INTEGER    IORSTR                      !" ���ϴֳ֡��ƽ�ȯ(ɸ�����ñ��)
*
      INTEGER    IDELT                       !" ɸ����ֹ��(SEC)
*
*    [INTERNAL WORK]
      INTEGER    IFPAR, JFPAR
      REAL       VMISS
*
*   [INTERNAL PARM]       
      CHARACTER  RUN  *(NCC)                 !" �¸�̾
      CHARACTER  SIGN *(NCC)                 !" �¸���̾
*
      CHARACTER  TUNIT  *4                   !" ����ñ��
      INTEGER    START                       !" �׻����ϻ���
      INTEGER    END                         !" �׻���λ����
      INTEGER    INTRST                      !" ���ϴֳ֡��ƽ�ȯ
      INTEGER    DELT                        !" ɸ����ֹ��
*
      NAMELIST    /NMRUN/  RUN   , SIGN
      NAMELIST    /NMINTG/ TUNIT , DELT  
      NAMELIST    /NMTIME/ TUNIT , START , END   , INTRST
      NAMELIST    /NMFILE/ VMISS
      NAMELIST    /NMPCON/ ERI   , ERO   , ETA
*
*"         < 1. �¸�̾ >
*
      RUN  = 'TEST001'
      SIGN = 'GAMRAS'
*
      CALL   REWNML ( IFPAR , JFPAR )
      READ   ( IFPAR, NMRUN , END=1190 )
 1190 WRITE  ( JFPAR, NMRUN  )
*
      CALL GTCSET( 'DDSET' , RUN    )
      CALL GTCSET( 'MYSIGN', SIGN   )
*
*"         < 2. ������ʬ >
*
      TUNIT  = 'HOUR'
      DELT   = 1
*
      CALL   REWNML ( IFPAR , JFPAR )
      READ   ( IFPAR, NMINTG, END=2190 )
 2190 WRITE  ( JFPAR, NMINTG )
*
      CALL GUCT2I
     I         ( DELT , TUNIT , 'SEC' , 1     ,
     O           IDELT                           )
      CALL ASUTIM
     I         ( TUNIT )
      CALL ASDELT
     I         ( IDELT )
*
*"         < 3. �������� >
*
      START  = 0
      END    = 1
      INTRST = 0
*
      CALL   REWNML ( IFPAR , JFPAR )
      READ   ( IFPAR, NMTIME, END=3190 )
 3190 WRITE  ( JFPAR, NMTIME )
*
      CALL ACTIME
     I         ( START , TUNIT  , '#'    ,
     O           ITSTRT                   )
      CALL ACTIME
     I         ( END   , TUNIT  , '#'    ,
     O           ITEND                    )
      CALL ACTIME
     I         ( INTRST, TUNIT  , '#'    ,
     O           IORSTR                   )
*
*"         < 4. �ե����� >
*
      CALL GZDBGT( 'MISS', VMISS )
*
      CALL   REWNML ( IFPAR , JFPAR )
      READ   ( IFPAR, NMFILE, END=4190 )
 4190 CONTINUE
      WRITE  ( JFPAR, NMFILE )
*
      CALL GZDBST( 'MISS', VMISS )
*
*"         < 5. ʪ����� >
*
      CALL PCONST
*
      CALL   REWNML ( IFPAR , JFPAR )
      READ   ( IFPAR, NMPCON, END=5190 )
 5190 WRITE ( JFPAR, NMPCON )
*
      IF( ETA .NE. ERI/ERO ) THEN
         CALL MSGDMP('W','SETPAR','ERI ARE MODIFIED INTERNALLY')
         ERI = ETA * ERO
         WRITE  ( JFPAR, NMPCON )
      ENDIF
*
      RETURN
      END
