以小于1的增量构建数组 - Fortran

Question

我试图在增量步骤中构建数组。我猜测必须有一个类似于matlab矢量建筑的功能，例如，向量（1：0.1：2），它构建一个向量，并以0.1的步长填充1到2的值。有没有办法在Fortran中做到这一点？

Answer 1

您可以使用数组构造函数所示下面的代码：

program main 
    implicit none 
    real,allocatable,dimension(:) :: vec 
    real       :: a,inc 
    integer      :: n ,i 
    a = 1. ! initial value 
    inc = 0.1 ! increment value 
    n = 11 ! number of values 
    allocate(vec(n)) 
    vec = [(a + (i-1) * inc, i=1,n)] ! array constructor 
    write(*,'(11f7.2)') vec 
end program main 

出来：

1.00 1.10 1.20 1.30 1.40 1.50 1.60 1.70 1.80 1.90 2.00