FORTRAN 77 Language Reference Previous: INTEGER*4 @ Next: LOGICAL INTEGER*8 @ The integer data type, INTEGER*8, holds a signed 64-bit integer. An INTEGER*8 occupies 8 bytes. INTEGER*8 is aligned on 8-byte boundaries.Previous: INTEGER*4 @ Next: LOGICAL © 2010, Oracle Corporat...
在主程序里面，没有对SE类型进行说明。解决办法：在主程序头部增加一行，integer(8) :: SE 如图：这样就能编译通过了。不过，需要指出的是，se=10*k**m的值已经远远超出integer(8)的范围，运行结果为一个负数，实际上是整数溢出了。用对数的方法计算，可以得到，se=5.5595056173846143166 *10^7520388...
fseeko64 和ftello64 是fseek 和ftell 的“大型文件”版本。它们采用并返回 INTEGER*8 的文件位置偏移值。(“大型文件”是指大于 2 GB 的文件,因此字节位置必须以 64 位整型值表示。)可使用这些函数确定大型文件的位置和/或复位大型文件。1.4.14.1 fseeko64:将文件复位到逻辑单元中该...
program mainimplicit nonereal*8,allocatable::a(:)integer::ia=linspace( 0.0d0, 1.0d0, 10)do i=1,size(a)write(*,*)a(i)enddoread(*,*)containsfunction linspace(a,b,n)result(x)implicit nonereal*8,allocatable::x(:)real*8,intent(in)::a,binteger,intent(in)::ninteger:...
implicit none integer, parameter :: n = 10 integer :: arr(n) = (/10, 9, 8, 7, 6, 5, 4, 3, 2, 1/) integer :: i call quicksort(arr, 1, n) print *, 'Sorted array:' do i = 1, n print *, arr(i) end do
INTEGER,ALLOCATABLE::array(:,:) ALLOCATE(array(l000,1000),STATUS=istat) ... DEALLOCATE(array,STATUS=istat) 8.5 在过程中作为形参的可分配数组 8.5.1 可分配形式参数 如果子例程有显式接口(module), 那么对于子例程(subroutine)来说, 它的形式参数可以是可分配的。如果声明形式参数为可分配的,那么用于调...
一般REAL等价于REAL*4或REAL(4),是单精度的Fortran跟C一样，也分整型(INTEGER)，实型(REAL)，双精度(REAL*8或REAL(8)或DOUBLE PRECISION)，这些在科学计算中还是比较重要的。一般REAL等价于REAL*4或REAL(4),是单精度的；而双精度在F77中表示为DOUBLE PRECISION，在F90中可以表示为REAL*8或REAL(8...
INTEGER IMAX (2)类型说明语句和IMPLICIT语句是非执行语句。 (3)类型说明只在本程序单位内有效。 (4)IMPLICIT语句和类型说明语句应该出现在本程序单位中的所有执行语句之前,其中IMPLICIT语句又应在所有的类型说明语句之前。 算数表达式 算术运算符和运算优先级 ...
program Gamma_Function implicit none real*8 y,temp1,temp2 integer*8 z,counter1,counter2,limit temp2=1 y=0 write(*,*) "Please input an integer Z,then the program will calculate the result of Γ（z）:"read(*,*) z write(*,*) "Please input an integer N ，the larger ...
数据类型:使用Fortran在计算机内存中记 录文本、数值等数据的单位空间及方法 1. 整数(Integer) 长整型:占用32 bits (4 bytes) -231~231-1 -2147483648~+2147483647 短整型:占用16 bits (2 bytes) -215~215-1 -32768~+32767 更短型: 占用8 bits (1 bytes) -128~127 2. 实数(REAL) 单精度:32 bites...