[dennou-ruby:000564] Re: dcl-5.2C

["TOYODA Eizi" <toyoda@xxxxxx>]

˭�ĤǤ���

�������������� fj.comp.lang.fortran �Ǥ�äƤ⤤�����⡣

> FORTRAN�Υ饤�֥��ϡ����ä��Ȥ��ˡ������ʤ�ץ�������ߤ�
> ���㤦�褦�ʽ����ä����̤ʤ�Ǥ���??

���̤��Ȼפ��ޤ���DCL �Ϥ����Ǥ��������Ȥ��󤵤�¸�Τ�
netCDF �饤�֥��Ϻ��Ǥ���ɬ�����顼�ֹ���֤��Ƥ��ޤ�����
�ɤ�����Τμ����Ǥϥǥե���Ȥǥ��顼���˥ץ�������Ȥ�Ƥ���
���פ�����ޤ���

��äȤ����ȡ�Fortran ��������ʸ���äƤ����Ǥ������顼�ˤʤ�С�
�ǥե���ȤǼ��������ץ����ǥ��顼�����Τ��뤱��ɡ�Ŭ�ڤ�
��å�����������ɸ��Ū��ˡ���ʤ��Τǡ����ä��礯�ǥե���Ȥ�
�����ޤ����ˤ�������ץ�����ޤ�¿���Ǥ���

    # Fortran 2000 �Υ�ӥ塼�������Ȥ���ʸ����äƤ����Ф褫�ä���
    # �ޤ�������ӥ塼�ε��񤬤��뤫�ʤ���

> ��äȤ����С��饤�֥���٥�ǡ�exit()����뤳�ȼ��Ρ�����
> �꤫��ߤ�����ǤʤϤʤ��Ǥ���������Ϲ�˾�ߤȤ�����ΤǤ���
> ����??

���ä����Ȥ��ꡢ¿ʬ�˹��٤��׵���Ȼפ��ޤ���

(��ŪŪ����)
��Ȥ�� Fortran �Ȥ�����ĤϤ����ʤ�ץ������Ȥ���ƺ���褦��
�ֻ�����˲������ʤ���Фʤ�ʤ���ưŪ����դ��񸻤��ʤ��Τǡ�
����Ǥ褫�ä��ΤǤ����ե�����ϼ�ưŪ�˥ե�å��夵��ޤ�����
�Ĥޤꡢ�¤� Fortran �Ǥ����Ǥ��ʤ��褦�ʥ��ץꤷ�����ʤ��ΤǤ���

    �ʼ¤� netCDF �ե�������Ĥ��ʤ��㤤����櫓�Ǥ�����
    ����������Τ� FORTRAN �饤�֥��Ȥ��Ƥ��㳰Ū��
    �ߤʤ��줬���Ǥ����͡��ޡ����Τ����Ѥ�äƤ��뤫��
    ����ޤ����

(����Ū����)
���ޤɤ��ʸ���������֤�������ʤȤ����㳰 throw/catch �ߤ�����
��Τ������Ƥ�����櫓�Ǥ��������줬�ʤ���Фɤ����뤫�Ȥ����ȡ�
���Ȥ��� C �Ǥϥ����ʥ�ϥ�ɥ���Ȥ� atexit �ߤ����ʵ����Ǥ�äƤ���
�櫓�Ǥ����ǡ�Fortran �ˤϤ���������ΤϤ���ޤ���
Fortran 2000 �ˤϴؿ��ݥ��󥿤����������Τ����ꤽ���Ǥ�����
�����顢ɬ�����顼�ֹ���֤��Ȥ����ä������ݤʤ��Ȥˤʤ�ޤ���

������󥨥顼�ֹ���������������������뤳�ȤϤǤ���ΤǤ�����
���顼���ä�����Ȥ��äƲ������ʤ���Фʤ�ʤ��񸻤�����櫓�Ǥ�
�ʤ��Τǡ��б������å����������ư������� STOP ����
�ʳ��ˤ���ɬ�פ����뤳�Ȥʤɡʤ��Ȥ��� DCL �Τ褦�ʤ�Τʤ�Сˤ���
�櫓�Ǥ�ʤ�����ɥץ������ߤ�Ƥ����Хץ�����ޤϳڡ�
�Ȥ������Ȥˤʤ�櫓�Ǥ���

(ʸ��Ū����)
�⤦�ҤȤġ�Fortran �񤭤ˤϥ��顼���н褹��Ȥ���ȯ�ۤ��ʤ��ͤ�
¿���Ȥ���ò���路������⤢��ޤ������ҤΤ褦�� I/O �ι��ಽ��
���˷����ޤ���...��

Open ʸ�� Write ʸ���������뤫�⤷��ʤ��Τ�ʿ���Ȥ��Ƥ���
�ץ�����ޤ����饤�֥�꤬�ץ�������ߤ�뤫�⤷��ʤ��Ȥ��ä�
���ۤ���ʤ�Ƥ��ȤϤʤ��Ǥ���͡�

���������Ф���ͤ��������˰㤦ʸ��������ΤǤ��礦��
# ����Ǥ��ʤ��Ȥ��äƤ��Ƥ�Ż��ˤʤ�󤷡�

(���ʤߤ� gtool4/F90 �μ���Ȥ�)
���ʤߤ� gtool4/F90 �Ǥϸ���Ū���������礹��٤����ǥե���Ȥ�
�������Ƥޤ���������������ǤϤ�äѤꤪŷƻ�ͤ˴�����Ǥ��ʤ��Τǡ�
logical, intent(out), optional:: err �ʤ�ư�����Ϳ�����Ȥ�����
���顼���˿����֤��褦�ˤ��Ƥ��ޤ���

�������ޤˡ����Ԥ�������ʤ����Ȥ����롼�פ�󤹤��Ȥ����äơ�
���������Ȥ������Ω���ޤ�����͡�

�Τ��㳰���饹�ߤ����ʹ�¤�κ�ä��֤��Ƥ����ΤǤ�������ʬ�Ǥ�
�Ȥ�ʤ���Τ�������Ƥ���;͵��ʤ���ΤǤ��ơ�
��ǡ��桼���Ȥ��ƤϷ�ɥǥե���ȤǼ����Ȥ��������ʤ��櫓�Ǥ�����
abort() �����ˡּ�ʬ�dz����� netCDF �϶����Ĥ���פȤ��������ɤ�
����Ƥ���Τǡ������֥ޥ����ȻפäƤ��ޤ���

�㳰�Τ������� Java �ߤ����ʤä��餽��Ϥ�������ݤ��⤷��ʤ��Ǥ�����
--
arte, non vi.
˭�ıѻ�: TOYODA Eizi
mailto:toyoda@xxxxxx