[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[dennou-ruby:000514] array dimension proto type

��Ƿ��Ǥ���

���ˤ˹��椵������ĺ�����Ȥ��˽Ф��äǤ���

proto2c ������������åѡ��ϡ�Ĺ�����������('*'��ޤ�ǥ����
�������������Ƥ�������)�������Ѱ����ˤ���ȡ�Ŭ���ʥǥե���
�Ȥ�Ĺ���ǽ��������褦�ˤʤäƤޤ���Ĺ���򵡳�Ū��Ƚ�ǤǤ��ʤ�
�ʾ�Ȥꤢ�������礦���ʤ��ΤǤ��������ΤޤޤǤϼ��Ѥˤʤ�ޤ���
���顢�ɤ������ʳ��Ǽºݤ�Ĺ�����Ѥ��ƽ�������ɬ�פ�����ޤ���ʸ
�����Ĺ���ˤĤ��Ƥϥǥե���Ȥ�Ŭ���˲��ꤹ��Ȥ������Ȥ�ο����
�����������Ĺ���ˤĤ��Ƥ�̵���Ǥ��Τǡ����ν����ϥե��륿����
�������Ȥ�äƤ⤤���ΤǤ�����proto2c�˶��碌�뤿��Υץ��ȥ���
�ץե������ * ��ʤ����褦�˽�������ۤ��������ڤ������Ȼפ���
�����㤨��

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

�ȤʤäƤ����顢�����Ƥ��ξ��

       REAL o ARY(N)

�Ǥ��͡��⤷�⤳���񤤤Ƥ���� proto2c �Ϥ�����Ĺ�� N �������
�֤��Ƥ����褦�ˤʤäƤޤ����顢������ľ����Ȥ���ޤ���
�Ȥ�����ƤǤ����ʤ����¤� ARY(N+1) �Ǥʤ��Ȥʤ�ʤ��Ȥ��Ԥä�����
��������ͭ�����ޤ��Τǡ�����Ū�ˤϽ���ʤ��Ϥ��Ǥ�����dcl �Τ褦
����ľ�ʥ饤�֥�꡼�ǤϤ���Ϥ��ޤ�ʤ��Ǥ��礦��dcl��¿���Τ�
�Ƥ���ͤʤ顢�������Ȥ��ϥޥ˥奢��򸫤ʤ�����С����� o,
io, t �Υե饰��ä�����Ȥ�Ԥä��Ȥ�����������ʤ�ϫ�Ϥ�����
�����뤳�ȤȻפ��ޤ����ʤ����Ĥ��ǤǤ����麣�ΤȤ������ʤ���
������פ�����������ˤĤ��Ƥ��Ȥ��ơ������� * ��ʤ����Ƥ���
���ޤ��󤫡����ο��Ǥ��������ա����ξ�Υ�åѡ���or proto2c ��
����ʪ���ȡˤˤ����ơ����������Ĺ�������󼫿Ȥ���Ƚ�Ǥ��Ƥ虜��
���������Ϥ���ɬ�פ�ʤ����ʤ��Ȥʤ�ޤ��󤬡��������� * ������
���Ƥ����ȸ�Ǥ��줬���䤹���������Ȼפ�����Ǥ���

�ܥ��ƥ����罸�����ˡ����κ�Ȥ�Ԥ����Ȥ˴ؤ��Ƥ��ո���Ǥ���
���פ��ޤ���

�ǤϤǤϡ�

��Ƿ�� ��                     horinout@xxxxxx
�������������Ȳʳظ��楻�󥿡� (��Ķ�������ȸ��楻�󥿡�)
611-0011 �����Ըޥ���  phone:0774-38-3812  fax:0774-31-8463