print *, 'Array elements:' do i = 1, n print *, 'array(', i, ') = ', array(i) end do ! 释放数组 deallocate(array) end program dynamic_array 代码解释 分配数组: 使用 allocate 语句动态分配数组 array,大小由用户输入的 n 决定。 初始化数组: 使用 do 循环初始化数组 array 的元素。 打...
print *, 'Array c:' do i = 1, n print *, 'c(', i, ') =', c(i) www.wkjung.com/XCheuG/ end do end program array_operations 代码解释 数组定义: 定义了三个长度为 n 的实数数组 a、b 和 c。 数组初始化: 使用 do 循环初始化数组 a 和 b,分别赋予不同的值。 数组操作: 使用 do...
把上面例子中用Print命令,程序执行的结果是一样的àPrint *, ”Hello, Acuzio!” Print的用法和write大致上相同,只是print后面不使用括号,而且只有一个星号。这个星号的意义是不限定输出格式。Print和Write的不同处就在于少了Write的第一个星号,也就是少了赋值输出位置的能力,Print命令只能针对屏幕来使用。建议尽量...
PRINT*,"输入2个实数-函数幅值与角度值，逗号隔开"read *,Rampl,Rangle PRINT*,"输入10个实数，每个回车一次"do j=1,10,1 read *,Keyin(j) ! READ(1,*) (Iarray(i,j),j=1,10)enddo !data File in PRINT*,"输入文件数据的文件名：*.txt"read(*,*) name_in OPEN(1,FILE=name_in) ...
SUBROUTINE process_array(array, size) IMPLICIT NONE INTEGER, INTENT(IN) :: size REAL, ALLOCATABLE, DIMENSION(:) :: array ! 分配内存 ALLOCATE(array(size)) ! 初始化数组 array = 0.0 ! 处理数组(例如,填充数据) DO i = 1, size array(i) = REAL(i) END DO ! 打印数组内容 PRINT *, "Arr...
数组(Array) 数组的声明方法:Datatype name(size) 赋初值: integer A(5) Data a /1,2,3,4,5/ Integer a(5) Data a /5*3/ !5个3 Integer A(5) Integer i Data(A(i),i=2,4) /2,3,4/ !这是一个隐含式循环,I会从2增加到4,依照顺序到后面取数字。初值设定结果为A(2)=2、A(3)=3、...
programmainreal,dimension(3,3)::A,B,invA,TAreal::d,rinteger::m,n,kdatam,n,d/3,3,0/A=reshape((/1,8,3,4,5,6,7,8,9/),(/3,3/))print*,"原矩阵:"callprint_array(A,m,n)print*,char(10),"转置:"callGetTran(A,m,n,TA)B=print_array(TA,n,m)callGetInv(A,invA,m)print...
program read_array implicit none integer, parameter :: n = 10 real(8) :: array(n,n) integer :: i,j ! Open the file and read the array print *, 'read from array_2d_stream.bin with stream access' open(unit=10, file='array_2d_stream.bin', form='unformatted', access='stream')...
要输出值,请键入 print 命令。 输出n 的值: (dbx) print n n = 2 输出矩阵 twobytwo,格式可能会有所不同: (dbx) print twobytwo twobytwo = (1,1) -1.0 (2,1) -1.0 (1,2) -1.0 (2,2) -1.0 输出矩阵 array: (dbx) print array dbx: "array" is not defined in the current scope ...
subroutineArray(num,size)implicitnoneinteger::sizeintegernum(size)!可以定义一个数组,其大小是通过传递过来的参数决定的。这很实用……returnend (5)save命令:将函数中的变量值在调用之后保留下来,下次调用此函数时该变量的值就是上次保的值。只要在定义时加上save就行:integer, save :: a=1 ...