%ɽ��   GTOOL3 ���Ѥμ�� (gutool)
%
%����   90/09/24 �¸�  ��
%       95/06/03 �ݹ�����
%

\chapter{�桼�ƥ���ƥ����⥸�塼�뷲}


������������Ԥʤ��⥸�塼�뷲�Ǥ���.

\section{�ǡ����Υ������λ������Υ⥸�塼��}

  �إå�������ǡ����Υ������򻲾Ȥ���
  �⥸�塼�뤬�Ѱդ���Ƥ���.

  \subsection{GUQSIZ  [S]  �ǡ����������μ��� }
    \entry{GUQSIZ}

    % GUQSIZ.FOR 9:  1990/09/25 (��) 10:11:41
    \begin{verbatim}
          SUBROUTINE GUQSIZ
         I         ( HHEAD ,
         O           IXSTR , IXEND , IXDIM ,
         O           IYSTR , IYEND , IYDIM ,
         O           IZSTR , IZEND , IZDIM  )
    *
          CHARACTER  HHEAD ( * )*(*)         ! �إå���
          INTEGER    IXSTR , IXEND , IXDIM   ! ��1�λϤ� ���� ��ˡ
          INTEGER    IYSTR , IYEND , IYDIM   ! ��2�λϤ� ���� ��ˡ
          INTEGER    IZSTR , IZEND , IZDIM   ! ��3�λϤ� ���� ��ˡ
    \end{verbatim}

    \begin{setumei}
    �إå�������, �ǡ����Υ��������ɤ߼��.
    ������IXSTR, IXEND����,
    ���줾��إå����ε��һ�ASTR1, AEND1�������ƤǤ���,
    IXDIM = IXEND-IXSTR+1�Ǥ���.

    �ʻ��ֹ�(�ʻҰ��֥ǡ����Ȥ��б��򼨤�)
    IXSTR����IXEND�ޤǤ�
    �ǡ��������äƤ��뤳�Ȥ򼨤�.
    \end{setumei}

  \subsection{GUCSIZ  [S]  �ǡ�������������� }
    \entry{GUCSIZ}

    % GUCSIZ.FOR 9:  1990/09/25 (��) 10:10:56
    \begin{verbatim}
          SUBROUTINE GUCSIZ
         I         ( HHEAD1, HHEAD2,
         O           IXSTR1, IXDIM1, IXSTR2, IXDIM2,
         O           IYSTR1, IYDIM1, IYSTR2, IYDIM2,
         O           IZSTR1, IZDIM1, IZSTR2, IZDIM2,
         O           IXSTRC, IXENDC, IXDIMC,
         O           IYSTRC, IYENDC, IYDIMC,
         O           IZSTRC, IZENDC, IZDIMC         )
    *
          CHARACTER  HHEAD1 ( * )*(*)        ! �إå�����
          CHARACTER  HHEAD2 ( * )*(*)        ! �إå�����
          INTEGER    IXSTR1, IXDIM1          ! �����λϤ���礭��
          INTEGER    IXSTR2, IXDIM2          !  �� �ʥإå�������
          INTEGER    IYSTR1, IYDIM1          ! �����λϤ���礭��
          INTEGER    IYSTR2, IYDIM2          !  �� �ʥإå�������
          INTEGER    IZSTR1, IZDIM1          ! �����λϤ���礭��
          INTEGER    IZSTR2, IZDIM2          !  �� �ʥإå�������
          INTEGER    IXSTRC, IXENDC, IXDIMC  ! �����ζ�����ʬ
          INTEGER    IYSTRC, IYENDC, IYDIMC  ! �����ζ�����ʬ
          INTEGER    IZSTRC, IZENDC, IZDIMC  ! �����ζ�����ʬ
    \end{verbatim}

    \begin{setumei}
    �إå�������, 2�ĤΥǡ����Υ��������ɤ߼��,
    ������ʬ����Ф���.
    ������IXSTR1, IXDIM1��,
    ���줾��إå���1�ε��һ�ASTR1��������, 
    �����((AEND1������)-(ASTR1������)+1)�Ǥ���.
    �ʻ��ֹ�(�ʻҰ��֥ǡ����Ȥ��б��򼨤�)
    IXSTR����IXDIM�Ĥ�
    �ǡ��������äƤ��뤳�Ȥ򼨤�.
    IXSTR2, IXDIM2��Ʊ�ͤ�
    �إå���2���б������ΤǤ���.

    IXSTRC, IXENDC, IXDIMC ��,
    �إå���1�ȥإå���2������������
    �ǡ����ΰ�νŤʤ���ϰϤ򼨤�.
    �ʻ��ֹ�IXSTRC����IXENDC�ޤ�
    IXDIMC�ĤΥǡ�����,
    �إå���1�ȥإå���2���б�����ǡ�����
    ���̤���¸�ߤ��뤳�Ȥ򼨤�.
    \end{setumei}

  \subsection{GUAXCK  [S]  �ʻ�̾�ΤΥ����å� }
    \entry{GUAXCK}

    % GUAXCK.FOR 9:  1990/09/25 (��) 10:10:51
    \begin{verbatim}
          SUBROUTINE GUAXCK
         I         ( HHEAD1, HHEAD2,
         O           ICHK            )
    *
          CHARACTER  HHEAD1 ( * )*(*)        ! �إå���1
          CHARACTER  HHEAD2 ( * )*(*)        ! �إå���1
          INTEGER    ICHK                    ! �ʻ�̾�����פ��Ƥ����0
    \end{verbatim}

    \begin{setumei}
    �إå���1�ȥإå���2��
    3�Ĥμ��γʻҼ���̾�Τ��б����Ƥ��뤫�ɤ���Ĵ�٤�.
    ���ƹ��פ��Ƥ�����Τ�ICHK�Ȥ���0���֤�.
    �����Ǥʤ�����,
    ��1����äƤ������1��,
    ��2����äƤ������2��,
    ��3����äƤ������4��,
    2�İʾ�μ�����äƤ���Ф����¤��֤�.
    \end{setumei}

