[dennou-ruby:000457] Re: proto2c

[TOYODA Eizi <toyoda@xxxxxx>]

˭�ĤǤ���

| ��ë�Ǥ�. 
| 
| >> >...
| >> >subroutine ����Ǥ� 3 ʸ�������������ʤ��Ƥ�, main �ץ�������
�� 10
| >> >ʸ��ʬ���ݤ��Ƥ���Τ�, f2c �������Ȥ����ղä����Ĺ������� 10
B$J$s$@xxxxxx
| >> >�ȻפäƤ����ΤǤ���. 
| >> 
| >> �����Ǥ�10����뺬���ߤ����ΤǤ���
| 
| ������, �ޤ��褯�����Ƥ��ޤ���. 
| 10 ����뺬��� main �ץ������Ǥ���������Ƥ��뤫��ʤ�Ǥ���. 

�Ĥޤꡢ���֥롼����¦�Dz�ʸ������Ԥ��Ƥ���Τ����ᥤ�󤫤�Ϥ狼��ʤ�
�Τǡ��ᥤ��Ǥ� 10 ʸ����Ϳ���Ƥ����Τ��ɤ������狼��ʤ���
���ۤ��Ƥ���ä����ΤǤ���

| >> main������������ʬ����åѡ��ʤΤ�f2c������ΤǤʤ�C�ǽ�ɬ
| >> �פ����ꡢ���κݤ�f2c������sub_(char*,long)�� sub1_(cx, len) 
| >> �ȸƤ֤���ˡ�Ĺ��len����ʤ��ƤϤʤ�ޤ��󡣤ǡ�len����
| >> ����ˤϡ�sub1¦�����ꤷ�Ƥ���cx�κ���Ĺ���Τ�ɬ�פ������
| >> ���Ǥ���

����Ĺ�Ȥ����Ƥ����뤳�Ȥ��鵬�ʤθ��򤬤���ΤǤϤʤ����ȷ�ǰ���ޤ���
����Ĺ�Ϥ���ޤ���¸�ߤ���Τ� cx �κǾ�Ĺ�Ǥ���

      subroutine sub(string)
        character(len = 14):: string
      end subroutine

�ʤ�� 14 ʸ���ʾ��Ϳ���ʤ���Фʤ�ʤ���

      subroutine sub(string)
        character(len = *):: string
      end subroutine

�ʤ��Ǥ�դ�ʸ�����ͤ�Ϳ���Ƥ���������Ǥ���

DCL �ǤϤۤȤ�ɸ�ԤʤΤ�����Ϥʤ����Ȥ����Τ���ë������
�����Ȥ���Ȥ����Ǥ���͡�
-- 
arte, non vi.
˭�ıѻ� TOYODA Eizi
toyoda@xxxxxx