Article View: cn.bbs.comp.program
Article #1517FORTRAN �� COMMON ��ô���ܴ�������ˣ�
From: ��ҹ����
Date: Mon, 06 Apr 1998 00:00
Date: Mon, 06 Apr 1998 00:00
34 lines
1342 bytes
1342 bytes
��eirene.f ������ôһ�Σ�
INCLUDE 'PARMMOD'
INCLUDE 'COMUSR'
...
PRINT*, NFILE
C NFILE ��COMUSR�е�һ�����α���
C ��������111
CALL STRANS
...
END
��trans.f ������ôһ�Σ�
C* SUBROUTINE STRANS
SUBROUTINE STRANS
INCLUDE 'PARMMOD'
INCLUDE 'COMUSR'
SAVE /COMUSR/
print*, NFILE
END
��������0����֪����ô���£�
������COMMON���ݱ���ʱ��ʲôҪע���������
--
[1;39;47m��ӭʹ��У��FTP��ѯ���棺[40m
[1;30;47mhttp://202.38.79.1/~yflei[40m
[1;31;47m ������ҹ������ [40m
[1;32;47m �������������� [40m
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]
Technical Details
Message-ID:
<980406.yM1cn$PBBS@bbs.ustc.edu.cn>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailShow Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB X-Google-Thread: fc86e,92b3a926fba985e4,start X-Google-Attributes: gidfc86e,public From: Simon_Lei@bbs.ustc.edu.cn (��ҹ����) Subject: FORTRAN �� COMMON ��ô���ܴ�������ˣ� Date: 1998/04/06 Message-ID: <980406.yM1cn$PBBS@bbs.ustc.edu.cn> X-Deja-AN: 341469485 Organization: �й�ƴ�BBSվ Newsgroups: cn.bbs.comp.program