\section{�ʻҾ���˴ؤ���⥸�塼��}

  �ʻҾ���򰷤��⥸�塼�뤬�Ѱդ���Ƥ���.

  \subsection{GUQAXV  [S]  �ʻҾ���μ��� }
    \entry{GUQAXV}

    % GUQAXV.FOR 9:  1990/09/25 (��) 10:11:25
    \begin{verbatim}
          SUBROUTINE GUQAXV
         I         ( HHEAD , ID    , HKIND ,
         O           HHEADA, AXIS  , IEOD  )
    *
          CHARACTER  HHEAD ( * )*(*)             ! �إå���
          INTEGER    ID                          ! �������ܤμ���
          CHARACTER  HKIND      *(*)             ! LOC/WGT
          CHARACTER  HHEADA( * )*(*)             ! �إå���
          REAL       AXIS  ( * )                 ! ����/�Ť�
          INTEGER    IEOD                        ! �ǡ����ʤ��ե饰
    \end{verbatim}

    \begin{setumei}
    �إå���HHEAD��
    ID������μ����б�����ʻҾ�����������.

    HKIND��'LOC'�ξ��ϳʻҰ��֤�,
    HKIND��'WGT'�ξ��ϳʻҽŤߤ��������.

    ���������ʻҰ���/�Ťߥǡ������ϰϤ�,
    �إå���HHEAD��ASTRx, AENDx
    (x��ID������)�˽���.

    �������뼴�γʻҼ���̾�Τ�ʸ��'@'�ǻϤޤäƤ���Ȥ���,
    ��������ʻҤǤ����Ƚ�Ǥ���.

    ��������ʻҾ���¸�ߤ��ʤ����
    ���뤤�ϳʻҼ���̾�ΤȤ��ƶ������ꤷ�����ˤ�,
    IEOD$\neq$0���֤�.
    ���ｪλ�ξ���IEOD=0���֤�.

    ������\�⥸{GUQAXS}��Ƥ�Ǥ���.
    \end{setumei}

  \subsection{GUQAXD  [S]  �ʻҤΥ������λ��� }
    \entry{GUQAXD}

    % GUQAXD.FOR 9:  1990/09/25 (��) 10:11:16
    \begin{verbatim}
          SUBROUTINE GUQAXD
         I         ( HAXIS ,
         O           IADIM , OCYCL  )
    *
          CHARACTER  HAXIS      *(*)             ! �ʻҼ���̾��
          INTEGER    IADIM                       ! �ʻҤΥ�����
          LOGICAL    OCYCL                       ! ��������å�����
    \end{verbatim}

    \begin{setumei}
    �ʻҼ���̾��HAXIS��
    �ʻҾ��󤫤�,
    ���ʻҿ��ȥ�������å��ʺ�ɸ���Ǥ��뤫�ɤ����򻲾Ȥ���.

    �ʻҼ���̾�Τ�ʸ��'@'�ǻϤޤäƤ���Ȥ���,
    ��������ʻҤǤ����Ƚ�Ǥ���.

    ���ʻҿ��ϳʻҾ���إå����ε��һ�AEND1�����ƤǤ���.
    ��������å��ʺ�ɸ���Ǥ��뤫�ɤ�����,
    ���һ�DSET�����Ƥ�1ʸ���ܤ�'C'�Ǥ��뤫�ɤ����ˤ�ä�
    Ƚ�Ǥ���.
    \end{setumei}

  \subsection{GUQAXS  [S]  �ʻҾ���ե�������ɤ߹��� }
    \entry{GUQAXS}

    % GUQAXS.FOR 9:  1990/09/25 (��) 10:11:20
    \begin{verbatim}
          SUBROUTINE GUQAXS
         I         ( HAXIS , HKIND ,
         O           HHEAD , AXIS  , IEOD  )
    *
          CHARACTER  HAXIS *(*)                  ! �ʻҼ���̾��
          CHARACTER  HKIND *(*)                  ! LOC/WGT
          CHARACTER  HHEAD ( * )*(*)             ! �إå���
          REAL       AXIS  ( * )                 ! ����/�Ť�
          INTEGER    IEOD                        ! �ǡ����ʤ��ե饰
    \end{verbatim}

    \begin{setumei}
    �ʻҼ���̾��HAXIS��
    �ʻҾ�����������.

    HKIND��'LOC'�ξ��ϳʻҰ��֤�,
    HKIND��'WGT'�ξ��ϳʻҽŤߤ��������.

    ���������ʻҰ���/�Ťߥǡ������ϰϤ�,
    ���ꤵ��Ƥ���ʻҾ������ΤǤ���.

    �ʻҼ���̾�Τ�ʸ��'@'�ǻϤޤäƤ���Ȥ���
    ��������ʻҤǤ����Ƚ�Ǥ�,
    \�⥸{GUQIAX}��Ƥ�Ǥ���.

    ��������ʻҾ���¸�ߤ��ʤ����
    ���뤤�ϳʻҼ���̾�ΤȤ��ƶ������ꤷ�����ˤ�,
    IEOD$\neq$0���֤�.
    ���ｪλ�ξ���IEOD=0���֤�.
    \end{setumei}

  \subsection{GUEAXN  [S]  ���Խ����Ҥ����  }
    \entry{GUEAXN}

    % GUEAXN.FOR 9:  1990/09/25 (��) 10:11:11
    \begin{verbatim}
          SUBROUTINE GUEAXN
         I         ( HAXIS , HED   , HET   ,
         I           ISTR  , IEND  ,
         O           HEDIT , HETTL           )
    *
          CHARACTER  HAXIS         *(*)          ! �ʻҼ���̾��
          CHARACTER  HED           *(*)          ! �Խ����һ���Ƭ
          CHARACTER  HET           *(*)          ! �Խ������ȥ�����
          INTEGER    ISTR                        ! �ʻ��ֹ�Ϥ�
          INTEGER    IEND                        ! �ʻ��ֹ潪��
          CHARACTER  HEDIT         *(*)          ! �Խ����һ�
          CHARACTER  HETTL         *(*)          ! �Խ������ȥ�
    \end{verbatim}

    \begin{setumei}
    ���뼴���Ф��������Խ�����ʸ������������.
    \�⥸{GPXRDC}���ǸƤФ��.

    ISTR$\neq$IEND�λ���
    �Խ�ά����Ȥ���HED�����Ƥ�ISTR��IEND��
    ���Ƥ�Ϣ�ܤ������(ISTR��IEND�δ֤�'-'������)��,
    �Խ������ȥ�Ȥ���
    `(HAXIS������)=(�ʻ��ֹ�ISTR�ΰ���)-(�ʻ��ֹ�IEND�ΰ���)'
    (�㤨��GLON128=30.-60.)�����������.

    ISTR=IEND�λ���
    �Խ�ά����Ȥ���HED�����Ƥ�ISTR��
    ���Ƥ�Ϣ�ܤ�����Τ�,
    �Խ������ȥ�Ȥ���
    `(HAXIS������)=(�ʻ��ֹ�ISTR�ΰ���)'
    (�㤨��GLON128=30.)�����������.

    ��������ʻҾ���¸�ߤ��ʤ����,
    ���뤤�ϳʻҼ���̾�ΤȤ��ƶ������ꤷ�����ˤ�,
    �Խ������ȥ��
    HAXIS�����Ƥ�HET�����Ƥ�Ϣ�ܤ��줿��Τˤʤ�.

    ������\�⥸{GUQAXV}���ƤФ�,
    �ʻҰ��־��󤬻��Ȥ����.
    \end{setumei}

