Compilation Interface issue with dfeast_scsrev

Hi,

I recently upgrades to XE2013 to get access to the extended eigensolvers in the MKL11 libraries.

I am trying to use dfeast_scsrev but am getting some compilation errors.

Here is my code:

    SUBROUTINE TTTT(IVECT,STIFFNESS_MATRIX)

    USE SPARSE_MATRIX_CLASS

    

 !   INCLUDE 'mkl_solvers_ee.fi'

    

      

    INTEGER::fpm(128)

    REAL(8)::EMIN,EMAX,EPSOUT

    REAL(8),ALLOCATABLE::E(:),X(:,:),RES(:)

    INTEGER::M0,LOOP,INFO,M

     

    INTEGER::IVECT(*)

    TYPE(SPARSE_MATRIX)::STIFFNESS_MATRIX

  

    CALL SPARSE_MATRIX_STORAGE('CSR',STIFFNESS_MATRIX)

   

    call feastinit (fpm)

           

    EMIN=0D0 ; EMAX=1000D0 ; M0=ivect(12)

    ALLOCATE(E(M0),X(IVECT(12),M0),RES(M0))

      

    call dfeast_scsrev('L',ivect(12),STIFFNESS_MATRIX%MATRIX,STIFFNESS_MATRIX%ROWS(1:ivect(12)+1),STIFFNESS_MATRIX%COLUMNS,fpm, epsout, loop, emin,emax, m0, e, x, m, res, info)

  

    RETURN

    END SUBROUTINE

When I compile this code I get three errors:

C:\RMA\Programs\EFE_V1.0\ansys\SSSS.f90(24): error #8055: The procedure has a dummy argument that has the ALLOCATABLE, ASYNCHRONOUS, OPTIONAL, POINTER, TARGET, VALUE or VOLATILE attribute. Required explicit interface is missing from original source.   [MATRIX]

C:\RMA\Programs\EFE_V1.0\ansys\SSSS.f90(24): error #8055: The procedure has a dummy argument that has the ALLOCATABLE, ASYNCHRONOUS, OPTIONAL, POINTER, TARGET, VALUE or VOLATILE attribute. Required explicit interface is missing from original source.   [ROWS]

C:\RMA\Programs\EFE_V1.0\ansys\SSSS.f90(24): error #8055: The procedure has a dummy argument that has the ALLOCATABLE, ASYNCHRONOUS, OPTIONAL, POINTER, TARGET, VALUE or VOLATILE attribute. Required explicit interface is missing from original source.   [COLUMNS]

If I uncomment the include statement I get the following error:

SSSS.f90

C:\Program Files\Intel\Composer XE 2013 SP1\mkl\include\mkl_solvers_ee.fi(459): error #8000:  There is a conflict between local interface block and external interface block.   [SA]

The type Sparse_Matrix is:

    TYPE SPARSE_MATRIX

    

        INTEGER::NUMBER_OF_ROWS=0

        

        INTEGER::NUMBER_OF_COLUMNS=0

        

        INTEGER::NUMBER_OF_NON_ZEROS=0

        

        INTEGER,ALLOCATABLE::ROWS(:)

        

        INTEGER,ALLOCATABLE::COLUMNS(:)

    

        REAL(8),ALLOCATABLE::MATRIX(:)

    END TYPE SPARSE MATRIX

Any help in solving this issue would be gratefully received.

Thanks, ACAR