Anonymous user
Assigning Values to an Array: Difference between revisions
→{{header|Fortran}}
m (→{{header|Ada}}: added code highlighting) |
|||
Line 140:
=={{header|Fortran}}==
In ISO Fortran 90 or later, use an array initializer (with RESHAPE intrinsic for multidimensional arrays):
REAL, DIMENSION(50) :: A = (/ (1.0/(i*i),i=1,50) /)
REAL, DIMENSION(6) :: B = (/ 0, 60, 120, 180, 240, 300 /)
REAL, DIMENSION(4,4) :: I4 = RESHAPE( (/ 1,0,0,0, 0,1,0,0, 0,0,1,0, 0,0,0,1 /), (/ 4, 4 /) )
In ISO Fortran 90 or later, use array section syntax to assign sections of an array:
B(1:4) = I4(1,:) ! gets row 1 of I4 into first 4 elements of B
A(2:8:2) = I4(:,2) ! gets column 2 of I4 into first 4 even numbered elements of A (stride of 2)
I4(2:4,2:4) = I4(1:3,1:3) ! gets 3x3 subarray of I4 starting at row 1, column 1
! into 3x3 subarray of I4 starting at row 2, column 2
'''Compiler:''' Any ANSI F77 (e.g. [[g77]])
| |||