[dennou-ruby:000543] Re: array dimension proto type

[Takeshi Horinouchi <horinout@xxxxxx>]

��Ƿ��Ǥ���

>    graph1.f77proto ���Υե����� (grph[12], misc1, math[12]) �����
>    ����Υץ��ȥ����������Ρ�Ǥ��Ĺ��ɽ�� "*" �����Ū������ɽ
>    �����֤������뤳�ȤǤʤ����Ƥ��ޤ����Ǥ���

grph1 �˼��ݤ���Ϥ�ޤ�����

��­�Ǥ������ե��륿����Ư��������ˤϡ�����ɽ��������ѿ��ϰ���
�˸���Ƥ���ɬ�פ�����ޤ����Ĥޤꤿ�Ȥ���

      SUBROUTINE HOGE(
          INTEGER N
          REAL (*) o ARY
      )

��

      SUBROUTINE HOGE(
          INTEGER N
          REAL (N) o ARY
      )

�ˤʤ�Ȥ����櫓�Ǥ��������ʤäƤ�С�ARY ����������Τˡ�����
�Ȥ����ϤäƤ��� N ��Ĺ���Ȥ���Ф����Ȥ������Ȥ�ե��륿����Ƚ
�Ǥ��ޤ��Τǡ�

��������ENTRY ���Ȥ��Ƥ���Ȥ��˺��ä��ѥ����󤬤��뤳�Ȥ��狼
��ޤ���������Ͼ�� N �����������Τ򤢤�����������ꤷ������
�ǵ��������̤� entry ����Ƥ֤Ȥ��ˤϤ��줬�ۤ˰����˸���ʤ���
��Ǥ�������򤢤���ȡ�

/*****************************************************
 * grph1/szpack/szfint.f
 ****************************************************/
/* 
 *      SUBROUTINE SZFINT(NCNT)
 */
      SUBROUTINE SZFINT(
          INTEGER o NCNT
      )

/* 
 *      ENTRY SZQFNT(JPOSX,CLX,CLY)
 *      INTEGER   JPOSX(*)
 *      CHARACTER CLX(*)*1,CLY(*)*1
 */
      SUBROUTINE SZQFNT(
          INTEGER (*) o JPOSX
          CHARACTER*1 (*) o CLX
          CHARACTER*1 (*) o CLY
      )

/* 
 *      ENTRY SZQFNW(WX1,WX2)
 *      REAL      WX1(*),WX2(*)
 */
      SUBROUTINE SZQFNW(
          REAL (*) o WX1
          REAL (*) o WX2
      )

������ C �����ǥ����ȥ����Ȥ��Ƥ���Τϡ����ꥸ�ʥ륽�����ˤ�
�������ʸ�������ȥ����Ȥ��Ƥ��ʤ��Τ� protp2c �ѤΥץ��ȥ���
������Ǥ�����Ǥ�ʬ����Τ褦�� ENTRY �� SUBROUTINE �������Ƥ�
��������Ϥ�����Ǥ����������Ĺ�� NCNT �Ϻǽ��������Ǥ�������
���Ƥ��ʤ��Τǡ��Ĥ�� SZQFNT �� SZQFNW �ˤ����� 

          REAL (NCNT) o WX1

�ʤɤȤ��Ƥ⡢���ߤΥ�åѡ�������ˤ� NCNT ��ɤ����齦�äƤ���
�Ф�����Ƚ�ǤǤ��ޤ���

���ơ�������Ϥ��ޤ��ޥ�å����פ� szpack �ʤΤǡ�


     grph1.f77proto ���� sz �ѥå��Υ��֥롼����������


�Ȥ������Ȥ��н褷�ޤ�����åפ�ɬ�פʥ��֥롼�����Ʊ���ܤ˲��
�ʤ����Ȥ򵧤äƤޤ����Ĥ��ǤǤ����顢

shiotani>	grph1/csgi	��å�ɬ��
shiotani>	      scpack	��å�ɬ��(ͥ���̤��㤤)
shiotani>	      sgpack	��å�ɬ��
shiotani>	      slpack	��å�ɬ��
shiotani>	      stpack	��å�ɬ��(ͥ���̤��㤤)
shiotani>	      swpack	������
shiotani>	      szpack	������

�˽��ä� swpack ����ޤ���

�� ��ë������math,misc�ǤϤɤΥѥå���������ޤ��礦����

��Ƿ�� ��                     horinout@xxxxxx
�������������Ȳʳظ��楻�󥿡� (��Ķ�������ȸ��楻�󥿡�)