logical true. false. issue

[milenko76]

I have array and want to use intrinsic pack functions.The problem is that my array is quite a big one so creating mask can be done by repeating true and false.Is there any simple way how I can write witout repeating 80 falses while creating mask?

 

[xwb]

If everything holds the same value, you can do it in a single assignment

logical, dimension(80):: truth
truth = .false.

 

[salgerman]

you can also do it by ranges:

truth(15:23) = .truth.

I am not familiar with masks, but I think there is a way to retrieve indeces in a conditional manner depending on the value of the entries in the other array and create a mask based on that...I left my fortran 90 book somewhere else, but I am sure you can find something about it on-line