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

[dennou-ruby:000448] Re: proto2c

��ë�Ǥ�. 

>> >ʸ����ξ���, C �������Ȥ���Ĺ���ξ����ղä����ΤǤϤʤ��ä��Ǥ�
>> >���� 
>> 
>> ����Ǥ��Խ�ʬ�Ǥ���f2c��Ĺ�����������ꥹ�Ȥ��������դ���
>> ���ޤ����������ͤϤ�����Ƿ��ꤹ��ɬ�פ�����ޤ����ޤ���
>> out/work�ѿ����ΰ�ϥ�åѡ���dz��ݤ��Ƥ����ͤФʤ�ʤ��Τǡ�
>> ������ˤ���ɬ�פ�Ĺ�����Τ�ʤ���Фʤ�ޤ���

FORTRAN ����Ǥ�

	CHARACTER*(*) CTL

�Ȥ��񤤤�, Ĺ��������Ǥ��뤫�Τ褦�˰����ޤ���, �����ϴ���Ū�˸ƽ�
����Ĺ���Ϸ�ޤäƤ��ޤ�. f2c �������Ȥ���Ĺ������Ȥ����Τϸƽи���Ĺ
�����ϤäƤ���ȻפäƤ�����Ǥ���, �㤦�ΤǤ��礦��?

���Ȥ���, �ʲ��Τ褦�� FORTRAN �ץ�������: 

	program main

	character cx*10

	call sub1(cx)
	write(*,*) cx

	end
*	---
	subroutine sub1(cx)

	character cx*(*)

	cx='abc'

	end

subroutine ����Ǥ� 3 ʸ�������������ʤ��Ƥ�, main �ץ������Ǥ� 10
ʸ��ʬ���ݤ��Ƥ���Τ�, f2c �������Ȥ����ղä����Ĺ������� 10 �ʤ��
�ȻפäƤ����ΤǤ���.