How about something like:
TRANSPOSE(PACK(TRANSPOSE(A))
???
= Loren P Meissner
-----Original Message-----
From: [log in to unmask]
[mailto:[log in to unmask]] On Behalf Of Aleksandar
Donev
Sent: Tuesday, July 18, 2000 7:39 AM
To: Comp Fortran
Subject: PACK intrinsic with 2D arrays
Hello,
I have a question concerning the PACK array intrinsic of Fortran 90.
I have an array of shape A(N, n), N>>n, and a mask of shape A_MASK(N). I
want to pack A using this mask *along* the first dimension. [...]
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|