定义常量。定义后，常量符号的值不可变更。比如：integer,parameter::npot=600000则代表定义一个integer类型的常量npot，它的值为600000。此后的代码不可以更改npot的值，也就是说不可以出现：npot=1234之类的代码：）
parameter关键字的语法格式如下：parameter (常量名 = 常量值)其中，常量名是用户自定义的常量名称，常量值是常量的值。在Fortran中，常量名必须以字母开头，并且只能包含字母、数字和下划线。下面是一个使用parameter关键字定义常量的示例：program test implicit none integer, parameter :: n = 10 integer :: i do...
implicit none integer, parameter :: n = 5 real :: x(n), y(n) real :: sum_x, average_y integer :: i ! 初始化数组 x 和 y do i = 1, n x(i) = real(i) y(i) = x(i)**2 + 1.0 end do ! 计算数组 x 的总和 sum_x = sum(x) ! 计算数组 y 的平均值 average_y = s...
integer, parameter :: n = 100 real :: a, b, h, integral integer :: i real :: x, f ! 定义积分区间 [a, b] a = 0.0 b = 1.0 ! 步长 h = (b - a) / n ! 计算积分 integral = f(a) + f(b) do i = 1, n-1 x = a + i * h if (mod(i, 2) == 0) then integr...
INTEGER, PARAMETER :: MY_INT_KIND = SELECTED_INT_KIND(9) INTEGER(MY_INT_KIND) :: HILL 常数种别 程序中的常数如要标明种别,方法有二。若是数值型常数或逻辑型常数则用后辍法,即后加一下划线,再跟种别值。当实数型数据的指数字母是D时,禁止说明种别值。如果复型数据的实部和虚部都是整数,则它的精...
在Fortran中,可以使用PARAMETER关键字来定义常量。常量在程序执行期间不能被修改,可以用作程序中的固定值。 例如,可以使用以下方式定义一个常量: PROGRAM Constants IMPLICIT NONE INTEGER, PARAMETER :: SIZE = 10 REAL, PARAMETER :: PI = 3.14159 WRITE(*,*) 'Size:', SIZE WRITE(*,*) 'PI:', PI END ...
2.integer :: Fortran中的数据类型有整型(integer)、实型(real)、复数型(complex)、逻辑型(logical)、字符型(character)等。 在语法里,很多变量类型后书写两个冒号,然后是变量名。 双冒号,表示修饰符的结束。例如: Integer , parameter , private :: fcode( 3 , 3 ) Integer 是变量类型,它有两个修饰符:pa...
Fortran Parameter的语法为: PARAMETER (variable = value) 其中,variable是常量的名称,value是常量的初始值。注意,value必须是常量表达式,也就是说,它必须在编译时计算出来。 在程序中使用Fortran Parameter常量的示例: PROGRAM example INTEGER, PARAMETER :: n = 10 REAL, PARAMETER :: pi = 3.1415926 REAL, PAR...
INTEGER, PARAMETER :: max = 100 REAL, DIMENSION(max) :: array CONTAINS SUBROUTINE sub1() ... END SUBROUTINE sub1 FUNCTION fun1() ... END FUNCTION fun1 END MODULE my_module 上述代码定义了一个包含参数、数组和子程序的模块。 四、分析算法逻辑 ...
1Program www_fcode_cn2Implicit None3Integer , parameter :: MAX_PATH =5124Character( Len =MAX_PATH ) :: c5Character( Len = * ) , parameter :: STR_FIND ="RecordID:"6integer :: ID , i , iErr7Open(12, File ="fcode.txt")8Do9Read(12,'(a512)', ioStat = iErr ) c !必须a512...