pass an array of array in a subroutine

Question

If I have the following code (thanks to M. Chinoune) in a subroutine

type :: vector
    integer, dimension(:), allocatable :: elements
end type vector

type :: ragged_array
    type(vector), dimension(:), allocatable :: vectors
end type ragged_array

type(ragged_array) :: raggar

allocate( raggar%vectors(2) )
allocate( raggar%vectors(1)%elements(3) )
allocate( raggar%vectors(2)%elements(4) )

raggar%vectors(1)%elements=0 
raggar%vectors(2)%elements=0

if I want to pass raggar in an other subroutine to modify size of raggar. should I do something like :

CALL MySubroutine(raggar)

or

CALL MySubroutine(raggar%vectors%elements)

And then, in my subroutine how can I declare it ?

SUBROUTINE MySubroutine(raggar)
type :: vector
    integer, dimension(:), allocatable :: elements
end type vector

type :: ragged_array
    type(vector), dimension(:), allocatable :: vectors
end type ragged_array

type(ragged_array), INTENT(INOUT):: raggar

I did many tried but I always get error such as :

The type of the actual argument differs from the types of the dummy argument.

or

the shape matching rules of actual arguments and dummy argument have been violated

Place your type definition into a module and use this module in your program and subroutine. — Michael
– Michael, Commented Jun 6, 2017 at 16:53
Oh sorry, it was error because of typing (I have one computer with internet and the other with code....) I have corrected... — Dadep
– Dadep, Commented Jun 6, 2017 at 17:32

Michael · Accepted Answer · 2017-06-07 07:21:03Z

1

Place type definitions into a module and use it in a program and subroutine.

module my
type :: vector
    integer, dimension(:), allocatable :: elements
end type vector

type :: ragged_array
    type(vector), dimension(:), allocatable :: vectors
end type ragged_array
end module

program probe
use my
type(ragged_array) :: ragarr
allocate( ragarr%vectors(2) )
allocate( ragarr%vectors(1)%elements(3) )
allocate( ragarr%vectors(2)%elements(4) )
ragarr%vectors(1)%elements=0 
ragarr%vectors(2)%elements=0 
CALL MySubroutine(ragarr)
end program

SUBROUTINE MySubroutine(rr)
use my
type(ragged_array), INTENT(INOUT):: rr
end subroutine

edited Jun 7, 2017 at 7:21

answered Jun 6, 2017 at 17:37

Michael

5,3452 gold badges16 silver badges37 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

Dadep Over a year ago

I already have a module with my subroutines, is it better to create two separated module ? o can I but the subroutine in the same module ? thx! (because I want to call the subroutine in an other subroutine)

Michael Over a year ago

This module contains the types shared by the main program and the subroutine. If you already have a module used by program and subroutine, you can place the definitions there.

Dadep Over a year ago

Ok it work ! thanks a lot, and if I want to duplicate rr in MySubroutine is there an equivalent of size(rr) ?

Dadep Over a year ago

I have found a way using a loop reading each size of each elements ! thanks you so much to make me understand modules ! !

Collectives™ on Stack Overflow

pass an array of array in a subroutine

1 Answer 1

4 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related