Fortran使用隐形DO循环和reshape给一维和多维数组赋初值

来源：互联网发布：中国有多强大知乎编辑：程序博客网时间：2024/04/29 04:13

Fortran可以使用隐形DO循环和reshape给一维和多维数组赋初值.

下面以一维数组和二维数组为例,并给出程序结果:

program mainimplicit noneinteger::i,jinteger::a(3)=(/(3*j,j=1,3,1)/)integer::b(6)=(/((i,i=1,2),4*j,j=1,2,1)/)real::c(2,4)=reshape((/1,(i,i=3,8),10/),(/2,4/))write(*,*) 'a(3):',awrite(*,*) 'b(6):',bwrite(*,*)  '!---------------------------------------'write(*,*) 'c(1,:)',c(1,:)write(*,*) 'c(2,:)',c(2,:)write(*,*)  '!-----------------------------------------'end program main

输出结果如下:

赋初值时可能符号(/,...,/)看着不太舒服,gfortran容许使用'['和']'来代替:

program mainimplicit noneinteger::i,jinteger::a(3)=[(3*j,j=1,3,1)]integer::b(6)=[((i,i=1,2),4*j,j=1,2,1)]real::c(2,4)=reshape([1,(i,i=3,8),10],(/2,4/))write(*,*) 'a(3):',awrite(*,*) 'b(6):',bwrite(*,*)  '!---------------------------------------'write(*,*) 'c(1,:)',c(1,:)write(*,*) 'c(2,:)',c(2,:)write(*,*)  '!-----------------------------------------'end program main