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

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

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

 

program main
implicit none
integer::i,j
integer::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):',a
write(*,*) 'b(6):',b

write(*,*)  '!---------------------------------------'
write(*,*) 'c(1,:)',c(1,:)
write(*,*) 'c(2,:)',c(2,:)
write(*,*)  '!-----------------------------------------'

end program main

输出结果如下:

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

 

program main
implicit none
integer::i,j
integer::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):',a
write(*,*) 'b(6):',b

write(*,*)  '!---------------------------------------'
write(*,*) 'c(1,:)',c(1,:)
write(*,*) 'c(2,:)',c(2,:)
write(*,*)  '!-----------------------------------------'

end program main