\section{��������ʻҾ���˴ؤ���⥸�塼��}

  ��������ʻҾ���򰷤��⥸�塼�뤬�Ѱդ���Ƥ���.

  \subsection{GUSIAX  [ES]  ��������ʻҤ����� }
    \entry{GUSIAX}

    % GUQIAX.FOR 102:  1990/09/25 (��) 10:11:30
    \begin{verbatim}
          ENTRY      GUSIAX
         I         ( HHEAD , AXLOC , AXWGT ,
         I           INUM                   )
    *
          CHARACTER  HHEAD ( * )*(*)         ! �إå���
          REAL       AXLOC ( * )             ! ����
          REAL       AXWGT ( * )             ! �Ť�
          INTEGER    INUM                    ! ��������ʻ��ֹ�
    \end{verbatim}

    \begin{setumei}
    ��������ʻҾ������꡼��˵���������.
    �ʻҰ��־��󤪤�ӳʻҽŤ߾�����Ф�Ʊ������Ͽ����.
    �إå�������γʻҼ���̾��ITEM�Ȥ��Ƥ�,
    ʸ��'@'�ǻϤޤ��Τ���ꤹ�뤳��.
    ����ϳʻҾ���Υإå�����,
    �ʻҰ��־���ȳʻҽŤ߾���Ȥǵ��һ�DSET���㤦�Ϥ��Ǥ��뤬,
    ���Ϥ���HHEAD�Ϥɤ�����б������ΤǤ�褤.

    ��������ʻҤ�ʣ����Ͽ�Ǥ���.
    ɸ��Ǥ�10�ĤޤǤǤ���.
    INUM��, �����Ĥ�γʻҾ���Ȥ�����Ͽ���뤫����ꤹ��.
    \end{setumei}

  \subsection{GUAIAX  [ES]  ��������ʻҰ��֤��ղ����� }
    \entry{GUAIAX}

    % GUQIAX.FOR 128:  1990/09/25 (��) 10:11:30
    \begin{verbatim}
          ENTRY      GUAIAX
         I         ( HAXIS , AXLOC1, AXWGT1,
         I           IZ                      )
    *
          CHARACTER  HAXIS      *(*)         ! �ʻҼ���̾��
          REAL       AXLOC1                  ! ����
          REAL       AXWGT1                  ! �Ť�
          INTEGER    IZ                      ! �ʻ��ֹ�
    \end{verbatim}

    \begin{setumei}
    �ʻҼ���̾��HAXIS��
    ��������ʻҾ����1�ĤγʻҤΰ��֤ȽŤߤ��ѹ�����.
    �ʻҰ��־��󤪤�ӳʻҽŤ߾�����Ф�Ʊ���˻��ꤹ��.
    HAXIS�Ȥ��Ƥ�,
    ʸ��'@'�ǻϤޤ��Τ���ꤹ�뤳��.
    ���������ä�, Ʊ���ʻҼ���̾�Τ�
    \�⥸{GUSIAX}���ƤФ�Ƥ���ɬ�פ�����.

    IZ�Ȥ���,
    �������ꤵ��Ƥ��륵���������礭���ͤ���ꤷ�����ˤ�,
    ��������IZ���ѹ������.
    �ޤ�, IZ=0����ꤷ�����ˤ�,
    IZ��
    (�������ꤵ��Ƥ��륵����+1)�����ꤵ�줿��ΤȤ��ư���.
    \end{setumei}

  \subsection{GUAIAH  [ES]  ��������ʻҰ��֤��ղ�����(2) }
    \entry{GUAIAH}

    \begin{verbatim}
          SUBROUTINE GUAIAH
         I         ( HHEAD , ID    ,
         I           AXLOC1, AXWGT1,
         I           IZ                      )
    *
          CHARACTER  HHEAD ( * )*(*)         ! �إå���
          INTEGER    ID                      ! �������ܤμ���
          REAL       AXLOC1                  ! ����
          REAL       AXWGT1                  ! �Ť�
          INTEGER    IZ                      ! �ʻ��ֹ�
    \end{verbatim}

    \begin{setumei}
    �إå���HHEAD��
    ID������μ����б�����
    ��������ʻҾ����1�ĤγʻҤΰ��֤ȽŤߤ��ѹ�����.
    �ʻҰ��־��󤪤�ӳʻҽŤ߾�����Ф�Ʊ���˻��ꤹ��.
    ���������ä�, Ʊ���ʻҼ���̾�Τ�
    \�⥸{GUSIAX}���ƤФ�Ƥ���ɬ�פ�����.

    ���Τۤ���\�⥸{GUAIAX}��Ʊ��.
    \end{setumei}


  \subsection{GUQIAX  [S]  ��������ʻҤλ��� }
    \entry{GUQIAX}

    % GUQIAX.FOR 9:  1990/09/25 (��) 10:11:30
    \begin{verbatim}
          SUBROUTINE GUQIAX
         I         ( HAXIS , HKIND ,
         O           HHEAD , AXIS  , IEOD   )
    *
          CHARACTER  HAXIS      *(*)         ! �ʻҼ���̾��
          CHARACTER  HKIND *(*)              ! LOC/WGT
          CHARACTER  HHEAD ( * )*(*)         ! �إå���
          REAL       AXIS  ( * )             ! ����/�Ť�
          INTEGER    IEOD                    ! �ǡ����ʤ��ե饰
    \end{verbatim}

    \begin{setumei}
    �ʻҼ���̾��HAXIS��
    ��������ʻҾ�����������.

    HKIND��'LOC'�ξ��ϳʻҰ��֤�,
    HKIND��'WGT'�ξ��ϳʻҽŤߤ��������.

    ���������ʻҰ���/�Ťߥǡ������ϰϤ�,
    ���ꤵ��Ƥ���ʻҾ������ΤǤ���.

    ��������ʻҾ���¸�ߤ��ʤ����
    ���뤤�ϳʻҼ���̾�ΤȤ��ƶ������ꤷ�����ˤ�,
    IEOD$\neq$0���֤�.
    ���ｪλ�ξ���IEOD=0���֤�.

    ���Υ⥸�塼���,
    �ʻҼ���̾��HAXIS��ʸ��'@'�ǻϤޤäƤ���Ȥ���
    \�⥸{GUQAXS}����ƤФ��.
    �桼���������Υ⥸�塼���ľ�ܸƤ�ɬ�פϤʤ�.
    \end{setumei}

  \subsection{GUQIAH  [ES]  ��������ʻҥإå����λ��� }
    \entry{GUQIAH}

    % GUQIAX.FOR 81:  1990/09/25 (��) 10:11:30
    \begin{verbatim}
          ENTRY      GUQIAH
         I         ( HAXIS ,
         O           HHEAD , IEOD   )
    *
          CHARACTER  HAXIS      *(*)         ! �ʻҼ���̾��
          CHARACTER  HHEAD ( * )*(*)         ! �إå���
          INTEGER    IEOD                    ! �ǡ����ʤ��ե饰
    \end{verbatim}

    \begin{setumei}
    �ʻҼ���̾��HAXIS��
    ��������ʻҾ���Υإå�����ʬ���������.

    ��������ʻҾ���¸�ߤ��ʤ����
    ���뤤�ϳʻҼ���̾�ΤȤ��ƶ������ꤷ�����ˤ�,
    IEOD$\neq$0���֤�.
    ���ｪλ�ξ���IEOD=0���֤�.
    \end{setumei}


