UNPACK
— Unpack an array of rank one into an arrayRESULT = UNPACK(VECTOR, MASK, FIELD)
VECTOR | Shall be an array of any type and rank one. It shall have at least as many elements as MASK has TRUE values. |
MASK | Shall be an array of type LOGICAL . |
FIELD | Shall be of the same type as VECTOR and have the same shape as MASK. |
TRUE
elements of MASK replaced by values from VECTOR in array element order. PROGRAM test_unpack integer :: vector(2) = (/1,1/) logical :: mask(4) = (/ .TRUE., .FALSE., .FALSE., .TRUE. /) integer :: field(2,2) = 0, unity(2,2) ! result: unity matrix unity = unpack(vector, reshape(mask, (/2,2/)), field) END PROGRAM
© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-5.4.0/gfortran/UNPACK.html