数组初始化3种方法
1。 DO 循环
2。 类型声明中初始化, 可以使用在声明时使用隐式DO循环
例如:INTEGER,DIMENSION(5)::array1=(/(loop_index,loop_index=1,5)/)
隐式DO循环还可以与常量嵌套和混合:
INTEGER, DIMENSION(100)::array2=(/((0, i=1,4), 5*j, j=1,5)/)
3。 使用READ语句初始化
数组初始化3种方法
1。 DO 循环
2。 类型声明中初始化, 可以使用在声明时使用隐式DO循环
例如:INTEGER,DIMENSION(5)::array1=(/(loop_index,loop_index=1,5)/)
隐式DO循环还可以与常量嵌套和混合:
INTEGER, DIMENSION(100)::array2=(/((0, i=1,4), 5*j, j=1,5)/)
3。 使用READ语句初始化