I'd like to thank everyone for their input.
It seems that the problem has been solved so quickly that everyone
remembers the question. The interface should be
INTERFACE blas_GEMM
SUBROUTINE DGEMM( TRANSA, TRANSB, M, N, K, &
DALPHA, DA, LDA, DB, LDB, DBETA, DC, LDC )
USE n_mod
CHARACTER(LEN=1) TRANSA, TRANSB
INTEGER M, N, K, LDA, LDB, LDC
REAL(dbl) DALPHA, DA(LDA,*), DB(LDB,*), DBETA, DC(LDC,*)
END SUBROUTINE DGEMM
END INTERFACE
At this point the call with an actual 2-dimensional array 'DA' would
be correct both when using the generic and specific name.
--------------------------------------------------------------------
Artur Swietanowski mailto:[log in to unmask]
Institut fuer Statistik, Operations Research und Computerverfahren,
Universitaet Wien, Universitaetsstr. 5, A-1010 Wien, Austria
tel. +43 (1) 407 63 55 - 120 fax +43 (1) 406 41 59
--------------------------------------------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|