Creating a matrix in a subroutine

[kalaei]

Here is a small program:

program aa
implicite none
double precision, allocatable:: XX(:,:),XX2(:,:)
Allocate XX(3,4)
....
..
Call TET(XX,XX2)
...
END


Subroutine TET (X,X2)
...
...
Allocate X2(2,3)
..
End subroutine

The problem is that X2 can not be allocate in the subroutin. Is there any way that I can allocate the X2 in a subroutin not in the main program.

Thx

[Steven_L_Intel1]

Yes. X2 must be declared in the subroutine exactly as it is in the main program, with ALLOCATABLE and a dimension of (:,:). And... an explicit interface to TET must be visible to the caller. Either put TET in a module and USE the module., or make TET a contained routine of the main program.