\section{��������Τ���Υ桼�ƥ���ƥ����⥸�塼��}

  \subsection{GUSZCK  [S]  ������礭���Υ����å� }
    \entry{GUSZCK}

    % GUSZCK.FOR 9:  1990/09/25 (��) 10:11:53
    \begin{verbatim}
          SUBROUTINE GUSZCK
         I         ( HHEAD , ISIZEO  )
    *
          CHARACTER  HHEAD ( * )*(*)             ! �إå���
          INTEGER    ISIZEO                      ! ���Ϥ��礭��
    \end{verbatim}

    \begin{setumei}
    ������礭��������å�����.
    HHEAD����ε��һ�SIZE�����ꤵ��Ƥ��륵������
    ISIZEO���⾮��������
    ���顼��ɽ��������ߤ���.
    ������,
    \�⥸��{GTPGET}{GTPSET}�δ�������
    \�ѥ�{SUBCHK}{.FALSE.}��
    .TRUE.�ξ��ˤΤ�ͭ���Ǥ���.
    \ref{�����������å���ǽ}�򻲾ȤΤ���.
    \end{setumei}

  \subsection{GUSZCZ  [S]  �礭���Υ����å� }
    \entry{GUSZCZ}

    % GUSZCK.FOR 28:  1990/09/25 (��) 10:11:53
    \begin{verbatim}
          SUBROUTINE GUSZCZ
         I         ( ISIZEA, ISIZEO )
    *
          INTEGER    ISIZEA                      ! �ΰ���礭��
          INTEGER    ISIZEO                      ! ���Ϥ��礭��
    \end{verbatim}

    \begin{setumei}
    ������礭��������å�����.
    ISIZEA��ISIZEO���⾮��������
    ���顼��ɽ��������ߤ���.
    \end{setumei}

  \subsection{GUSMIS  [S]  ��»�ͤ���� }
    \entry{GUSMIS}

    % GUSMIS.FOR 9:  1990/09/25 (��) 10:11:49
    \begin{verbatim}
          SUBROUTINE GUSMIS
         I         ( HHEAD  )
    *
          CHARACTER  HHEAD  ( * )*(*)        ! �إå���
    \end{verbatim}

    \begin{setumei}
    HHEAD�ε��һ�MISV�˽񤫤�Ƥ����»�ͤ��ͤ�
    GLPGET/GLPSET�δ�������{\rm SUBFUNC}��
    �ѥ�᡼��RMISS�����ꤷ,
    ���碌��LMISS��.TRUE.�����ꤷ��
    ��»�ͽ�����ͭ���ˤ���.
    \end{setumei}

