Real a(2,3)
a = Reshape( (/-1.,2.,-3.,4.,5.,-6./), (/2,3/))
Print *, Pack(a,Mask=a>0)
End
Execution Results2.0000000 4.0000000 5.0000000
<Example Program>
| Program pack_example Real a(2,3) a = Reshape( (/-1.,2.,-3.,4.,5.,-6./), (/2,3/)) Print *, Pack(a,Mask=a>0) End |
|
| Execution Results 2.0000000 4.0000000 5.0000000 |
|