谁能给详细解释一下这段fortran程序

module q

定义模块

implicit none

interface operator(lower)

module procedure zimu

end interface

用接口实现 *** 作符重载或定义

contains

模块函数

function zimu(str)result(str_rst)

函数名叫zimu，result（）用来定返回值名称

character(len=80),intent(in)::str

声明输入变量，长度80的字符串，属性为输入，就是不能改变这个量的值

character(len=80)::str_rst

integer::i

do i=1,len(str)

if(str(i:i)<='Z'andstr(i:i)>='A')then

str_rst(i:i)=char(ichar(str(i:i))+32)

如果字母为大写，取出其asc码，加32后变为小写字母asc码，再转换回字符

else

str_rst(i:i)=str(i:i)

end if

end do

end function zimu

end module q

program w

use q 使用模块

character(len=80)::letter

print,'input words:' 输出提示行

read,letter 读入字符串

print,zimu(letter)

调用zimu函数，改成lowerletter也可以

end program w

明知故问。鄙视楼主

Program

>

2c

和

p2c

是两个源代码转换程序

f2c

把

FORTRAN

代码转换为

C

代码,

p2c

把

Pascal

代码转换为

C

代码

当你安装

GCC

时这两个程序都会被安装上去

如果有一些用

FORTRAN

或

Pascal

写的代码要用

C

重写的话,

f2c

和

p2c对你非常有用

这两个程序产生的

C

代码一般不用修改就直接能被

GCC

编译

如果要转换的

FORTRAN

或

Pascal

程序比较小的话可以直接使用

f2c

或

p2c不用加任何选项

如果要转换的程序比较庞大,

包含很多文件的话可能要用到一些命令行选项

在一个

FORTRAN

程序上使用

f2c

,

输入下面的命令:

f2c

my_fortranprogf

注意:

f2c

要求被转换的程序的扩展名为

f

或

a

F

要把一个Pascal

程序装换为

C

程序,

输入下面的命令:

p2c

my_pascalprogrampas

这两个程序产生的

C

源代码的文件名都和原来的文件名相同,

但扩展名由

f或

pas

变为

c

第一种方法：

1 建立工作目录/ ]"

2 将ABAQUS安装目录\64-pr11\site下的aba_param_dpinc 或 aba_param_spinc拷贝到工作目录，并改名为aba_paraminc；

3 将编译的fortran程序拷贝到工作目录；

4 将obj文件拷贝到工作目录；

5 建立好输入文件inp；

6 运行abaqus job=inp_name user=fortran name即可。

第二种方法：

在Job模块里，创建工作，在Edit Job对话框中选择General选项卡，在User subroutine file中点击Select按钮，从d出对话框中选择你要调用的子程序文件（后缀为for或f）。

以上就是关于谁能给详细解释一下这段fortran程序全部的内容，包括:谁能给详细解释一下这段fortran程序、fortran 程序(应该是很简单的小程序)、fortran语言转换为C语言的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！