\section{����˴ؤ���桼�ƥ���ƥ����⥸�塼��}

  \subsection{GUQTIM  [S]  ����λ��� }
    \entry{GUQTIM}

    % GUQTIM.FOR 9:  1990/09/25 (��) 10:11:45
    \begin{verbatim}
          SUBROUTINE GUQTIM
         I         ( HHEAD ,
         O           RT    , HUTIM )
    *
          CHARACTER  HHEAD ( * )*(*)         ! �إå���
          REAL       RT                      ! ����
          CHARACTER  HUTIM      *(*)         ! ����ñ��
    \end{verbatim}

    \begin{setumei}
    HHEAD�ε��һ�TIME�˽񤫤�Ƥ�������
    \�⥸��{GTCGET}{GTCSET}�δ�������
    \�ѥ�{UTIM}{'DAY'}��ñ�̤μ¿���ľ����RT�˥��åȤ���.
    HUTIM�ˤϥѥ�᡼��UTIM�����Ƥ�����.
    \end{setumei}

  \subsection{GUCTIM  [S]  ����ñ�̤��Ѵ� HUNIT �� HUNITY }
    \entry{GUCTIM}

    % GUCTIM.FOR 10:  1990/09/25 (��) 10:11:01
    \begin{verbatim}
          SUBROUTINE GUCTIM
         I         ( KT    , HUNIT  , HUNITY, IDELT  ,
         O           RT                                )
    *
          INTEGER    KT                ! ���ϻ��ñ�� HUNIT
          CHARACTER  HUNIT *(*)        ! ���� KT ��ñ��
          CHARACTER  HUNITY*(*)        ! �Ѵ����٤�ñ��
          INTEGER    IDELT             ! �����ƥåפ��ÿ�
          REAL       RT                ! ���ϻ��ñ�� HUNITY
    \end{verbatim}

    \begin{setumei}
    ñ��HUNIT��������ɽ���줿����KT��
    HUNITY�ǻ��ꤹ��ñ�̤μ¿���ľ����
    RT�˥��åȤ���.

    HUNITY�����Ƥ�'STEP'�ξ��ˤ�,
    KT���ä��Ѵ�������Τ�
    IDELT�ǳ�ä���Τ�
    RT�Ȥ���.
    \end{setumei}

  \subsection{GUQNOW  [S]  ���ߤ����ա����� yyyymmddhhmmss }
    \entry{GUQNOW}

    % GUQNOW.FOR 9:  1990/09/25 (��) 10:11:37
    \begin{verbatim}
          SUBROUTINE GUQNOW
         O         ( HTIME )
    *
          CHARACTER  HTIME  *(*)             ! ����(yyyymmddhhmmss)
    \end{verbatim}

    \begin{setumei}
    ���ߤ����ա������(yyyymmddhhmmss)�η��ǻ��Ȥ���.
    \end{setumei}


  \subsection{GUSNOW  [S]  ���ߤλ���������������� }
    \entry{GUSNOW}

    % GUSNOW.FOR 9:  1990/09/23 (��) 19:20:17
    \begin{verbatim}
          SUBROUTINE GUSNOW
         M         ( HHEAD ,
         I           HP     )
    *
          CHARACTER  HHEAD  ( * )*(*)        ! �إå���
          CHARACTER  HP          *(*)        ! ���һ�̾
    \end{verbatim}

    \begin{setumei}
    ���ߤ�����,����� HHEAD�ε��һ�HP�����ꤹ��.
    \end{setumei}

  \subsection{GUTPAC  [S]  �����ѥå� }
    \entry{GUTPAC}

    % GUTPAC.FOR 9:  1990/09/25 (��) 10:11:58
    \begin{verbatim}
          SUBROUTINE GUTPAC
         I         ( IYEAR , IMONTH, IDAY  ,
         I           IHOUR , IMIN  , ISEC  ,
         O           HDATE                  )
    *
          INTEGER    IYEAR                        ! ǯ
          INTEGER    IMONTH                       ! ��
          INTEGER    IDAY                         ! ��
          INTEGER    IHOUR                        ! ��
          INTEGER    IMIN                         ! ʬ
          INTEGER    ISEC                         ! ��
          CHARACTER  HDATE *(*)                   ! ����(yyyymmddhhmmss)
    \end{verbatim}

    \begin{setumei}
    IYEAR��ISEC�ǻ��ꤵ������ա������
    (yyyymmddhhmmss)�η��ˤ���
    HDATE�������.
    \end{setumei}


  \subsection{GUTUPC  [ES]  ����򥢥�ѥå� }
    \entry{GUTUPC}

    % GUTPAC.FOR 39:  1990/09/25 (��) 10:11:58
    \begin{verbatim}
          ENTRY      GUTUPC
         O         ( IYEAR , IMONTH, IDAY  ,
         O           IHOUR , IMIN  , ISEC  ,
         I           HDATE                  )
    *
          INTEGER    IYEAR                        ! ǯ
          INTEGER    IMONTH                       ! ��
          INTEGER    IDAY                         ! ��
          INTEGER    IHOUR                        ! ��
          INTEGER    IMIN                         ! ʬ
          INTEGER    ISEC                         ! ��
          CHARACTER  HDATE *(*)                   ! ����(yyyymmddhhmmss)
    \end{verbatim}

    \begin{setumei}
    (yyyymmddhhmmss)�η���ɽ���줿���ա�����
    HDATE��
    IYEAR��ISEC�ˤФ餷�Ƽ��Ф�.
    \end{setumei}

