open TELEMAC-MASCARET The mathematically superior suite of solvers

Hello Telemac Users,

I am facing a problem and need your help please.

I am changing a subroutine and in my subroutine i am using a matrix of dimensions
(1894,49).

I am using another matrix to store the transpose value of above defined matrix.

At the end of my subroutine i am trying to print an element of this transpose matrix but I am getting an error out_t2d_yen-exp.exe has stopped working.

below is the code i have written,

DOUBLE PRECISION, DIMENSION(1894,49) :: INPUT_T
DOUBLE PRECISION, DIMENSION(49,1894) :: INPUT

INPUT=TRANSPOSE(INPUT_T)
WRITE(LU,*) 'INPUT=', INPUT(2,2)


But if I reduce the size of the matrix for e.g to (10,5) the program executes successfully.

Can you please tell me what is the problem, is it some kind of memory error?

Any ideas how to solve it?

Thanks in advance for your valuable input...