forums.silverfrost.com

[christyleomin]

Hello,

Please can anyone help me here. I can't get this working but really need to...

I have delclared an allocatable array in a module as below.

[christyleomin]

Please can John or anyone advise? I shall be grateful.

[jalih]

Try using assumed-shape array, something like:

[JohnCampbell]

change:

MySubRoutineB (My_Array_New_Name)

dimension My_Array_New_Name(*)

to:

MySubRoutineB (My_Array_New_Name)

double precision My_Array_New_Name(*)

[christyleomin]

@John- Tried but didn't work.

@jalih- it does not give error but gives a warnign stating:

Warning: Required interface for passing assumed shape array is missing from original source

Can the warning be neglected?

[JohnCampbell]

You could simplify the declarations and not use (:) syntax, which requires an interface definition, (unless it is a requirement ?)

The following example does this and you should be able to adapt to your problem

[christyleomin]

Thanks John,

1) When I use ALLOCATABLE arrays, it permits me to use very huge array size.

Doing that (as in your code snippet), will it permit me to use very huge arrays (of size say 3 million or even more?)?

2) If I do not pass the size of the array - is there any other option available?

Thanks again

[JohnCampbell]

1) You should use an error test on allocate, as:

ALLOCATE ( My_Allocated_Array(15), stat=istat )
if ( ISTAT /= 0) then ! respond to error

arrays of 3 million should not be a problem, as you could have up to 1,500 million bytes available.

2) If the subroutine MySubRoutineB needs to know the size of the array, then it must be provided. You can use an interface block or more simply provide it as an argument, as I have shown.
Alterntively you could not provide the array size, as:
real*8 My_Array_New_Name(*)
and then use it. You can write the code ensuring you don't overflow the array size. The compiler will not be able to check this.

John

[christyleomin]

Thanks John,

This is an existing code I'm modifying.

I do not intend using an argument as you provided (if possible)

Now, you say about an interface block.

Already there is a definition as below (elsewhere)

[JohnCampbell]

I think you would be better off to "USE MyModule" in MySubRoutineB and not change the name of the array.

[christyleomin]

Thanks John

Did you mean the statement,
My_Array_New_Name => My_Allocated_Array

alllows to use the array name as

[JohnCampbell]

christyleomin,

Yes that is what I meant.
A good document to use is the Lahey Language Reference .pdf, as it has a good alphabetical list of most Fortran structures.
lahey.com > Support > Documentation > Express Language Reference

John