fortran语言选择题
1．下列叙述中，正确的是(D )
A．语句标号的大小影响程度执行的顺序
B．程序完全按语句出现的先后顺序执行
C．不同程序单位不能有相同的语句标号
D．同一程序单位不能有相同的语句标号
2．下列标识符中，不能作为合法的FORTRAN90标识符的是( C)
A．A3_B3 B．VOID C．_123 D．IF
3．下列哪一个为正确的常量( D )
A．123,000 B. 3.5E+2.5 C. TRUE D. “HELLO”
4．若A=2，B=2，I=3，则表达式A**B**I的值为( C )
A. 64
B.12
C.256 D16.
5．圆的直径存放在整型变量D之中，下列计算圆面积的表达式中正确的是( D )
A. 3.14159*（D/2）*（D/2）
B. 3.14159*(D*D/4)
C. 3.14159*(D/2)**2
D. 3.14159*D*D/4
6．下列运算符中，运算优先级最高的是(B )
A. 关系运算
B. 算术运算
C. 逻辑非运算
D. 逻辑与运算
7．下列FORTRAN的表达式中值为0.5的是( C)
A．MOD(4.8，0.5) B．100/20/10 C．50.0/4/25 D．MOD（15，10）/10
8．下列是完整的FORTRAN程序，编译时出错的语句是( C )
A．PROGRAM PRINT B．PARAMETER (PI=3.1415926)
C．PI=PI+1 D．WRITE(*，*)SIN(PI+0.5)
END
9．变量的类型定义中，优先级由高到低的顺序为( A )
A．类型说明语句、IMPLICIT 说明语句、隐含约定
B．隐含约定、IMPLICIT 说明语句、类型说明语句
C．IMPLICIT 说明语句、类型说明语句、隐含约定
D．隐含约定、类型说明语句、IMPLICIT 说明语句
10．“两整数M与N不能同时小于零”的FORTRAN表达式( D )
A．M＞＝0．AND．Ｎ＞＝０
B．(M．GE．0．AND．N．LT．0)．OR．(M．LT．0．AND．N．GE．0）C．(M．LE．0．AND．N．LE．0)．OR．(M．LE．0．AND．N．GE．0）D．M．GE．0．OR．N．GE．0
11．下列逻辑表达式描述的是(不会) X．GT．3．AND．X．LT．10．AND．MOD(X，3)．NE．0．OR．X．EQ．2．OR．X．EQ．3 A．10以内的素数B．10以内的合数
C．10以内的奇数D．10以内的偶数
12．下面正确的逻辑IF语句是(C )
A．IF(X．EQ．Y)THEN GOTO 10 B．IF M．LT．N PRINT*，M C．IF(ABS(X)．LT．1E-6) A=1 D．IF(A．AND．(A．LE．0．0) A=3
13．下列语句中正确的是( C )
A．DATA A，B，C/3*(-10.0）/ B．READ(*,*)（N,A(K),K=1,N）
C．WRITE(*,*)(10,A(K),K=1,10) D．READ(*,*)N,N+1
14. 如果J是整型变量，则循环语句：DO J=5.5，-1.5，-2.5 所执行的循环次数是(A)
A．4 B．3 C．2 D．1
15．如有语言：INTEGER B (-1:-2,3:7),则数组B 中所含的元素个数为(B) A．0 B.10 C.12 D.21
16. 关于FORTRAN90 的CASE结构，SELECT CASE（表达式）中的表达式的数据类型
不允许为( A)
A. 实型
B. 字符型
C. 实型
D. 逻辑性
17．下面符号在FORTRAN90 中表示续行符的是( B)
A．! B. & C. # D. %
18. 下列程序段中，错误的语句是( D)
A．PARAMETER(N=10)
B. INTEGER:: M=20
C.M=M+N
D.PRINT(*, *)M, N
19.
A. FUNCTION
B. SUBROUTINE
C. BLOCK DA TA
D. SUB
20.下列语句中，错误的语句是( D)。
A. PARAMETER(PI=3.1415)
B. DIMENSION A(-5 : 0)
C. INTEGER : : A=10
D. SELECT CAE(3.0)
21. 执行语句：WRITE(* ，‘（1X,A,‘=’，I2）’)“2+3”，2+3后，屏幕上显示的结果
是(D)。
A. □5
B. 2+3=□5
C．5=□5 D. 语句不正确
22. 能得到一下数据正确输出结果的FORTRAN 语句是( A )
X=1.34
M=3
Y=1.25
A.100 FORMAT(1X, F6.3，I3，E9.4)
B.100 FORMAT(1X, 2F8.3，I3)
C.100 FORMAT(1X, F8.4，I3，F3.1)
D.100 FORMAT(1X, F8.4，2（1X, I3）)
23.设有如下程序，下面描述正确的是( 一次也不循环)
K = 10；DO WHILE(K==0); K=K-1; ENDDO
A．循环执行10次 B. 循环是无限循环
24.C
A, READ(*, *)(I, A(I), I=1, 10)
B, READ(*, *)(B(I, J), I=1, 10, J=1, 10)
C, READ(*, *)N, ( A(I), I=1, N)
D, READ(*, *)(I=1, 10，A（I）)
25.为了保证正确的输出数据，格式编辑符Ewd中w与d的关系应该是( D )
A．w>d B.w>d+2 C.w>d+4 D.w>d+6
26.若定义了语句函数S(X, Y, Z)=X+Y+Z 后，S(2.0 1.0 3.0)的值为( 6.0)
A.17.0
B.11.0
C.20.0
D.29.0
27.下列说法中正确的是( D)
A.块IF结构中的THEN块或ELSE块不能是空块
B.块IF结构中至少要有一个ELSEIF语句或ELSE语句
C.每一个ELSE语句要有一个对应的ENDIF语句
D.一个块IF结构中只能有一个ENDIF语句
28.在子程序SUB中，下列各语句的正确顺序是(A )1. ④要放③前2.见P129：①为语句函数，语句函数是非执行语句，语句函数的定义语句要放在一个程序单位的所有其他说明语句之后，放在所有可执行语句之前，所以②在①前
①F(A, B, C)=A*A+B*C ②IMPLICIT INTEGER(F, A, B, C)
③REAL D(M), E(N) ④PARAMETER(M=4)
⑤SUBROUTINE SUB(E, N)
A.⑤④③②①
B.⑤②④③①
C.⑤③②④①
D.⑤②③④①
答案应该正确，有异议可以大家一起讨论，或Q我，树连
FORTRAN程序设计复习题及答案
FORTRAN程序设计复习题 一、选择题 B (1)下列各FORTRAN表达式中合法的是 A) S+T*2P >= B) .NOT. (A*B+C) C) A2+B2/(C+D) <= D) (A+B).NOT．A*B．GT．(.NOT.只跟一个表达式) C (2)数学式(3/5)ex+y的FORTRAN表达式是 A) 3*EXP(X+Y)/5 B) 3*E* *(X+Y)/ C) (3/5)*EXP(X+Y)D) EXP(X+Y) D (3)下列FORTRAN77表达式中不合法的是 A) A．GT．B．EQV．C．GT．D B) A．AND．B．AND．C．AND．D C) .NOT．(X．LE．D) A．LT．B．LT．C．LT．D D(4)下列叙述中不正确的是 A) FORTRAN子程序可以单独编译 B) 对一个FORTRAN源程序进行编译和连接无误后可生成可执行文件 C) 即使编译和连接都正确无误，FORTRAN程序运行时仍可能出错 D) FORTRAN连接的主要任务是把函数库中的函数翻译成机器指令(正确描述：主要任务为连接目标文件) B (5)在下列FORTRAN77运算符中，优先级最高的是 A) .AND. B) .NOT. C) .OR. D) .EQ. B (6)FORTRAN表达式"6/5+9/2**3/2"的值为 A) 33 B) 1 C) 5 D) 3 A (7)下列FORTRAN77表达式中，合法的是： A) .AND.. B) 10.0 C) D) 提示：A）相当于 .AND.（.NOT.（）） D (8)关于编译一个FORTRAN源程序文件，下列说法中错误的是 A) 允许编译只有一个主程序而没有子程序的源文件 B) 允许编译有多个子程序的源文件 C) 允许编译只有一个子程序而没有主程序的源文件 D) 允许编译有多个主程序的源文件 C (9)在FORTRAN77源程序中，续行标志符必须放在 A) 第1列 B) 第1-6列C) 第6列D) 第5列 D (10)下列关于"SUBROUTIN E MAP(X，Y)"语句行的叙述中，不正确的是 A) 这是子程序的第一个语句 B) 字符串"MAP"是子程序名 C) 变量X是子程序的形参D) 子程序执行后，MAP将返回整型数据 提示：子程序无返回值，自定义函数才有） A (11)FORTRAN表达式"2/4+"的值是 A) B) 1 C) D) 0 提示：2/4默认等于整型，=》 D (12)FORTRAN表达式"MOD，"的值是 A) B)0.0 C) D) A (13下列FORTRAN运算符中，优先级最低的是 A）逻辑运算符.AND. B）算术运算符*
(完整)Fortran经典编程语言笔记(你值得拥有)
FORTRAN笔记 2014.10.07 目录 第七讲_FORTRAN的基本知识.ppt (2) FORTRAN语言程序设计初步 (2) FORTRAN源程序的书写格式（以77为例） (2) 变量 (2) 变量类型 (2) 算术运算符和运算优先级 (3) 赋值语句 (3) 参数语句（PARAMETER语句） (3) END语句 (3) PAUSE语句 (3) 逻辑运算和选择结构 (4) 关系表达式 (4) FORTRAN中数组的定义及使用 (4) 其他 (5) 1. fortran语言定义CHARACTER*6 TTL(14,3),CNAM(400)是什么意思? (5) 2. fortran里character*10 是什么意思 (5) 3. Fortran中kind是什么函数？ (5)
第七讲_FORTRAN的基本知识.ppt FORTRAN语言程序设计初步 FORTRAN是Formula Translation的缩写，意为“公式翻译”，它是为科学、工程问题或企事业管理中的那些能够用 数学公式表达的问题而设计的，其数值计算的功能较强。 常用的是FORTRAN77和FORTRAN90两种标准。 1、一个程序由若干个程序单位组成。主程序和每一个子程序分别是一个独立的程序单位。 2、每一个程序单位都是以“END”结束的。 3、一个程序单位包括若干行。 1）语句行。由一个FORTRAN语句组成。 2）非语句行，即注释行。 4、FORTRAN程序中的语句可以没有标号，也可以有标号，根据需要而定。标号的作用是标志一个语句以便被其 他语句引用。 5、一个程序单位中各类语句的位置是有一定规定的。 6、FORTRAN源程序必须按一定的格式书写。 FORTRAN源程序的书写格式（以77为例） 每一行有80列，分别如下： 1、第1-5列为标号区。一行中第一列为“C”或“*”，该行即被认为是注释行。 2、第6列为“续行标志区”，如果在一行的第6列上写一个非空格和非零的字符，则该行作为其上一行的续行。 3、第7-72列为语句区。 4、第73-80列，注释区。 变量 变量名：一个变量需要用一个名字（变量名）来识别。在同一个程序单位中不能用同一个变量名代表两个不同的变 量。 FORTRAN的变量名按以下规则选定： 1）第一个字符必须是字母，即变量名必须以字母开头； 2）在一个字母后面可以跟1-5为数字或字母。 如果选定的变量名超过6个字符，则只有前面6个字符有效。 注：在变量名中大写与小写字母是等价的。 变量类型 整型变量Integer、实型变量Real、双精度变量Double Precision、复型变量Complex、逻辑型变量Logical和字符型变量Character。 1、隐含约定（I-N规则） FORTRAN规定：在程序中的变量名，凡以字母I，J，K，L，M，N六个字母开头的，即认为该变量为整型变量。 在程序中，凡是变量名以字母I,J,K,L,M,N,i,j,k,l,m,n开头的变量被默认为整型变量，以其他字母开头的变量被 默认为实型变量。 2、用类型说明语句确定变量类型 1）INTEGER语句（整型说明语句） 2）REAL语句（实型说明语句） 3）DOUBLE PRECISION语句（双精度说明语句） 4）COMPLEX语句（复型说明语句） 5）LOGICAL语句（逻辑型说明语句）
MATLAB 与C C + + 、FORTRAN语言混合编程
MATLAB 与C/ C + + 、FORTRAN语言混合编程摘要:对MATLAB 与C/ C + + 和FORTRAN 语言进行混合编程的常用方法进行了介绍,分析了其实现方式和各自的利弊,并用实例对MEX 文件实现方式进行了较详细的论述. 关键词: MATLAB ; C/ C + + ; FORTRAN ; 混合编程 中图分类号: TP313 文献标识码: A 文章编号:16722948X(2004) 0620547205 1 混合编程的意义及其实现方式 1. 1 混合编程的意义 MATLAB 语言具有功能强大、开发效率高等诸 多优点, 已在工程实际中得到广泛应用, 但是与 FORTRAN、C/ C + + 等语言相比,其执行效率较低, 特别是当程序中含有大量循环语句(例如迭代计算) 时,MATLAB 就有些力不从心, 速度很慢, 而运用 FORTRAN 等擅长数值计算语言进行编程,其运行效 率高. 一方面,如果放弃MATLAB 强大功能和数量 众多的应用工具箱,无疑是资源的极大浪费. 另一方 面,针对工程实际,人们用FORTRAN、C/ C + + 语言 已编写了大量实用程序,如果将其重新改写成M 文 件移植到MATLAB 环境中,不仅要花费大量的时间 和精力,而且有时还降低了其运行效率. 可否将二者 优势互补呢? 混合编程就是其有效的解决途径. 1. 2 混合编程的实现 正是考虑到上面这些原由,MATLAB 系统提供 了其应用程序接口(Application Program Interface) 来 解决这些问题. API 主要包括3 部分:MEX 文件——— 外部程序调用接口,用来在MATLAB 环境下调用 FORTRAN、C/ C + + 语言编写的程序;MAT 文件应 用程序———数据输入输出接口,用于MATLAB 系统 与外部环境之间互传数据; 计算引擎函数库——— MATLAB 处于后台作为一个计算引擎,与其它应用 程序建立客户机/ 服务器关系,在其它应用程序中调 用[1 ,2 ] . 1. 2. 1 MEX 文件 MEX 文件是按照一定格式,用FORTRAN 或C/ C + + 语言编写的源程序,在MATLAB 下借助相应 的编译器,生成的动态链接函数的统称. 在Windows 操作系统下,是用MATLAB 附带的批处理mex. bat 来编译生成文件后缀名为. dll (Dynamic Link Li2 brary) 动态链接库文件,该文件可在MATLAB 环境 下,像命令函数一样直接运行和调用,使用起来极为 方便. 采取MEX 文件方式,是重复利用已有FOR2 TRAN、C/ C + + 程序,让MATLAB 和FORTRAN、
fortran语言语法
FORTRAN是世界上最早出现的高级编程语言，是工程界最常用的编程语言，它在科学计算中（如航空航天、地质勘探、天气预报和建筑工程等领域）发挥着极其重要的作用。经过40多年的发展，伴随着FORTRAN语言多次版本的更新及相应开发系统的出现，其功能不断完善，最新版本的开发系统几乎具备了VC、VB的所有特点，如图形界面编程、数据库等。目前，工科院校开设的计算机编程语言课首选仍然是FORTRAN :< 说实话，从科技发展的趋势来说这不是好事。您可以设想一下，如果需要用鹅毛笔抄写大量的古籍是什么感受！ 强烈建议阅读《发掘C#特性赋予科学计算项目以威力》 1 FORTRAN77四则运算符 + - * / ** (其中**表示乘方) 在表达式中按优先级次序由低到高为： +或-→*或/→**→函数→() 2 FORTRAN77变量类型 隐含约定：I-N规则 凡是以字母I，J，K，L，M，N六个字母开头的，即认为是整型变量，其它为实型变量。 用类型说明语句确定变量类型：可以改变I-N规则
用IMPLICIT语句将某一字母开头的全部变量指定为所需类型 如IMPLICIT REAL (I,J) 三种定义的优先级别由低到高顺序为：I-N规则→IMPLICIT语句→类型说明语句，因此，在程序中IMPLICIT语句应放在类型说明语句之前。 数组的说明与使用 使用I-N规则时用DIMENSION说明数组，也可在定义变量类型同时说明数组，说明格式为：数组名(下标下界,下标上界），也可省略下标下界，此时默认为1，例：DIMENSION IA(0:9),ND(80:99),W(3,2),NUM(-1:0),A(0:2,0:1,0:3)
C语言转换为fortran语言
C/C++采用的是缺省调用约定是STDCALL约定.在C程序中,可以在函数原型的声明中使用_stdcall关键字来指明过程采用STDCALL调用约定。 Fortran过程采用的缺省标识符是，全部大写的过程名加上“_”前缀和“@n”后缀。在C程序中保留标识符的大小写。编译程序会给采用STDCALL约定的过程标识符加上“_”前缀和“@n”后缀。 Fortran过程缺省的参数传递方式是引用方式是。对于下面这个Fortarn过程：SUBROUTINE ForSub(ivar,rvar) INTEGER ivar REAL rvar WRITE(*,*) ivar,rvar END 在C语言程序中应给出过程的函数原型及调用方式为： void main() { extern void__stdcall FORSUB(int*I,float*f); int iCV AR=1; float rCV AR=2.0; FORSUB(&iCV AR,&rCV AR); } 在C++中调用Fortan的过程，在声明函数原型时需要用extern“C”语句，以避免C++编译程序对标识符的修饰；并且C++也可以通过引用方式传递参数。对于上面的Fortran过程，C++程序应给出的函数原型及调用方法是： void main() { extern “C”{void__stdcall FORSUB(int*I,float*f);} int iCV AR=1; float rCV AR=2.0; FORSUB(&iCV AR,&rCV AR); } 另外，也可以在Fortran中用!MS$ATTRIBUTES编译伪指令来改变Fortran子过程的调用约定，以便于被其他语言的程序调用。在下面的例子中，过程ForSub具有C语言的调用约定。 SUBROUTINE ForSub(ivar,rvar) !MS$ATTRIBUTES C：：ForSub INTEGER ivar REAL rvar WRITE(*,*) ivar,rvar END 这样，这个过程使用的是C调用约定，并且参数传递方式也变为传值方式，过程的标识符变为全部小写且有_前缀而无后缀的方式。在C语言源程序中的函数原型及调用方法为：void main() { extern void FORSUB(int ivar,float rvar); int iVar=1;
FORTRAN 95 语法速查
FORTRAN 95 语法速查 ----------白云、李学哲、陈国新、贾波编著《FORTRAN95程序设计》读书笔记 目录：一、应用程序的创建与运行/FORTRAN 95所用的字符/ 变量类型及其声明，常量声明/表达式与运算符 二、输入与输出：表控、有格式 三、选择语句与结构：IF语句、CASE结构 四、DO循环结构 五、数组：数组的声明，数组的引用，数组的算术运算，数组的输入、输出，给数组赋初值， 动态数组，WHERE、FORALL语句 六、子程序：语句函数，内部子程序，调用子程序时的虚实结合：形参为数组、非定界数组、子 程序名、星号，递归子程序，外部子程序，纯子程序，逐元子程序 七、派生数据类型与结构体 八、指针与动态链表 九、文件：存取方式，基本操作语句，各类文件的读写操作 十、接口、模块 十一、公用区、存储关联、数据块子程序 十二、绘图：坐标系、设置图形颜色、创建图形程序/ 常用过程：设置线型、绘一像素点、设置当前位置、绘直线、绘弧线、绘矩形、绘多边形、绘制扇形（圆、椭圆）/ 文字信息的显示 附/录：标准函数与标准子例行程序 一、基础部份 1-1 FORTRAN 95 应用程序的创建与运行 创建或运行FORTRAN 95程序必须在Microsoft Developer Studio平台上进行。尽管程序文本及相关文件的编辑可以在任一文本编辑器上进行，然后再拷到Studio的文档窗口中。但最好还是一开始就进入Studio环境。创建FORTRAN 95 程序的步骤大致如下： 1）启动Microsoft Developer Studio 可以通过不同方式运行dfdev.exe程序以启动Microsoft Developer Studio [开始] \ Compaq Visual Fortran 6 \ Developer Studio \ dfdev.exe：或 ……\CVF66 \https://www.360docs.net/doc/fd10497884.html,\MSDEV98\dfdev.exe Microsoft Developer Studio的界面如下图所示： 文档窗口 工作空间窗口 输出窗口
C与C++与FORTRAN混合编程
C/C++/FORTRAN 混合编程 混合编程在软件编程中是经常遇到的问题，尤其是C/C++/FORTRAN的混合编程，本文主要说明以上三种语言混合编程中经常遇到的问题，同时，也说明了不同平台下混合编程应注意的问题。 混合语言编程要注意的问题主要体现在：函数调用和数据结构的存储。 1 Windows平台 函数：由于Fortran编程语言没有大小写之分，Windows平台下的混合语言编程要注意的主要是大小写的问题。考虑到编译器的差异，可以用下面的方式进行跨平台编程的函数声明。（ C/C++编译器使用Microsoft Visual C++ 6.0, Fortran编译器使用 Digital Visual Fortran 6.0）。 假设一个C的函数为 void cFunction(); 那么，只需要在它的头文件里面进行如下定义即可： #ifdef __cplusplus extern “C” void { #endif extern void __stdcall CFunction(); ＃define cFunction CFUNCTION #ifdef __cplusplus } #endif 这样，在Fortran或者C++的程序里面就可以直接调用了。 假设是一个Fortran函数SUBROUTINE FFUNCTION(); 那么，在C++头文件里进行如下的定义就可以了： #ifdef __cplusplus extern “C” void { #endif extern void __stdcall ffunction(); ＃define ffunction FFUNCTION #ifdef __cplusplus } #endif 这样，就可以在C++的程序里面直接调用。由于C编译器里面，没有定义__cplusplus这个环境变量，因此，C文件里面，也可以直接使用这个头文件。如果是一个C++函数，如： void cPlusplusFunction（）；和c函数一样，进行下面的定义即可： #ifdef __cplusplus extern “C” void { #endif extern void __stdcall cPlusplusFunction (); ＃define cPlusplusFunction CPLUSPLUSFUNCTION #ifdef __cplusplus }
计算机程序设计语言(FORTRAN语言)
计算机程序设计语言(FORTRAN语言) (总分：36.00，做题时间：90分钟) 一、 (总题数：36，分数：36.00) 1.编译程序能将高级语言编写的源程序转换成( )。 A．解释程序 B．汇编程序 C．映象程序 D．目标程序 （分数：1.00） A. B. C. D. √ 解析： 2.一个完整的FORTRAN源程序( )。 A．至少包括一个主程序 B．至少包括一个主程序和一个子程序 C．由一个主程序与一个以上的子程序组成 D．由一个主程序与一个子程序组成 （分数：1.00） A. √ B. C. D. 解析： 3.语句函数定义语句在程序内合法的位置是( )。 A．在程序块开头语句之后，END语句之前 B．在程序块开头语句之后，可执行语句之前 C．在说明语句之后，END语句之前 D．在说明语句之后，可执行语句之前 （分数：1.00） A. B. C. D. √ 解析： 4.下列关于函数子程序虚实参数的错误说法是( )。 A．可以没有形参数 B．虚实结合的数组长度可以不同 C．实参表与虚参表类型可以不同 D．函数名可以作为虚参
（分数：1.00） A. B. C. √ D. 解析： 5.下列叙述中正确的是( )。 A．FORTRAN程序块中，无名公用语句只能有一个B．FORTRAN子程序中，至少应有一个RETURN语句C．FORTRAN程序块中，最后一行必须是END语句D．FORTRAN程序块中，必须有变量说明语句 （分数：1.00） A. B. C. √ D. 解析： 6.运行下面的程序时得不到所需的结果，其主要原因是( )。INTEGER X(11) DATA X/9，8，7，6，5，4，3，2，1，0，-1/ DO 10 1=1，X(1) ，-1 WRITE(*，*)1.0/SQRT(25.0-REAL(X(1) )* * 2) 10 CONTINUE END A．没有给X(11) 赋初值 B．发生除以零的情况 C．发生负数开平方的情况 D．循环参数设置错误 （分数：1.00） A. B. C. D. √ 解析： 7.下列数据中，不符合FORTRAN常量表示法的是( )。 A．-25.6 B．2.758D3 C．'FOOT"=' D．TRUE （分数：1.00） A. B. C. D. √ 解析：
fortran语言内部函数
附录 FORTRAN 90标准函数 符号约定： ●I代表整型;R代表实型;C代表复型;CH代表字符型;S代表字符串;L代表逻辑型;A代表数组;P代表指针;T代表派生类型;AT为任意类型。 ●s:P表示s类型为P类型(任意kind值)。s:P(k)表示s类型为P类型(kind值=k)。 ●[…]表示可选参数。 ●*表示常用函数。 表1 数值和类型转换函数 函数名说明 ABS(x)*求x的绝对值∣x∣。x:I、R,结果类型同x; x:C,结果:R AIMAG(x)求x的实部。x:C,结果:R AINT(x[,kind])*对x取整,并转换为实数(kind)。x:R, kind:I,结果:R(kind) AMAX0(x1,x2,x3,…)*求x1,x2,x3,…中最大值。x I:I,结果:R AMIN0(x1,x2,x3,…)*求x1,x2,x3,…中最小值。x I:I,结果:R ANINT(x[,kind])*对x四舍五入取整,并转换为实数(kind)。x:R, kind:I,结果:R(kind) CEILING(x)*求大于等于x的最小整数。x:R,结果:I CMPLX(x[,y][,kind]))将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,kind:I,结果:C(kind) CONJG(x)求x的共轭复数。x:C,结果:C DBLE(x)*将x转换为双精度实数。x:I、R、C,结果:R(8) DCMPLX(x[,y])将参数转换为x、(x,0.0)或(x,y)。x:I、R、C, y:I、R,结果:C(8) DFLOAT(x)将x转换为双精度实数。x:I,结果:R(8) DIM(x,y)*求x-y和0中最大值,即MAX(x-y,0)。x:I、R, y的类型同x,结果类型同x DPROD(x,y)求x和y的乘积,并转换为双精度实数。x:R, y:R,结果:R(8)
[转载]Fortran 77, C, C++ 和 Fortran 90 的比较
[转载]Fortran 77, C, C++ 和 Fortran 90 的比较 收藏 发信人: quasar (飞贼克斯), 信区: Fortran 标题: Fortran 77, C, C++ 和 Fortran 90 的比较(转载) 发信站: 南京大学小百合站 (Tue Jun 1 10:59:14 2004) 瀚海星云 -- 文章阅读 [讨论区: MathTools] 发信人: HuiCai (老灰菜), 信区: SciComp 标题: Fortran 77, C, C++ 和 Fortran 90 的比较(转载) 发信站: 瀚海星云 (2002年12月19日10:40:38 星期四), 站内信件 【以下文字转载自 Fortran 讨论区】 【原文由 HuiCai 所发表】 Fortran 77, C, C++ 和 Fortran 90 的比较 https://www.360docs.net/doc/fd10497884.html,/develop/article/16/16085.shtm 三十年来, 从 Fortran 77 开始, Fortran 成为了计算科学的主要语言.在这段时间里, Fortran 的数值能力变得非常稳定而且优于其它计算机语言; 最大的改变来自于不断增长的各种可靠的数值过程库的种类. Fortran 联合(union), 它的使用技巧, 扩充的数值库为计算科学赋予了良好的基础. 可是在过去十几年中, 动态数据结构(特别是动态数组)的重要性不窜上升, UNIX 工作站, 复杂的交互式可视化工具, 以及更近的并行体系结构--Fortran 77 都没有实现--刺激了其它语言作为计算语言的使用, 最明显的一个例子是C. 最近C++ 也已经引起人们的兴趣, Fortran 通过发展到 Fortran 90来弥补它在现代科学计算 方面的不足. 这部分的一个通常的工作是比较四种语言对科学计算的适应性的, 这四种语言是两个C 的代表(C, C++) 和两个Fortran的代表(Fortran 77, Fortran 90). 下面的表格总结了这种比较, 后面的内容试图合 理地解释这种等级排序, 从最好(1)到最差(4).. 功能 ------------ F77 - C - C++ - F90 数值健壮性 ---- 2 ---- 4 --- 3 ----- 1 数据并行性 ---- 3 ---- 3 --- 3 ----- 1 数据抽象 ------- 4 ---- 3 --- 2 ----- 1 面向对象编程 - 4 ---- 3 --- 1 ----- 2 函数型编程 ---- 4 ---- 3 --- 2 ----- 1 平均等级 ------ 3.4 - 3.2 - 2.2 -- 1.2
Simple算法_fortran语言编写
Cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc Cccc This computer program was copied from the graduate student course program Cccc of the University of Minnesota. Part of it was re-formulated to meet the Cccc personal computer environment. Some inappropriate expressions were also Cccc corrected. The program is used only for teaching purpose. No part of it Cccc may be published. You may use it as a frame to re-develop your own code Cccc for research purpose. XJTU Instructor, 1995.11 **************************************************************************** *----------------------------MAIN PROGRAM----------------------------------- **************************************************************************** LOGICAL LSTOP COMMON/CNTL/LSTOP **************************************************************************** OPEN(08,FILE='teresul') CALL SETUP0 CALL GRID CALL SETUP1 CALL START 10 CALL DENSE CALL BOUND CALL OUTPUT IF(.NOT.LSTOP) GO TO 15 CLOSE(08) STOP 15 CALL SETUP2 GO TO 10 END *--------------------------------------------------------------------------- SUBROUTINE DIFLOW **************************************************************************** COMMON/COEF/FLOW,DIFF,ACOF **************************************************************************** ACOF=DIFF IF(FLOW .EQ.0.0)RETURN TEMP=DIFF-ABS(FLOW)*0.1 ACOF=0. IF(TEMP .LE. 0. ) RETURN TEMP=TEMP/DIFF ACOF=DIFF*TEMP**5 RETURN END *-------------------------------------------------------------------------- SUBROUTINE SOLVE ****************************************************************************
C与FORTRAN的差别
https://www.360docs.net/doc/fd10497884.html,/c.htm 2. C语言和Fortran语言的差异 由于两者产生的背景不同，它们是存在差异的，在比较了几组源代码之后，主要有以下体会： C 最大的优点在于灵活，不但可以藉由 struct 来定义新的数据结构，同时 C 的pointer 更可以让我们自由而且有效率地处理大数据。而在 UNIX 系统中，由于整个操作系统绝大部分就是 C 写出来的，故我们也有方便的 C 函数库，直接使用系统资源与享受系统带来的服务，以做到一些低阶、快速的动作。而FORTRAN从一开始就用于科学计算，它与C的差异主要表现为： * 复数运算的速度 * 程序参数与字串 * 内存的动态管理 * 多维阵列的处理 * 函数调用与参数传递 2.1. 复数运算的速度 在进行复数运算的时候，C++ 可以定义复数的 class，还可以重新定义所有的四则运算式，复杂的算式也可以做到由一个表达式来解决。但它的重新定义复数四则运算是用函数来做的，使用函数来调用其速度很慢，除非采用 inline function 的方式，但会遇到以
下的问题：要先将这个算式拆解，分别算过后再重组结果，故表面上程序代码很简洁，但实际上是 compiler做了很多工作，还是要付出相当的计算时间代价的。 至于 Fortran，最大的优点在于复数 (complex number) 的运算，复数是 Fortran 的基本数据类型之一，这正是 C 所缺乏的 (C 基本上只有实型与整型类型而已)。虽然C 也可以由 struct 的定义，达到复数四则运算的目的，但却很可能牺牲了程序效能，或者是程序写起来相当繁杂降低可读性。因此，在大量而且要求高速的复数运算场合， Fortran 实际上比 C 还要适合。 然而既然复数已是 Fortran 基本数据类型之一，则 Fortran compiler在设计上可以做到对复数特别的 optimization，例如如果遇到较短的复数运算式，它可以用“心算”直接得出 real_part 与 imag_part 的 expression，像这样: real(a) =……；imag(a) = ……. 如此只需两步就得到结果。直到遇到太长太复杂的算式，才去做拆解的动作。 这样使用 C 来做复数运算可能需要绕圈圈，而且绕出来的圈圈可能还不小。不过如果程序中需要复合的数据结构，如一个自定义的数据结构中既有浮点数、整数、还有字符串时， Fortran 只有举白旗投降了。当然， Fortran 如果要做还是可以做，只是不太方便，而且可能也需要绕圈圈。但如果使用 Fortran 90 则不成问题了，因为 Fortran 90 也有类似 C 的 struct 结构以定义复合的数据类型。 2.2. 程序参数与字串 C 程序可以有参数串列， Fortran 则没有。例如，当程序执行时，必须输入 a, b, c 三个参数，在 C 可以这样写: int main(int argc, char **argv) { int a, b, c;
Fortran语言
#LOCAL REAL Uds,Uqs,angles,vs,w,o,ang,ta,tb,t0,Ud1,Uq1,E #LOCAL REAL tc,t,mt,pi #LOCAL INTEGER sign,M,nl,n t=TIME tc=$TC nl=DNINT(tc/delt) pi=3.1415926 E=$Udc w=2*pi*50 if(t.lt.delt) then sign=0 M=0 Uds=0 Uqs=0 angles=0 vs=0 o=0 ang=0 ta=0 tb=0 t0=0 Ud1=0 Uq1=0 n=1 end if if(mod(n,nl).lt.1E-7) then !初始化变量 M=M+1 Uds=$Ud Uqs=$Uq angles=$angle !变换到alphabeta坐标直角坐标
Ud1=cos(angles)*Uds+sin(angles)*Uqs Uq1=sin(angles)*Uds-cos(angles)*Uqs ! Ud1=$Ud ! Uq1=$Uq !生成矢量的模和角度 vs=sqrt(Ud1**2+Uq1**2) if(Ud1.gt.0.and.Uq1.ge.0) then ang=atan(Uq1/Ud1) else ang=atan(Uq1/Ud1)+2*pi end if if(Ud1.lt.0) then ang=atan(Uq1/Ud1)+pi end if if(Ud1.eq.0) then if(Uq1.ge.0) then ang=pi/2 else ang=3*pi/2 end if end if !判断矢量的所属,计算角度 if(ang.ge.0.and.ang.lt.pi/3) then sign=1 o=ang ! o=w*t end if if(ang.ge.pi/3.and.ang.lt.2*pi/3) then sign=2 o=ang-pi/3 ! o=w*t-pi/3 end if if(ang.ge.2*pi/3.and.ang.lt.3*pi/3) then sign=3 o=ang-2*pi/3 ! o=w*t-2*pi/3
fortran初步学习资料
第一章: Fortran语言程序设计初步 Fortran语言的发展概况 本节介绍Fortran的起源与发展历史，讲述Fortran由产生到形成标准FortranIV、Fortran77，并进一步形成新标准Fortran90/95的发展历程。 1.1.1 Fortran的历史 a)a)FortranI FortranIV Fortran是目前国际上广泛流行的一种高级语言，适用于科学计算。Fortran 是英文FORmula TRANslatio n的缩写，意为“公式翻译”。它是为科学、工程问题中的那些能够用数学公式表达的问题而设计的语言，主要用于数值计算。这种语言简单易学，因为可以像抄写数学教科书里的公式一样书写数学公式，它比英文书写的自然语言更接近数学语言。Fortran语言是第一个真正推广的高级语言。至今它已有四十多年历史，但仍历久不衰，始终是数值计算领域所使用的主要语言。Fortran语言问世以来，根据需要几经发展，先后推出形成了很多版本。 第一代Fortran语言是在1954年提出来的，称为FortranI。它于1956年在IBM 704计算机上得以实现。在此之前编写计算机程序是极为繁琐的，程序员需要详细了解为之编写代码的计算机的指令、寄存器和中央处理器(CPU)等方面的知识。源程序本身是用数学符号(八进制码)编写的，后来采用了助记符，即所谓机器码或汇编码，这些编码由汇编程序转换为指令字。在50年代书写和调试一个程序要很长时间，因为用这种方式编写程序显然是很不方便的，尽管它能使CPU高效地工作。正是这些原因，促使由John Backus率领的IBM公司的一个小组研究开发最早的高级程序设计语言Fortran。其目的是开发一种容易理解、简单易学又能几乎像汇编一样高效运行的语言，他们取得了极大的成功。Fortran 语言作为第一种高级语言不仅是一次创新，也是一次革命。它使程序员摆脱了使用汇编语言的冗长乏味的负担，而且它使得不再只是计算机专家才能编写计算机程序，任何一名科学家或工程技术人员，只要稍加努力学习和使用Fortran，就能按自己的意图编写出用于科学计算的程序。 经过不断发展，FortranI形成了很多不同版本，其中最为流行的是1958年出现的FortranII，它对FortranI进行了很多扩充(如引进了子程序)，FortranII 在很多机器上得以实现。其后出现的FortranIII未在任何计算机上实现。1962年出现的FortranIV对原来的Fortran作了一些改变，使得FortranII源程序在FortranIV编译程序下不能全部直接使用，导致了语言不兼容的问题。这样就形成了当时同时使用FortranII和FortranIV两种程序设计语言的局面。
fortran与c语言接口参数传递混合编程
Sun Studio 12：Fortran 编程指南 ?Previous: 第10 章并行化 第11 章C-Fortran 接口 本章论述Fortran 与C 的互操作性方面的问题，内容仅适用于Sun Studio Fortran 95 和C 编译器的特定情况。 11.9 Fortran 2003 与C 的互操作性简要说明了Fortran 2003 标准第15 部分中提到的C 绑定功能。（此标准可以从国际Fortran 标准Web 站点获得）。Fortran 95 编译器实现了标准中所述的这些功能。 如不特别注明，32 位x86 处理器视为与32 位SPARC 处理器等同。对于64 位 x86 处理器和64 位SPARC 处理器也是如此，只是x86 系统未定义REAL*16 和COMPLEX*32 数据类型，这些数据类型只能用于SPARC。 11.1 兼容性问题 大多数 C-Fortran 接口必须在以下这些方面全部保持一致： ?函数和子例程的定义及调用 ?数据类型的兼容性 ?参数传递（按引用或按值） ?参数的顺序 ?过程名（大写、小写或带有结尾下划线(_)） ?向链接程序传递正确的库引用 某些C-Fortran 接口还必须符合： ?数组索引及顺序 ?文件描述符和stdio ?文件权限 11.1.1 函数还是子例程？ 函数一词在 C 和Fortran 中有不同的含义。根据具体情况做出选择很重要：?在C 中，所有的子程序都是函数；但void函数不会返回值。 ?在Fortran 中，函数会传递一个返回值，但子例程一般不传递返回值。
当Fortran 例程调用C 函数时： ?如果被调用的C 函数返回一个值，则将其作为函数从Fortran 中调用。 ?如果被调用的C 函数不返回值，则将其作为子例程调用。 当C 函数调用Fortran 子程序时： ?如果被调用的Fortran 子程序是一个函数，则将其作为一个返回兼容数据类型的函数从 C 中调用。 ?如果被调用的Fortran 子程序是一个子例程，则将其作为一个返回int（与Fortran INTEGER*4兼容）或void值的函数从C 中调用。如果Fortran 子例程使用交替返回，则会返回一个值，这种情况下它是RETURN语句中的表达式的值。如果RETURN语句中没有出现表达式，但在SUBROUTINE语句中声明了交替返回，则会返回零。 11.1.2 数据类型的兼容性 表11–2总结了Fortran 95（与 C 比较）数据类型的数据大小和缺省对齐。该表假设未应用影响对齐或提升缺省数据大小的编译选项。请注意以下事项： ? C 数据类型int、long int和long在32 位环境下是等同的（4 字节）。 但是，在64 位环境下long和指针为8 字节。这称为LP64 数据模型。 ?在64 位SPARC 环境下，当用任意-m64选项进行编译时， REAL*16和COMPLEX*32与16 字节边界对齐。 ?标有4/8 的对齐表示缺省情况下与8 字节边界对齐，但在COMMON 块中与 4 字节边界对齐。COMMON 中的最大缺省对齐为4 字节。当用-m64选项进 行编译时，4/8/16 表示与16 字节边界对齐。 ?REAL(KIND=16)、REAL*16、COMPLEX(KIND=16)、COMPLEX*32只能用于SPARC 平台。 ?数组和结构的元素及字段必须兼容。 ?不能按值传递数组、字符串或结构。 ?可以在调用点使用%VAL(arg)，按值将参数从Fortran 95 例程传递到C 例程。假如Fortran 例程具有一个显式接口块，该接口块用VALUE属性声明了伪参数，则可以按值将参数从 C 传递到Fortran 95。 ?数值序列类型的组件的对齐方式与通用块的对齐方式相同，也会受到-aligncommon选项的影响。数值序列类型是这样一种序列类型：其中所 有组件的类型为缺省整数、缺省实数、双精度实数、缺省复数或缺省逻辑，而不是指针。 ?在大多数情况下，非数值序列类型的数据类型组件以自然对齐的方式对齐，但QUAD 变量除外。对于四精度变量，32 位SPARC 平台和64 位SPARC 平台之间的对齐方式不同。 ?在所有平台上，用BIND(C) 属性定义的VAX 结构和数据类型的组件始终与Ｃ结构具有相同的对齐方式。
IntelVisualFortran安装使用详细讲解
I n t e l V i s u a l F o r t r a n安装+使用详细讲解 好久都没有用Fortran了，这两周由于帮老师做事，就写了两个插值程序。刚刚去论坛里面搜了一下关于IVF的帖子，发现不是很多，个人感觉某些不怎么详细，从我第一次接触IVF 已经有三年了，下面我就把我对于IVF的认识和理解跟大家分享咯，求各位同仁不喜勿喷... 简介:IntelVisualFortran(IVF)和CompaqVisualFortran(CVF)类似，都是用来编写Fortran 语言的一个编译器，IVF看名字就知道，它是由Intel公司开发，而CVF则是由HP公司开发，之前看到一个帖子说，HP公司的CVF开发团队加盟到了Intel公司，或者可以说Intel 公司收购了HP公司的这个团队，而从2006年开始就不再开发新的CVF系列版本了，这么多年以来CVF也确实没有、......之后的版本出现，转而出现的确实IVF2010，IVF2011,IVF2013的新版本的出现。这就说明IVF是以后的主流趋势，而CVF只能成为我们的回忆，值得一提的是，IVF肯定是在CVF的基础上发展起来的，因此我们用到IVF的时候，会有一种熟悉的感觉。 Q1：为什么要用IntelVisualFortran？ 我第一次接触到IVF是当时我的电脑(Win7)不能正常使用CVF版本，会出现各种意想不到的问题(反正我是遇到过得，搞得编程的心情都没有了)，论坛里面也有一些什么破解的方法，都不管用，于是就在“小木虫”论坛里面看到了IVF，到目前为止，我用IVF在Win7的32位和64位的电脑上没有出现任何不兼容的问题（CVF是不支持64位机子的）。我自己的理解是新版本的出现，先不从稳定不稳定来说，肯定是有它的优势所在，Fortran标准的版本也在逐步的修改，比如将面向对象这些加入进来，以前版本的编辑器或许就不能支持了。因此，用IVF编写Fortran程序是一种与时俱进的趋势。 Q2：如何获取IntelVisualFortran？ 在百度或者家园论坛里面搜一下就会有很多相关下载的帖子，我自己也搜集了一些，下面就把我目前用到的版本给大家分享 链接:提取密码:5p02 链接:c:\iknow\docshare\data\cur_work\_blank提取密码:ady4 第一个是IVF的安装包 第二个就是IVF的licence文件（在安装过程中需要用到） Q3：如何在电脑中安装IntelVisualFortran？ （建议电脑是XP系统的坛友，还是用CVF，电脑是Win7/8的坛友就可以安装IVF） IVF的安装比CVF的安装稍微麻烦一点的就是在安装过程这一步，在安装上面下载的IVF安装包之前，需要提前安装一个东西，那就是MicrosoftVisualStudio****(VS)这个集成开发环境(IDE)，可以简单的理解为，IVF就是VS里面的一个用于编写Fortran的插件，下面我也提供一个我的VS2010版本的下载。(市场上最新的是VS2013) VisualStudio2010简体中文专业版（MSDN原版下载内置KEY）.iso 链接:c:\iknow\docshare\data\cur_work\_blank提取密码:w7yv