unbalanced parentheses error

[bub2357]

I keep getting an unbalanced parentheses error when trying to do a cula_dgemm call? Any suggestions. Running Tesla 40c in Windows 8.1, but I got the same error in Linux.

[bub2357]

PROGRAM CULA_TEST

use CULA_STATUS
use CULA_LAPACK

INTRINSIC MAX, MIN

INTEGER M, N, K, STATUS, L
PARAMETER ( M = 8192, N = 8192, K = 8192 )

REAL A(M, N)
REAL TAU(K)

REAL*8 AA(3,3), BB(3,3), CC(3,3), ALPHA, BETA

AA(1,1) = 1.
AA(2,1) = 1.
AA(3,1) = 1.
AA(1,2) = 1.
AA(2,2) = 1.
AA(3,2) = 1.
AA(1,3) = 1.
AA(2,3) = 1.
AA(3,3) = 1.

BB(1,1) = 1.
BB(2,1) = 1.
BB(3,1) = 1.
BB(1,2) = 1.
BB(2,2) = 1.
BB(3,2) = 1.
BB(1,3) = 1.
BB(2,3) = 1.
BB(3,3) = 1.

CC(1,1) = 1.
CC(2,1) = 1.
CC(3,1) = 1.
CC(1,2) = 1.
CC(2,2) = 1.
CC(3,2) = 1.
CC(1,3) = 1.
CC(2,3) = 1.
CC(3,3) = 1.

L = 3

WRITE(*,*) 'Initializing CULA'
STATUS = CULA_INITIALIZE()
CALL CULA_CHECK_STATUS(STATUS)

WRITE(*,*) 'Calling CULA_SGEQRF'
STATUS = CULA_SGEQRF(M, N, A, M, TAU)
CALL CULA_CHECK_STATUS(STATUS)

ALPHA = 1.
BETA = 1.

STATUS = CULA_DGEMM('N', 'N', L, L, L, ALPHA, AA, L, BB, L, BETA, CC, L)



WRITE(*,*) CC(1,1), CC(1,2), CC(1,3)

WRITE(*,*) 'Shutting down CULA'
CALL CULA_SHUTDOWN()
END