\section{����¾�Υ桼�ƥ���ƥ����⥸�塼��}

  \subsection{GUCTXT  [S]  ���������ץ������������� }
    \entry{GUCTXT}

    % GUCTXT.FOR 9:  1990/09/25 (��) 10:11:06
    \begin{verbatim}
          SUBROUTINE GUCTXT
         I         ( HEXT  ,
         O           HNORM  )
    *
          CHARACTER HEXT  *(*)           ! ��������������ʸ����
          CHARACTER HNORM *(*)           ! ���������줿ʸ����
    \end{verbatim}

    \begin{setumei}
    HEXT�����'\verb!\!'+3��ο�����
    ʸ��CSGI(n)(n��3��ο�����10�ʿ��Ȥ���ɽ����)
    ���֤���������Τ�HNORM�������.
    \verb!\! �ʳ���ʸ���Ϥ��Τޤޥ��ԡ������.
    \verb!\! ���Ȥ�ɽ���Ȥ��� '\verb!\! \verb!\!' �Τ褦��
    2��³��������Ƥ���.

    �㤨��, '\verb!\!170=\verb!\! \verb!\!100. \verb!\! 016' ��,
    CSGI(170)//'=\verb!\! 100. '//CSGI(16)�Ȥʤ�.

    \end{setumei}

