INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Change rank of allocatable arrays

Change rank of allocatable arrays

(OP)
HI,

Say I have a 50x50 allocatable array and I want to change this to a 100x1 allocatable array. What is the best way to do this? I am using the reshape command but it does not work well with allocatable arrays.

This is a simple question and I suspect there is a simple solution.

My current block of code looks something like this:

do QindIC= 1, NqIC
allocate(q0p(NsFA(QindIC), NqIC))
do FAindIC= 1, NsFA(QindIC)
q0p(FAindIC, QindIC)= qfinalICT(QindIC)%qfinalICvalT(FAindIC, QindIC)
end do
q0pp= reshape(q0p, (/sum(NsFA(:)), ppnull/))
deallocate(q0p)
end do

This results in a "segmentation fault - invalid memory reference" error. Any help would be much appreciated.

Please let me know what you think.

Thank you,

Robert

RE: Change rank of allocatable arrays

You have a 50 X 50 ARRAY OR 2500 ELEMENTS. You are attempting to reshape them into a 100 element array. How is that going to work?

Bill
Lead Application Developer
New York State, USA

RE: Change rank of allocatable arrays

(OP)
That was a bad example. Either way, I solved the problem using the pack intrinsic function.

Thanks anyway!

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close