\section{��¸�ѥå������ؤ��ɲ�}

  \GTOOL3 �ε�ǽ�¸��Τ����,
  MATH1��٥���������뼡�Τ褦�ʥ⥸�塼�뤬
  �ɲä���Ƥ���.

  \subsection{GUVINT/GUVDIN/GUVOUT [S] �٥��ȥ�ǡ����νŤߤĤ�ʿ��}
    \entry{GUVINT}

    \begin{verbatim}
          SUBROUTINE GUVINT(WZ,WW,IX)
          ENTRY      GUVDIN(WZ,WW,IX,X,WT)
          ENTRY      GUVOUT(WZ,WW,IX)
    *
          REAL      WZ(IX)  ! ����������
          REAL      X (IX)  ! ���ϥǡ���
          REAL      WW(IX)  ! �Ťߤ�­������Τ�����Ƥ�������
          REAL      WT      ! �Ť�
    \end{verbatim}

    \begin{setumei}
    1����Υ٥��ȥ�ǡ�����, 
    �Ťߤ���ꤷ��Ϣ³Ū���ɤ߹���ǲٽ�ʿ�Ѥ����. 
    GUVINT�Ͻ������Ԥʤ�.
    GUVDIN�ϥǡ������ɤ߹���.
    GUVOUT�Ϸ�̤����.
    \end{setumei}

% Local Variables: 
% mode: japanese-latex
% TeX-master: "gtool"
% End: 
