plasma_zf90.F90

Go to the documentation of this file.

!
!     Copyright © 2011 The Numerical Algorithms Group Ltd. All rights reserved.
!   
!     Redistribution and use in source and binary forms, with or without
!     modification, are permitted provided that the following conditions are
!     met:
!     - Redistributions of source code must retain the above copyright notice,
!       this list of conditions, and the following disclaimer.
!     - Redistributions in binary form must reproduce the above copyright
!       notice, this list of conditions and the following disclaimer listed in
!       this license in the documentation and/or other materials provided with
!       the distribution.
!     - Neither the name of the copyright holders nor the names of its
!       contributors may be used to endorse or promote products derived from
!       this software without specific prior written permission.
!     
!     This software is provided by the copyright holders and contributors "as
!     is" and any express or implied warranties, including, but not limited
!     to, the implied warranties of merchantability and fitness for a
!     particular purpose are disclaimed. in no event shall the copyright owner
!     or contributors be liable for any direct, indirect, incidental, special,
!     exemplary, or consequential damages (including, but not limited to,
!     procurement of substitute goods or services; loss of use, data, or
!     profits; or business interruption) however caused and on any theory of
!     liability, whether in contract, strict liability, or tort (including
!     negligence or otherwise) arising in any way out of the use of this
!     software, even if advised of the possibility of such damage.
!
!
! @file plasma_zf90.F90
!
!  PLASMA fortran 90 interface
!  PLASMA is a software package provided by Univ. of Tennessee,
!  Univ. of California Berkeley and Univ. of Colorado Denver
!
! @version 2.4.2
! @author Numerical Algorithm Group
! @author Mathieu Faverge
! @date 2011-09-15
! @precisions normal z -> c d s
!
#define PRECISION_z

module plasma_z

!      private PLASMA_zgebrd_c
      interface
         function plasma_zgebrd_c(jobu,jobvt,M,N,A,LDA,D,E,U,LDU,VT,LDVT,T) &
          & bind(c, name='PLASMA_zgebrd')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgebrd_c
            integer(kind=c_int), value :: jobu
            integer(kind=c_int), value :: jobvt
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: d
            type(c_ptr), value :: e
            type(c_ptr), value :: u
            integer(kind=c_int), value :: ldu
            type(c_ptr), value :: vt
            integer(kind=c_int), value :: ldvt
            type(c_ptr), value :: t
         end function plasma_zgebrd_c
      end interface

!      private PLASMA_zgelqf_c
      interface
         function plasma_zgelqf_c(M,N,A,LDA,T) &
          & bind(c, name='PLASMA_zgelqf')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgelqf_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
         end function plasma_zgelqf_c
      end interface

!      private PLASMA_zgelqs_c
      interface
         function plasma_zgelqs_c(M,N,NRHS,A,LDA,T,B,LDB) &
          & bind(c, name='PLASMA_zgelqs')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgelqs_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zgelqs_c
      end interface

!      private PLASMA_zgels_c
      interface
         function plasma_zgels_c(trans,M,N,NRHS,A,LDA,T,B,LDB) &
          & bind(c, name='PLASMA_zgels')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgels_c
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zgels_c
      end interface

!      private PLASMA_zgemm_c
      interface
         function plasma_zgemm_c(transA,transB,M,N,K,alpha,A,LDA,B,LDB,beta,C,LDC) &
          & bind(c, name='PLASMA_zgemm')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgemm_c
            integer(kind=c_int), value :: transa
            integer(kind=c_int), value :: transb
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
            integer(kind=c_int), value :: ldc
         end function plasma_zgemm_c
      end interface

!      private PLASMA_zgeqrf_c
      interface
         function plasma_zgeqrf_c(M,N,A,LDA,T) &
          & bind(c, name='PLASMA_zgeqrf')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgeqrf_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
         end function plasma_zgeqrf_c
      end interface

!      private PLASMA_zgeqrs_c
      interface
         function plasma_zgeqrs_c(M,N,NRHS,A,LDA,T,B,LDB) &
          & bind(c, name='PLASMA_zgeqrs')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgeqrs_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zgeqrs_c
      end interface

!      private PLASMA_zgesv_c
      interface
         function plasma_zgesv_c(N,NRHS,A,LDA,IPIV,B,LDB) &
          & bind(c, name='PLASMA_zgesv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgesv_c
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zgesv_c
      end interface

!      private PLASMA_zgesv_incpiv_c
      interface
         function plasma_zgesv_incpiv_c(N,NRHS,A,LDA,L,IPIV,B,LDB) &
          & bind(c, name='PLASMA_zgesv_incpiv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgesv_incpiv_c
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zgesv_incpiv_c
      end interface

!      private PLASMA_zgesvd_c
      interface
         function plasma_zgesvd_c(jobu,jobvt,M,N,A,LDA,S,U,LDU,VT,LDVT,T) &
          & bind(c, name='PLASMA_zgesvd')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgesvd_c
            integer(kind=c_int), value :: jobu
            integer(kind=c_int), value :: jobvt
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: s
            type(c_ptr), value :: u
            integer(kind=c_int), value :: ldu
            type(c_ptr), value :: vt
            integer(kind=c_int), value :: ldvt
            type(c_ptr), value :: t
         end function plasma_zgesvd_c
      end interface

!      private PLASMA_zgetrf_c
      interface
         function plasma_zgetrf_c(M,N,A,LDA,IPIV) &
          & bind(c, name='PLASMA_zgetrf')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrf_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: ipiv
         end function plasma_zgetrf_c
      end interface

!      private PLASMA_zgetrf_incpiv_c
      interface
         function plasma_zgetrf_incpiv_c(M,N,A,LDA,L,IPIV) &
          & bind(c, name='PLASMA_zgetrf_incpiv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrf_incpiv_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
         end function plasma_zgetrf_incpiv_c
      end interface

!      private PLASMA_zgetrs_c
      interface
         function plasma_zgetrs_c(trans,N,NRHS,A,LDA,IPIV,B,LDB) &
          & bind(c, name='PLASMA_zgetrs')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrs_c
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zgetrs_c
      end interface

!      private PLASMA_zgetrs_incpiv_c
      interface
         function plasma_zgetrs_incpiv_c(trans,N,NRHS,A,LDA,L,IPIV,B,LDB) &
          & bind(c, name='PLASMA_zgetrs_incpiv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrs_incpiv_c
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zgetrs_incpiv_c
      end interface

#if defined(PRECISION_z) || defined(PRECISION_c)
!      private PLASMA_zhemm_c
      interface
         function plasma_zhemm_c(side,uplo,M,N,alpha,A,LDA,B,LDB,beta,C,LDC) &
          & bind(c, name='PLASMA_zhemm')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhemm_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
            integer(kind=c_int), value :: ldc
         end function plasma_zhemm_c
      end interface

!      private PLASMA_zherk_c
      interface
         function plasma_zherk_c(uplo,trans,N,K,alpha,A,LDA,beta,C,LDC) &
          & bind(c, name='PLASMA_zherk')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zherk_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            real(kind=c_double), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            real(kind=c_double), value :: beta
            type(c_ptr), value :: c
            integer(kind=c_int), value :: ldc
         end function plasma_zherk_c
      end interface

!      private PLASMA_zher2k_c
      interface
         function plasma_zher2k_c(uplo,trans,N,K,alpha,A,LDA,B,LDB,beta,C,LDC) &
          & bind(c, name='PLASMA_zher2k')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zher2k_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
            real(kind=c_double), value :: beta
            type(c_ptr), value :: c
            integer(kind=c_int), value :: ldc
         end function plasma_zher2k_c
      end interface
#endif

!      private PLASMA_zheev_c
      interface
         function plasma_zheev_c(jobz,uplo,N,A,LDA,W,T,Q,LDQ) &
          & bind(c, name='PLASMA_zheev')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zheev_c
            integer(kind=c_int), value :: jobz
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: w
            type(c_ptr), value :: t
            type(c_ptr), value :: q
            integer(kind=c_int), value :: ldq
         end function plasma_zheev_c
      end interface

!      private PLASMA_zhegv_c
      interface
         function plasma_zhegv_c(itype,jobz,uplo,N,A,LDA,B,LDB,W,T,Q,LDQ) &
          & bind(c, name='PLASMA_zhegv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhegv_c
            integer(kind=c_int), value :: itype
            integer(kind=c_int), value :: jobz
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
            type(c_ptr), value :: w
            type(c_ptr), value :: t
            type(c_ptr), value :: q
            integer(kind=c_int), value :: ldq
         end function plasma_zhegv_c
      end interface

!      private PLASMA_zhegst_c
      interface
         function plasma_zhegst_c(itype,uplo,N,A,LDA,B,LDB) &
          & bind(c, name='PLASMA_zhegst')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhegst_c
            integer(kind=c_int), value :: itype
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zhegst_c
      end interface

!      private PLASMA_zhetrd_c
      interface
         function plasma_zhetrd_c(jobz,uplo,N,A,LDA,D,E,T,Q,LDQ) &
          & bind(c, name='PLASMA_zhetrd')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhetrd_c
            integer(kind=c_int), value :: jobz
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: d
            type(c_ptr), value :: e
            type(c_ptr), value :: t
            type(c_ptr), value :: q
            integer(kind=c_int), value :: ldq
         end function plasma_zhetrd_c
      end interface

!      private PLASMA_zlange_c
      interface
         function plasma_zlange_c(norm,M,N,A,LDA,work) &
          & bind(c, name='PLASMA_zlange')
            use iso_c_binding
            implicit none
            real(kind=c_double) :: plasma_zlange_c
            integer(kind=c_int), value :: norm
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: work
         end function plasma_zlange_c
      end interface

#if defined(PRECISION_z) || defined(PRECISION_c)
!      private PLASMA_zlanhe_c
      interface
         function plasma_zlanhe_c(norm,uplo,N,A,LDA,work) &
          & bind(c, name='PLASMA_zlanhe')
            use iso_c_binding
            implicit none
            real(kind=c_double) :: plasma_zlanhe_c
            integer(kind=c_int), value :: norm
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: work
         end function plasma_zlanhe_c
      end interface
#endif

!      private PLASMA_zlansy_c
      interface
         function plasma_zlansy_c(norm,uplo,N,A,LDA,work) &
          & bind(c, name='PLASMA_zlansy')
            use iso_c_binding
            implicit none
            real(kind=c_double) :: plasma_zlansy_c
            integer(kind=c_int), value :: norm
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: work
         end function plasma_zlansy_c
      end interface

!      private PLASMA_zlaswp_c
      interface
         function plasma_zlaswp_c(N,A,LDA,K1,K2,IPIV,INCX) &
          & bind(c, name='PLASMA_zlaswp')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zlaswp_c
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            integer(kind=c_int), value :: k1
            integer(kind=c_int), value :: k2
            type(c_ptr), value :: ipiv
            integer(kind=c_int), value :: incx
         end function plasma_zlaswp_c
      end interface

!      private PLASMA_zlauum_c
      interface
         function plasma_zlauum_c(uplo,N,A,LDA) &
          & bind(c, name='PLASMA_zlauum')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zlauum_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
         end function plasma_zlauum_c
      end interface

! PLASMA_zplghe uses unsigned ints, not generating Fortran interface

! PLASMA_zplgsy uses unsigned ints, not generating Fortran interface

! PLASMA_zplrnt uses unsigned ints, not generating Fortran interface

!      private PLASMA_zposv_c
      interface
         function plasma_zposv_c(uplo,N,NRHS,A,LDA,B,LDB) &
          & bind(c, name='PLASMA_zposv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zposv_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zposv_c
      end interface

!      private PLASMA_zpotrf_c
      interface
         function plasma_zpotrf_c(uplo,N,A,LDA) &
          & bind(c, name='PLASMA_zpotrf')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zpotrf_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
         end function plasma_zpotrf_c
      end interface

!      private PLASMA_zpotri_c
      interface
         function plasma_zpotri_c(uplo,N,A,LDA) &
          & bind(c, name='PLASMA_zpotri')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zpotri_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
         end function plasma_zpotri_c
      end interface

!      private PLASMA_zpotrs_c
      interface
         function plasma_zpotrs_c(uplo,N,NRHS,A,LDA,B,LDB) &
          & bind(c, name='PLASMA_zpotrs')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zpotrs_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zpotrs_c
      end interface

!      private PLASMA_zsymm_c
      interface
         function plasma_zsymm_c(side,uplo,M,N,alpha,A,LDA,B,LDB,beta,C,LDC) &
          & bind(c, name='PLASMA_zsymm')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zsymm_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
            integer(kind=c_int), value :: ldc
         end function plasma_zsymm_c
      end interface

!      private PLASMA_zsyrk_c
      interface
         function plasma_zsyrk_c(uplo,trans,N,K,alpha,A,LDA,beta,C,LDC) &
          & bind(c, name='PLASMA_zsyrk')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zsyrk_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
            integer(kind=c_int), value :: ldc
         end function plasma_zsyrk_c
      end interface

!      private PLASMA_zsyr2k_c
      interface
         function plasma_zsyr2k_c(uplo,trans,N,K,alpha,A,LDA,B,LDB,beta,C,LDC) &
          & bind(c, name='PLASMA_zsyr2k')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zsyr2k_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
            integer(kind=c_int), value :: ldc
         end function plasma_zsyr2k_c
      end interface

!      private PLASMA_ztrmm_c
      interface
         function plasma_ztrmm_c(side,uplo,transA,diag,N,NRHS,alpha,A,LDA,B,LDB) &
          & bind(c, name='PLASMA_ztrmm')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrmm_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: transa
            integer(kind=c_int), value :: diag
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_ztrmm_c
      end interface

!      private PLASMA_ztrsm_c
      interface
         function plasma_ztrsm_c(side,uplo,transA,diag,N,NRHS,alpha,A,LDA,B,LDB) &
          & bind(c, name='PLASMA_ztrsm')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrsm_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: transa
            integer(kind=c_int), value :: diag
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_ztrsm_c
      end interface

!      private PLASMA_ztrsmpl_c
      interface
         function plasma_ztrsmpl_c(N,NRHS,A,LDA,L,IPIV,B,LDB) &
          & bind(c, name='PLASMA_ztrsmpl')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrsmpl_c
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: nrhs
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_ztrsmpl_c
      end interface

!      private PLASMA_ztrtri_c
      interface
         function plasma_ztrtri_c(uplo,diag,N,A,LDA) &
          & bind(c, name='PLASMA_ztrtri')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrtri_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: diag
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
         end function plasma_ztrtri_c
      end interface

!      private PLASMA_zunglq_c
      interface
         function plasma_zunglq_c(M,N,K,A,LDA,T,B,LDB) &
          & bind(c, name='PLASMA_zunglq')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zunglq_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zunglq_c
      end interface

!      private PLASMA_zungqr_c
      interface
         function plasma_zungqr_c(M,N,K,A,LDA,T,B,LDB) &
          & bind(c, name='PLASMA_zungqr')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zungqr_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zungqr_c
      end interface

!      private PLASMA_zunmlq_c
      interface
         function plasma_zunmlq_c(side,trans,M,N,K,A,LDA,T,B,LDB) &
          & bind(c, name='PLASMA_zunmlq')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zunmlq_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zunmlq_c
      end interface

!      private PLASMA_zunmqr_c
      interface
         function plasma_zunmqr_c(side,trans,M,N,K,A,LDA,T,B,LDB) &
          & bind(c, name='PLASMA_zunmqr')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zunmqr_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: trans
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            integer(kind=c_int), value :: k
            type(c_ptr), value :: a
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: t
            type(c_ptr), value :: b
            integer(kind=c_int), value :: ldb
         end function plasma_zunmqr_c
      end interface

!      private PLASMA_zgecfi_c
      interface
         function plasma_zgecfi_c(m,n,A,fin,imb,inb,fout,omb,onb) &
          & bind(c, name='PLASMA_zgecfi')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgecfi_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: fin
            integer(kind=c_int), value :: imb
            integer(kind=c_int), value :: inb
            integer(kind=c_int), value :: fout
            integer(kind=c_int), value :: omb
            integer(kind=c_int), value :: onb
         end function plasma_zgecfi_c
      end interface

!      private PLASMA_zgetmi_c
      interface
         function plasma_zgetmi_c(m,n,A,fin,mb,nb) &
          & bind(c, name='PLASMA_zgetmi')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetmi_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr), value :: a
            integer(kind=c_int), value :: fin
            integer(kind=c_int), value :: mb
            integer(kind=c_int), value :: nb
         end function plasma_zgetmi_c
      end interface

!      private PLASMA_zgebrd_Tile_c
      interface
         function plasma_zgebrd_tile_c(jobu,jobvt,A,D,E,U,VT,T) &
          & bind(c, name='PLASMA_zgebrd_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgebrd_tile_c
            integer(kind=c_int), value :: jobu
            integer(kind=c_int), value :: jobvt
            type(c_ptr), value :: a
            type(c_ptr), value :: d
            type(c_ptr), value :: e
            type(c_ptr), value :: u
            type(c_ptr), value :: vt
            type(c_ptr), value :: t
         end function plasma_zgebrd_tile_c
      end interface

!      private PLASMA_zgelqf_Tile_c
      interface
         function plasma_zgelqf_tile_c(A,T) &
          & bind(c, name='PLASMA_zgelqf_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgelqf_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: t
         end function plasma_zgelqf_tile_c
      end interface

!      private PLASMA_zgelqs_Tile_c
      interface
         function plasma_zgelqs_tile_c(A,B,T) &
          & bind(c, name='PLASMA_zgelqs_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgelqs_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            type(c_ptr), value :: t
         end function plasma_zgelqs_tile_c
      end interface

!      private PLASMA_zgels_Tile_c
      interface
         function plasma_zgels_tile_c(trans,A,T,B) &
          & bind(c, name='PLASMA_zgels_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgels_tile_c
            integer(kind=c_int), value :: trans
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            type(c_ptr), value :: t
         end function plasma_zgels_tile_c
      end interface

!      private PLASMA_zgemm_Tile_c
      interface
         function plasma_zgemm_tile_c(transA,transB,alpha,A,B,beta,C) &
          & bind(c, name='PLASMA_zgemm_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgemm_tile_c
            integer(kind=c_int), value :: transa
            integer(kind=c_int), value :: transb
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
         end function plasma_zgemm_tile_c
      end interface

!      private PLASMA_zgeqrf_Tile_c
      interface
         function plasma_zgeqrf_tile_c(A,T) &
          & bind(c, name='PLASMA_zgeqrf_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgeqrf_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: t
         end function plasma_zgeqrf_tile_c
      end interface

!      private PLASMA_zgeqrs_Tile_c
      interface
         function plasma_zgeqrs_tile_c(A,T,B) &
          & bind(c, name='PLASMA_zgeqrs_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgeqrs_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            type(c_ptr), value :: t
         end function plasma_zgeqrs_tile_c
      end interface

!      private PLASMA_zgesv_Tile_c
      interface
         function plasma_zgesv_tile_c(A,IPIV,B) &
          & bind(c, name='PLASMA_zgesv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgesv_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
         end function plasma_zgesv_tile_c
      end interface

!      private PLASMA_zgesv_incpiv_Tile_c
      interface
         function plasma_zgesv_incpiv_tile_c(A,L,IPIV,B) &
          & bind(c, name='PLASMA_zgesv_incpiv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgesv_incpiv_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
         end function plasma_zgesv_incpiv_tile_c
      end interface

!      private PLASMA_zgesvd_Tile_c
      interface
         function plasma_zgesvd_tile_c(jobu,jobvt,A,S,U,VT,T) &
          & bind(c, name='PLASMA_zgesvd_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgesvd_tile_c
            integer(kind=c_int), value :: jobu
            integer(kind=c_int), value :: jobvt
            type(c_ptr), value :: a
            type(c_ptr), value :: s
            type(c_ptr), value :: u
            type(c_ptr), value :: vt
            type(c_ptr), value :: t
         end function plasma_zgesvd_tile_c
      end interface

!      private PLASMA_zgetrf_Tile_c
      interface
         function plasma_zgetrf_tile_c(A,IPIV) &
          & bind(c, name='PLASMA_zgetrf_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrf_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: ipiv
         end function plasma_zgetrf_tile_c
      end interface

!      private PLASMA_zgetrf_incpiv_Tile_c
      interface
         function plasma_zgetrf_incpiv_tile_c(A,L,IPIV) &
          & bind(c, name='PLASMA_zgetrf_incpiv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrf_incpiv_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
         end function plasma_zgetrf_incpiv_tile_c
      end interface

!      private PLASMA_zgetrs_Tile_c
      interface
         function plasma_zgetrs_tile_c(trans,A,IPIV,B) &
          & bind(c, name='PLASMA_zgetrs_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrs_tile_c
            integer(kind=c_int), value :: trans
            type(c_ptr), value :: a
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
         end function plasma_zgetrs_tile_c
      end interface

!      private PLASMA_zgetrs_incpiv_Tile_c
      interface
         function plasma_zgetrs_incpiv_tile_c(A,L,IPIV,B) &
          & bind(c, name='PLASMA_zgetrs_incpiv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zgetrs_incpiv_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
         end function plasma_zgetrs_incpiv_tile_c
      end interface

#if defined(PRECISION_z) || defined(PRECISION_c)
!      private PLASMA_zhemm_Tile_c
      interface
         function plasma_zhemm_tile_c(side,uplo,alpha,A,B,beta,C) &
          & bind(c, name='PLASMA_zhemm_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhemm_tile_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
         end function plasma_zhemm_tile_c
      end interface

!      private PLASMA_zherk_Tile_c
      interface
         function plasma_zherk_tile_c(uplo,trans,alpha,A,beta,C) &
          & bind(c, name='PLASMA_zherk_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zherk_tile_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            real(kind=c_double), value :: alpha
            type(c_ptr), value :: a
            real(kind=c_double), value :: beta
            type(c_ptr), value :: c
         end function plasma_zherk_tile_c
      end interface

!      private PLASMA_zher2k_Tile_c
      interface
         function plasma_zher2k_tile_c(uplo,trans,alpha,A,B,beta,C) &
          & bind(c, name='PLASMA_zher2k_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zher2k_tile_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            real(kind=c_double), value :: beta
            type(c_ptr), value :: c
         end function plasma_zher2k_tile_c
      end interface
#endif

!      private PLASMA_zheev_Tile_c
      interface
         function plasma_zheev_tile_c(jobz,uplo,A,W,T,Q) &
          & bind(c, name='PLASMA_zheev_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zheev_tile_c
            integer(kind=c_int), value :: jobz
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: w
            type(c_ptr), value :: t
            type(c_ptr), value :: q
         end function plasma_zheev_tile_c
      end interface

!      private PLASMA_zhegv_Tile_c
      interface
         function plasma_zhegv_tile_c(itype,jobz,uplo,A,B,W,T,Q) &
          & bind(c, name='PLASMA_zhegv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhegv_tile_c
            integer(kind=c_int), value :: itype
            integer(kind=c_int), value :: jobz
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            type(c_ptr), value :: w
            type(c_ptr), value :: t
            type(c_ptr), value :: q
         end function plasma_zhegv_tile_c
      end interface

!      private PLASMA_zhegst_Tile_c
      interface
         function plasma_zhegst_tile_c(itype,uplo,A,B) &
          & bind(c, name='PLASMA_zhegst_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhegst_tile_c
            integer(kind=c_int), value :: itype
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: b
         end function plasma_zhegst_tile_c
      end interface

!      private PLASMA_zhetrd_Tile_c
      interface
         function plasma_zhetrd_tile_c(jobz,uplo,A,D,E,T,Q) &
          & bind(c, name='PLASMA_zhetrd_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zhetrd_tile_c
            integer(kind=c_int), value :: jobz
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: d
            type(c_ptr), value :: e
            type(c_ptr), value :: t
            type(c_ptr), value :: q
         end function plasma_zhetrd_tile_c
      end interface

!      private PLASMA_zlange_Tile_c
      interface
         function plasma_zlange_tile_c(norm,A,work) &
          & bind(c, name='PLASMA_zlange_Tile')
            use iso_c_binding
            implicit none
            real(kind=c_double) :: plasma_zlange_tile_c
            integer(kind=c_int), value :: norm
            type(c_ptr), value :: a
            type(c_ptr), value :: work
         end function plasma_zlange_tile_c
      end interface

#if defined(PRECISION_z) || defined(PRECISION_c)
!      private PLASMA_zlanhe_Tile_c
      interface
         function plasma_zlanhe_tile_c(norm,uplo,A,work) &
          & bind(c, name='PLASMA_zlanhe_Tile')
            use iso_c_binding
            implicit none
            real(kind=c_double) :: plasma_zlanhe_tile_c
            integer(kind=c_int), value :: norm
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: work
         end function plasma_zlanhe_tile_c
      end interface
#endif

!      private PLASMA_zlansy_Tile_c
      interface
         function plasma_zlansy_tile_c(norm,uplo,A,work) &
          & bind(c, name='PLASMA_zlansy_Tile')
            use iso_c_binding
            implicit none
            real(kind=c_double) :: plasma_zlansy_tile_c
            integer(kind=c_int), value :: norm
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: work
         end function plasma_zlansy_tile_c
      end interface

!      private PLASMA_zlaswp_Tile_c
      interface
         function plasma_zlaswp_tile_c(A,K1,K2,IPIV,INCX) &
          & bind(c, name='PLASMA_zlaswp_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zlaswp_tile_c
            type(c_ptr), value :: a
            integer(kind=c_int), value :: k1
            integer(kind=c_int), value :: k2
            type(c_ptr), value :: ipiv
            integer(kind=c_int), value :: incx
         end function plasma_zlaswp_tile_c
      end interface

!      private PLASMA_zlauum_Tile_c
      interface
         function plasma_zlauum_tile_c(uplo,A) &
          & bind(c, name='PLASMA_zlauum_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zlauum_tile_c
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
         end function plasma_zlauum_tile_c
      end interface

! PLASMA_zplghe_Tile uses unsigned ints, not generating Fortran interface

! PLASMA_zplgsy_Tile uses unsigned ints, not generating Fortran interface

! PLASMA_zplrnt_Tile uses unsigned ints, not generating Fortran interface

!      private PLASMA_zposv_Tile_c
      interface
         function plasma_zposv_tile_c(uplo,A,B) &
          & bind(c, name='PLASMA_zposv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zposv_tile_c
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: b
         end function plasma_zposv_tile_c
      end interface

!      private PLASMA_zpotrf_Tile_c
      interface
         function plasma_zpotrf_tile_c(uplo,A) &
          & bind(c, name='PLASMA_zpotrf_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zpotrf_tile_c
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
         end function plasma_zpotrf_tile_c
      end interface

!      private PLASMA_zpotri_Tile_c
      interface
         function plasma_zpotri_tile_c(uplo,A) &
          & bind(c, name='PLASMA_zpotri_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zpotri_tile_c
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
         end function plasma_zpotri_tile_c
      end interface

!      private PLASMA_zpotrs_Tile_c
      interface
         function plasma_zpotrs_tile_c(uplo,A,B) &
          & bind(c, name='PLASMA_zpotrs_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zpotrs_tile_c
            integer(kind=c_int), value :: uplo
            type(c_ptr), value :: a
            type(c_ptr), value :: b
         end function plasma_zpotrs_tile_c
      end interface

!      private PLASMA_zsymm_Tile_c
      interface
         function plasma_zsymm_tile_c(side,uplo,alpha,A,B,beta,C) &
          & bind(c, name='PLASMA_zsymm_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zsymm_tile_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
         end function plasma_zsymm_tile_c
      end interface

!      private PLASMA_zsyrk_Tile_c
      interface
         function plasma_zsyrk_tile_c(uplo,trans,alpha,A,beta,C) &
          & bind(c, name='PLASMA_zsyrk_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zsyrk_tile_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
         end function plasma_zsyrk_tile_c
      end interface

!      private PLASMA_zsyr2k_Tile_c
      interface
         function plasma_zsyr2k_tile_c(uplo,trans,alpha,A,B,beta,C) &
          & bind(c, name='PLASMA_zsyr2k_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zsyr2k_tile_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: trans
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            type(c_ptr), value :: b
            complex(kind=c_double_complex), value :: beta
            type(c_ptr), value :: c
         end function plasma_zsyr2k_tile_c
      end interface

!      private PLASMA_ztrmm_Tile_c
      interface
         function plasma_ztrmm_tile_c(side,uplo,transA,diag,alpha,A,B) &
          & bind(c, name='PLASMA_ztrmm_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrmm_tile_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: transa
            integer(kind=c_int), value :: diag
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            type(c_ptr), value :: b
         end function plasma_ztrmm_tile_c
      end interface

!      private PLASMA_ztrsm_Tile_c
      interface
         function plasma_ztrsm_tile_c(side,uplo,transA,diag,alpha,A,B) &
          & bind(c, name='PLASMA_ztrsm_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrsm_tile_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: transa
            integer(kind=c_int), value :: diag
            complex(kind=c_double_complex), value :: alpha
            type(c_ptr), value :: a
            type(c_ptr), value :: b
         end function plasma_ztrsm_tile_c
      end interface

!      private PLASMA_ztrsmpl_Tile_c
      interface
         function plasma_ztrsmpl_tile_c(A,L,IPIV,B) &
          & bind(c, name='PLASMA_ztrsmpl_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrsmpl_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: l
            type(c_ptr), value :: ipiv
            type(c_ptr), value :: b
         end function plasma_ztrsmpl_tile_c
      end interface

!      private PLASMA_ztrtri_Tile_c
      interface
         function plasma_ztrtri_tile_c(uplo,diag,A) &
          & bind(c, name='PLASMA_ztrtri_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztrtri_tile_c
            integer(kind=c_int), value :: uplo
            integer(kind=c_int), value :: diag
            type(c_ptr), value :: a
         end function plasma_ztrtri_tile_c
      end interface

!      private PLASMA_zunglq_Tile_c
      interface
         function plasma_zunglq_tile_c(A,T,B) &
          & bind(c, name='PLASMA_zunglq_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zunglq_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: t
            type(c_ptr), value :: b
         end function plasma_zunglq_tile_c
      end interface

!      private PLASMA_zungqr_Tile_c
      interface
         function plasma_zungqr_tile_c(A,T,B) &
          & bind(c, name='PLASMA_zungqr_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zungqr_tile_c
            type(c_ptr), value :: a
            type(c_ptr), value :: t
            type(c_ptr), value :: b
         end function plasma_zungqr_tile_c
      end interface

!      private PLASMA_zunmlq_Tile_c
      interface
         function plasma_zunmlq_tile_c(side,trans,A,T,B) &
          & bind(c, name='PLASMA_zunmlq_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zunmlq_tile_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: trans
            type(c_ptr), value :: a
            type(c_ptr), value :: t
            type(c_ptr), value :: b
         end function plasma_zunmlq_tile_c
      end interface

!      private PLASMA_zunmqr_Tile_c
      interface
         function plasma_zunmqr_tile_c(side,trans,A,T,B) &
          & bind(c, name='PLASMA_zunmqr_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zunmqr_tile_c
            integer(kind=c_int), value :: side
            integer(kind=c_int), value :: trans
            type(c_ptr), value :: a
            type(c_ptr), value :: t
            type(c_ptr), value :: b
         end function plasma_zunmqr_tile_c
      end interface

!      private PLASMA_Alloc_Workspace_zgelqf_c
      interface
         function plasma_alloc_workspace_zgelqf_c(M,N,T) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgelqf')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgelqf_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: t ! T is **, so pass by reference
         end function plasma_alloc_workspace_zgelqf_c
      end interface

!      private PLASMA_Alloc_Workspace_zgels_c
      interface
         function plasma_alloc_workspace_zgels_c(M,N,T) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgels')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgels_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: t ! T is **, so pass by reference
         end function plasma_alloc_workspace_zgels_c
      end interface

!      private PLASMA_Alloc_Workspace_zgeqrf_c
      interface
         function plasma_alloc_workspace_zgeqrf_c(M,N,T) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgeqrf')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgeqrf_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: t ! T is **, so pass by reference
         end function plasma_alloc_workspace_zgeqrf_c
      end interface

!      private PLASMA_Alloc_Workspace_zgesv_incpiv_c
      interface
         function plasma_alloc_workspace_zgesv_incpiv_c(N,L,IPIV) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgesv_incpiv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgesv_incpiv_c
            integer(kind=c_int), value :: n
            type(c_ptr) :: l ! L is **, so pass by reference
            type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         end function plasma_alloc_workspace_zgesv_incpiv_c
      end interface

!      private PLASMA_Alloc_Workspace_zgetrf_incpiv_c
      interface
         function plasma_alloc_workspace_zgetrf_incpiv_c(M,N,L,IPIV) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgetrf_incpiv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgetrf_incpiv_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: l ! L is **, so pass by reference
            type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         end function plasma_alloc_workspace_zgetrf_incpiv_c
      end interface

!      private PLASMA_Alloc_Workspace_zgeev_c
      interface
         function plasma_alloc_workspace_zgeev_c(N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgeev')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgeev_c
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zgeev_c
      end interface

!      private PLASMA_Alloc_Workspace_zgebrd_c
      interface
         function plasma_alloc_workspace_zgebrd_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgebrd')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgebrd_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zgebrd_c
      end interface

!      private PLASMA_Alloc_Workspace_zgesvd_c
      interface
         function plasma_alloc_workspace_zgesvd_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgesvd')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgesvd_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zgesvd_c
      end interface

!      private PLASMA_Alloc_Workspace_zheev_c
      interface
         function plasma_alloc_workspace_zheev_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zheev')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zheev_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zheev_c
      end interface

!      private PLASMA_Alloc_Workspace_zhegv_c
      interface
         function plasma_alloc_workspace_zhegv_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zhegv')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zhegv_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zhegv_c
      end interface

!      private PLASMA_Alloc_Workspace_zhetrd_c
      interface
         function plasma_alloc_workspace_zhetrd_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zhetrd')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zhetrd_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zhetrd_c
      end interface

!      private PLASMA_Alloc_Workspace_zgelqf_Tile_c
      interface
         function plasma_alloc_workspace_zgelqf_tile_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgelqf_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgelqf_tile_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zgelqf_tile_c
      end interface

!      private PLASMA_Alloc_Workspace_zgels_Tile_c
      interface
         function plasma_alloc_workspace_zgels_tile_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgels_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgels_tile_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zgels_tile_c
      end interface

!      private PLASMA_Alloc_Workspace_zgeqrf_Tile_c
      interface
         function plasma_alloc_workspace_zgeqrf_tile_c(M,N,descT) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgeqrf_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgeqrf_tile_c
            integer(kind=c_int), value :: m
            integer(kind=c_int), value :: n
            type(c_ptr) :: desct ! descT is **, so pass by reference
         end function plasma_alloc_workspace_zgeqrf_tile_c
      end interface

!      private PLASMA_Alloc_Workspace_zgesv_incpiv_Tile_c
      interface
         function plasma_alloc_workspace_zgesv_incpiv_tile_c(N,descL,IPIV) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgesv_incpiv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgesv_incpiv_tile_c
            integer(kind=c_int), value :: n
            type(c_ptr) :: descl ! descL is **, so pass by reference
            type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         end function plasma_alloc_workspace_zgesv_incpiv_tile_c
      end interface

!      private PLASMA_Alloc_Workspace_zgetrf_incpiv_Tile_c
      interface
         function plasma_alloc_workspace_zgetrf_incpiv_tile_c(N,descL,IPIV) &
          & bind(c, name='PLASMA_Alloc_Workspace_zgetrf_incpiv_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_alloc_workspace_zgetrf_incpiv_tile_c
            integer(kind=c_int), value :: n
            type(c_ptr) :: descl ! descL is **, so pass by reference
            type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         end function plasma_alloc_workspace_zgetrf_incpiv_tile_c
      end interface

!      private PLASMA_zLapack_to_Tile_c
      interface
         function plasma_zlapack_to_tile_c(Af77,LDA,A) &
          & bind(c, name='PLASMA_zLapack_to_Tile')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_zlapack_to_tile_c
            type(c_ptr), value :: af77
            integer(kind=c_int), value :: lda
            type(c_ptr), value :: a
         end function plasma_zlapack_to_tile_c
      end interface

!      private PLASMA_zTile_to_Lapack_c
      interface
         function plasma_ztile_to_lapack_c(A,Af77,LDA) &
          & bind(c, name='PLASMA_zTile_to_Lapack')
            use iso_c_binding
            implicit none
            integer(kind=c_int) :: plasma_ztile_to_lapack_c
            type(c_ptr), value :: a
            type(c_ptr), value :: af77
            integer(kind=c_int), value :: lda
         end function plasma_ztile_to_lapack_c
      end interface

  contains

      subroutine plasma_zgebrd(jobu,jobvt,M,N,A,LDA,D,E,U,LDU,VT,LDVT,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldu
         integer(kind=c_int), intent(in) :: ldvt
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: jobu
         integer(kind=c_int), intent(in) :: jobvt
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         real(kind=c_double), intent(out), target :: d(*)
         real(kind=c_double), intent(out), target :: e(*)
         complex(kind=c_double_complex), intent(out), target :: u(ldu,*)
         complex(kind=c_double_complex), intent(out), target :: vt(ldvt,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgebrd_c(jobu,jobvt,m,n,c_loc(a),lda,c_loc(d),c_loc(e),c_loc(u),ldu,c_loc(vt),ldvt,t)
      end subroutine plasma_zgebrd

      subroutine plasma_zgelqf(M,N,A,LDA,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgelqf_c(m,n,c_loc(a),lda,t)
      end subroutine plasma_zgelqf

      subroutine plasma_zgelqs(M,N,NRHS,A,LDA,T,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgelqs_c(m,n,nrhs,c_loc(a),lda,t,c_loc(b),ldb)
      end subroutine plasma_zgelqs

      subroutine plasma_zgels(trans,M,N,NRHS,A,LDA,T,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(in) :: trans
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgels_c(trans,m,n,nrhs,c_loc(a),lda,t,c_loc(b),ldb)
      end subroutine plasma_zgels

      subroutine plasma_zgemm(transA,transB,M,N,K,alpha,A,LDA,B,LDB,beta,C,LDC,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: ldc
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: transa
         integer(kind=c_int), intent(in) :: transb
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(in), target :: b(ldb,*)
         complex(kind=c_double_complex), intent(inout), target :: c(ldc,*)
         info = plasma_zgemm_c(transa,transb,m,n,k,alpha,c_loc(a),lda,c_loc(b),ldb,beta,c_loc(c),ldc)
      end subroutine plasma_zgemm

      subroutine plasma_zgeqrf(M,N,A,LDA,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgeqrf_c(m,n,c_loc(a),lda,t)
      end subroutine plasma_zgeqrf

      subroutine plasma_zgeqrs(M,N,NRHS,A,LDA,T,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgeqrs_c(m,n,nrhs,c_loc(a),lda,t,c_loc(b),ldb)
      end subroutine plasma_zgeqrs

      subroutine plasma_zgesv(N,NRHS,A,LDA,IPIV,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(out), target :: ipiv(*)
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_zgesv_c(n,nrhs,c_loc(a),lda,c_loc(ipiv),c_loc(b),ldb)
      end subroutine plasma_zgesv

      subroutine plasma_zgesv_incpiv(N,NRHS,A,LDA,L,IPIV,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: l ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgesv_incpiv_c(n,nrhs,c_loc(a),lda,l,ipiv,c_loc(b),ldb)
      end subroutine plasma_zgesv_incpiv

      subroutine plasma_zgesvd(jobu,jobvt,M,N,A,LDA,S,U,LDU,VT,LDVT,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldu
         integer(kind=c_int), intent(in) :: ldvt
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: jobu
         integer(kind=c_int), intent(in) :: jobvt
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         real(kind=c_double), intent(out), target :: s(*)
         complex(kind=c_double_complex), intent(out), target :: u(ldu,*)
         complex(kind=c_double_complex), intent(out), target :: vt(ldvt,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgesvd_c(jobu,jobvt,m,n,c_loc(a),lda,c_loc(s),c_loc(u),ldu,c_loc(vt),ldvt,t)
      end subroutine plasma_zgesvd

      subroutine plasma_zgetrf(M,N,A,LDA,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(out), target :: ipiv(*)
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         info = plasma_zgetrf_c(m,n,c_loc(a),lda,c_loc(ipiv))
      end subroutine plasma_zgetrf

      subroutine plasma_zgetrf_incpiv(M,N,A,LDA,L,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: l    ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgetrf_incpiv_c(m,n,c_loc(a),lda,l,ipiv)
      end subroutine plasma_zgetrf_incpiv

      subroutine plasma_zgetrs(trans,N,NRHS,A,LDA,IPIV,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in), target :: ipiv(*)
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_zgetrs_c(trans,n,nrhs,c_loc(a),lda,c_loc(ipiv),c_loc(b),ldb)
      end subroutine plasma_zgetrs

      subroutine plasma_zgetrs_incpiv(trans,N,NRHS,A,LDA,L,IPIV,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(in) :: trans
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: l    ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgetrs_incpiv_c(trans,n,nrhs,c_loc(a),lda,l,ipiv,c_loc(b),ldb)
      end subroutine plasma_zgetrs_incpiv

#if defined(PRECISION_z) || defined(PRECISION_c)
      subroutine plasma_zhemm(side,uplo,M,N,alpha,A,LDA,B,LDB,beta,C,LDC,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: ldc
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(in), target :: b(ldb,*)
         complex(kind=c_double_complex), intent(inout), target :: c(ldc,*)
         info = plasma_zhemm_c(side,uplo,m,n,alpha,c_loc(a),lda,c_loc(b),ldb,beta,c_loc(c),ldc)
      end subroutine plasma_zhemm

      subroutine plasma_zherk(uplo,trans,N,K,alpha,A,LDA,beta,C,LDC,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldc
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: c(ldc,*)
         real(kind=c_double), intent(in) :: alpha
         real(kind=c_double), intent(in) :: beta
         info = plasma_zherk_c(uplo,trans,n,k,alpha,c_loc(a),lda,beta,c_loc(c),ldc)
      end subroutine plasma_zherk

      subroutine plasma_zher2k(uplo,trans,N,K,alpha,A,LDA,B,LDB,beta,C,LDC,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: ldc
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(in), target :: b(ldb,*)
         complex(kind=c_double_complex), intent(inout), target :: c(ldc,*)
         real(kind=c_double), intent(in) :: beta
         info = plasma_zher2k_c(uplo,trans,n,k,alpha,c_loc(a),lda,c_loc(b),ldb,beta,c_loc(c),ldc)
      end subroutine plasma_zher2k
#endif

      subroutine plasma_zheev(jobz,uplo,N,A,LDA,W,T,Q,LDQ,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldq
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: jobz
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         real(kind=c_double), intent(out), target :: w(*)
         complex(kind=c_double_complex), intent(out), target :: q(ldq,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zheev_c(jobz,uplo,n,c_loc(a),lda,c_loc(w),t,c_loc(q),ldq)
      end subroutine plasma_zheev

      subroutine plasma_zhegv(itype,jobz,uplo,N,A,LDA,B,LDB,W,T,Q,LDQ,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: ldq
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: itype
         integer(kind=c_int), intent(in) :: jobz
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         real(kind=c_double), intent(out), target :: w(*)
         complex(kind=c_double_complex), intent(out), target :: q(ldq,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zhegv_c(itype,jobz,uplo,n,c_loc(a),lda,c_loc(b),ldb,c_loc(w),t,c_loc(q),ldq)
      end subroutine plasma_zhegv

      subroutine plasma_zhegst(itype,uplo,N,A,LDA,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: itype
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in), target :: b(ldb,*)
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         info = plasma_zhegst_c(itype,uplo,n,c_loc(a),lda,c_loc(b),ldb)
      end subroutine plasma_zhegst

      subroutine plasma_zhetrd(jobz,uplo,N,A,LDA,D,E,T,Q,LDQ,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldq
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: jobz
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         real(kind=c_double), intent(out), target :: d(*)
         real(kind=c_double), intent(out), target :: e(*)
         complex(kind=c_double_complex), intent(out), target :: q(ldq,*)
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zhetrd_c(jobz,uplo,n,c_loc(a),lda,c_loc(d),c_loc(e),t,c_loc(q),ldq)
      end subroutine plasma_zhetrd

      function plasma_zlange(norm,M,N,A,LDA,work)
         use iso_c_binding
         implicit none
         real(kind=c_double) :: plasma_zlange
         real(kind=c_double), intent(inout), target :: work(*)
         integer(kind=c_int), intent(in) :: norm
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         plasma_zlange = plasma_zlange_c(norm,m,n,c_loc(a),lda,c_loc(work))
      end function plasma_zlange

#if defined(PRECISION_z) || defined(PRECISION_c)
      function plasma_zlanhe(norm,uplo,N,A,LDA,work)
         use iso_c_binding
         implicit none
         real(kind=c_double) :: plasma_zlanhe
         real(kind=c_double), intent(inout), target :: work(*)
         integer(kind=c_int), intent(in) :: norm
         integer(kind=c_int), intent(in) :: uplo
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         plasma_zlanhe = plasma_zlanhe_c(norm,uplo,n,c_loc(a),lda,c_loc(work))
      end function plasma_zlanhe
#endif

      function plasma_zlansy(norm,uplo,N,A,LDA,work)
         use iso_c_binding
         implicit none
         real(kind=c_double) :: plasma_zlansy
         real(kind=c_double), intent(inout), target :: work(*)
         integer(kind=c_int), intent(in) :: norm
         integer(kind=c_int), intent(in) :: uplo
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         plasma_zlansy = plasma_zlansy_c(norm,uplo,n,c_loc(a),lda,c_loc(work))
      end function plasma_zlansy

      subroutine plasma_zlaswp(N,A,LDA,K1,K2,IPIV,INCX,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: incx
         integer(kind=c_int), intent(in) :: k1
         integer(kind=c_int), intent(in) :: k2
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in), target :: ipiv(*)
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         info = plasma_zlaswp_c(n,c_loc(a),lda,k1,k2,c_loc(ipiv),incx)
      end subroutine plasma_zlaswp

      subroutine plasma_zlauum(uplo,N,A,LDA,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         info = plasma_zlauum_c(uplo,n,c_loc(a),lda)
      end subroutine plasma_zlauum

      subroutine plasma_zposv(uplo,N,NRHS,A,LDA,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_zposv_c(uplo,n,nrhs,c_loc(a),lda,c_loc(b),ldb)
      end subroutine plasma_zposv

      subroutine plasma_zpotrf(uplo,N,A,LDA,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         info = plasma_zpotrf_c(uplo,n,c_loc(a),lda)
      end subroutine plasma_zpotrf

      subroutine plasma_zpotri(uplo,N,A,LDA,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         info = plasma_zpotri_c(uplo,n,c_loc(a),lda)
      end subroutine plasma_zpotri

      subroutine plasma_zpotrs(uplo,N,NRHS,A,LDA,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_zpotrs_c(uplo,n,nrhs,c_loc(a),lda,c_loc(b),ldb)
      end subroutine plasma_zpotrs

      subroutine plasma_zsymm(side,uplo,M,N,alpha,A,LDA,B,LDB,beta,C,LDC,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: ldc
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(in), target :: b(ldb,*)
         complex(kind=c_double_complex), intent(inout), target :: c(ldc,*)
         info = plasma_zsymm_c(side,uplo,m,n,alpha,c_loc(a),lda,c_loc(b),ldb,beta,c_loc(c),ldc)
      end subroutine plasma_zsymm

      subroutine plasma_zsyrk(uplo,trans,N,K,alpha,A,LDA,beta,C,LDC,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldc
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: c(ldc,*)
         info = plasma_zsyrk_c(uplo,trans,n,k,alpha,c_loc(a),lda,beta,c_loc(c),ldc)
      end subroutine plasma_zsyrk

      subroutine plasma_zsyr2k(uplo,trans,N,K,alpha,A,LDA,B,LDB,beta,C,LDC,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: ldc
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(in), target :: b(ldb,*)
         complex(kind=c_double_complex), intent(inout), target :: c(ldc,*)
         info = plasma_zsyr2k_c(uplo,trans,n,k,alpha,c_loc(a),lda,c_loc(b),ldb,beta,c_loc(c),ldc)
      end subroutine plasma_zsyr2k

      subroutine plasma_ztrmm(side,uplo,transA,diag,N,NRHS,alpha,A,LDA,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(in) :: diag
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: transa
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_ztrmm_c(side,uplo,transa,diag,n,nrhs,alpha,c_loc(a),lda,c_loc(b),ldb)
      end subroutine plasma_ztrmm

      subroutine plasma_ztrsm(side,uplo,transA,diag,N,NRHS,alpha,A,LDA,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         integer(kind=c_int), intent(in) :: diag
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: transa
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_ztrsm_c(side,uplo,transa,diag,n,nrhs,alpha,c_loc(a),lda,c_loc(b),ldb)
      end subroutine plasma_ztrsm

      subroutine plasma_ztrsmpl(N,NRHS,A,LDA,L,IPIV,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: nrhs
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         type(c_ptr), value :: l    ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_ztrsmpl_c(n,nrhs,c_loc(a),lda,l,ipiv,c_loc(b),ldb)
      end subroutine plasma_ztrsmpl

      subroutine plasma_ztrtri(uplo,diag,N,A,LDA,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: diag
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         info = plasma_ztrtri_c(uplo,diag,n,c_loc(a),lda)
      end subroutine plasma_ztrtri

      subroutine plasma_zunglq(M,N,K,A,LDA,T,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(out), target :: b(ldb,*)
         info = plasma_zunglq_c(m,n,k,c_loc(a),lda,t,c_loc(b),ldb)
      end subroutine plasma_zunglq

      subroutine plasma_zungqr(M,N,K,A,LDA,T,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         complex(kind=c_double_complex), intent(inout), target :: a(lda,*)
         complex(kind=c_double_complex), intent(out), target :: b(ldb,*)
         info = plasma_zungqr_c(m,n,k,c_loc(a),lda,t,c_loc(b),ldb)
      end subroutine plasma_zungqr

      subroutine plasma_zunmlq(side,trans,M,N,K,A,LDA,T,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: trans
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_zunmlq_c(side,trans,m,n,k,c_loc(a),lda,t,c_loc(b),ldb)
      end subroutine plasma_zunmlq

      subroutine plasma_zunmqr(side,trans,M,N,K,A,LDA,T,B,LDB,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         integer(kind=c_int), intent(in) :: k
         integer(kind=c_int), intent(in) :: lda
         integer(kind=c_int), intent(in) :: ldb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: trans
         complex(kind=c_double_complex), intent(in), target :: a(lda,*)
         complex(kind=c_double_complex), intent(inout), target :: b(ldb,*)
         info = plasma_zunmqr_c(side,trans,m,n,k,c_loc(a),lda,t,c_loc(b),ldb)
      end subroutine plasma_zunmqr

      subroutine plasma_zgecfi(m,n,A,fin,imb,inb,fout,omb,onb,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         complex(kind=c_double_complex), intent(inout), target :: a(*)
         integer(kind=c_int), intent(in) :: fin
         integer(kind=c_int), intent(in) :: fout
         integer(kind=c_int), intent(in) :: imb
         integer(kind=c_int), intent(in) :: inb
         integer(kind=c_int), intent(in) :: omb
         integer(kind=c_int), intent(in) :: onb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         info = plasma_zgecfi_c(m,n,c_loc(a),fin,imb,inb,fout,omb,onb)
      end subroutine plasma_zgecfi

      subroutine plasma_zgetmi(m,n,A,fin,mb,nb,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         complex(kind=c_double_complex), intent(inout), target :: a(*)
         integer(kind=c_int), intent(in) :: fin
         integer(kind=c_int), intent(in) :: mb
         integer(kind=c_int), intent(in) :: nb
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         info = plasma_zgetmi_c(m,n,c_loc(a),fin,mb,nb)
      end subroutine plasma_zgetmi

      subroutine plasma_zgebrd_tile(jobu,jobvt,A,D,E,U,VT,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: jobu
         integer(kind=c_int), intent(in) :: jobvt
         real(kind=c_double), intent(out), target :: d(*)
         real(kind=c_double), intent(out), target :: e(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: u ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: vt ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgebrd_tile_c(jobu,jobvt,a,c_loc(d),c_loc(e),u,vt,t)
      end subroutine plasma_zgebrd_tile

      subroutine plasma_zgelqf_tile(A,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgelqf_tile_c(a,t)
      end subroutine plasma_zgelqf_tile

      subroutine plasma_zgelqs_tile(A,T,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgelqs_tile_c(a,t,b)
      end subroutine plasma_zgelqs_tile

      subroutine plasma_zgels_tile(trans,A,T,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: trans
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgels_tile_c(trans,a,t,b)
      end subroutine plasma_zgels_tile

      subroutine plasma_zgemm_tile(transA,transB,alpha,A,B,beta,C,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: transa
         integer(kind=c_int), intent(in) :: transb
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: c ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgemm_tile_c(transa,transb,alpha,a,b,beta,c)
      end subroutine plasma_zgemm_tile

      subroutine plasma_zgeqrf_tile(A,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgeqrf_tile_c(a,t)
      end subroutine plasma_zgeqrf_tile

      subroutine plasma_zgeqrs_tile(A,T,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgeqrs_tile_c(a,t,b)
      end subroutine plasma_zgeqrs_tile

      subroutine plasma_zgesv_tile(A,IPIV,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(out), target :: ipiv(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgesv_tile_c(a,c_loc(ipiv),b)
      end subroutine plasma_zgesv_tile

      subroutine plasma_zgesv_incpiv_tile(A,L,IPIV,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: l ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgesv_incpiv_tile_c(a,l,ipiv,b)
      end subroutine plasma_zgesv_incpiv_tile

      subroutine plasma_zgesvd_tile(jobu,jobvt,A,S,U,VT,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: jobu
         integer(kind=c_int), intent(in) :: jobvt
         real(kind=c_double), intent(out), target :: s(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: u ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: vt ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgesvd_tile_c(jobu,jobvt,a,c_loc(s),u,vt,t)
      end subroutine plasma_zgesvd_tile

      subroutine plasma_zgetrf_tile(A,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(out), target :: ipiv(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgetrf_tile_c(a,c_loc(ipiv))
      end subroutine plasma_zgetrf_tile

      subroutine plasma_zgetrf_incpiv_tile(A,L,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: l ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgetrf_incpiv_tile_c(a,l,ipiv)
      end subroutine plasma_zgetrf_incpiv_tile

      subroutine plasma_zgetrs_tile(trans,A,IPIV,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: trans
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         integer(kind=c_int), intent(in), target :: ipiv(*)
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgetrs_tile_c(trans,a,c_loc(ipiv),b)
      end subroutine plasma_zgetrs_tile

      subroutine plasma_zgetrs_incpiv_tile(A,L,IPIV,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: l ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zgetrs_incpiv_tile_c(a,l,ipiv,b)
      end subroutine plasma_zgetrs_incpiv_tile

#if defined(PRECISION_z) || defined(PRECISION_c)
      subroutine plasma_zhemm_tile(side,uplo,alpha,A,B,beta,C,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: c ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zhemm_tile_c(side,uplo,alpha,a,b,beta,c)
      end subroutine plasma_zhemm_tile

      subroutine plasma_zherk_tile(uplo,trans,alpha,A,beta,C,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         real(kind=c_double), intent(in) :: alpha
         real(kind=c_double), intent(in) :: beta
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: c ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zherk_tile_c(uplo,trans,alpha,a,beta,c)
      end subroutine plasma_zherk_tile

      subroutine plasma_zher2k_tile(uplo,trans,alpha,A,B,beta,C,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         real(kind=c_double), intent(in) :: beta
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: c ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zher2k_tile_c(uplo,trans,alpha,a,b,beta,c)
      end subroutine plasma_zher2k_tile
#endif

      subroutine plasma_zheev_tile(jobz,uplo,A,W,T,Q,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: jobz
         integer(kind=c_int), intent(in) :: uplo
         real(kind=c_double), intent(out), target :: w(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: q ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zheev_tile_c(jobz,uplo,a,c_loc(w),t,q)
      end subroutine plasma_zheev_tile

      subroutine plasma_zhegv_tile(itype,jobz,uplo,A,B,W,T,Q,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: itype
         integer(kind=c_int), intent(in) :: jobz
         integer(kind=c_int), intent(in) :: uplo
         real(kind=c_double), intent(out), target :: w(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: q ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zhegv_tile_c(itype,jobz,uplo,a,b,c_loc(w),t,q)
      end subroutine plasma_zhegv_tile

      subroutine plasma_zhegst_tile(itype,uplo,A,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: itype
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zhegst_tile_c(itype,uplo,a,b)
      end subroutine plasma_zhegst_tile

      subroutine plasma_zhetrd_tile(jobz,uplo,A,D,E,T,Q,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: jobz
         integer(kind=c_int), intent(in) :: uplo
         real(kind=c_double), intent(out), target :: d(*)
         real(kind=c_double), intent(out), target :: e(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: q ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zhetrd_tile_c(jobz,uplo,a,c_loc(d),c_loc(e),t,q)
      end subroutine plasma_zhetrd_tile

      function plasma_zlange_tile(norm,A,work)
         use iso_c_binding
         implicit none
         real(kind=c_double) :: plasma_zlange_tile
         integer(kind=c_int), intent(in) :: norm
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         real(kind=c_double), intent(inout), target :: work(*)
         plasma_zlange_tile = plasma_zlange_tile_c(norm,a,c_loc(work))
       end function plasma_zlange_tile

#if defined(PRECISION_z) || defined(PRECISION_c)
      function plasma_zlanhe_tile(norm,uplo,A,work)
         use iso_c_binding
         implicit none
         real(kind=c_double) :: plasma_zlanhe_tile
         real(kind=c_double), intent(inout), target :: work(*)
         integer(kind=c_int), intent(in) :: norm
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         plasma_zlanhe_tile = plasma_zlanhe_tile_c(norm,uplo,a,c_loc(work))
      end function plasma_zlanhe_tile
#endif

      function plasma_zlansy_tile(norm,uplo,A,work)
         use iso_c_binding
         implicit none
         real(kind=c_double) :: plasma_zlansy_tile
         real(kind=c_double), intent(inout), target :: work(*)
         integer(kind=c_int), intent(in) :: norm
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         plasma_zlansy_tile = plasma_zlansy_tile_c(norm,uplo,a,c_loc(work))
      end function plasma_zlansy_tile

      subroutine plasma_zlaswp_tile(A,K1,K2,IPIV,INCX,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: incx
         integer(kind=c_int), intent(in) :: k1
         integer(kind=c_int), intent(in) :: k2
         integer(kind=c_int), intent(in), target :: ipiv(*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zlaswp_tile_c(a,k1,k2,c_loc(ipiv),incx)
      end subroutine plasma_zlaswp_tile

      subroutine plasma_zlauum_tile(uplo,A,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zlauum_tile_c(uplo,a)
      end subroutine plasma_zlauum_tile

      subroutine plasma_zposv_tile(uplo,A,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zposv_tile_c(uplo,a,b)
      end subroutine plasma_zposv_tile

      subroutine plasma_zpotrf_tile(uplo,A,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zpotrf_tile_c(uplo,a)
      end subroutine plasma_zpotrf_tile

      subroutine plasma_zpotri_tile(uplo,A,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zpotri_tile_c(uplo,a)
      end subroutine plasma_zpotri_tile

      subroutine plasma_zpotrs_tile(uplo,A,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zpotrs_tile_c(uplo,a,b)
      end subroutine plasma_zpotrs_tile

      subroutine plasma_zsymm_tile(side,uplo,alpha,A,B,beta,C,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: c ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zsymm_tile_c(side,uplo,alpha,a,b,beta,c)
      end subroutine plasma_zsymm_tile

      subroutine plasma_zsyrk_tile(uplo,trans,alpha,A,beta,C,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: c ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zsyrk_tile_c(uplo,trans,alpha,a,beta,c)
      end subroutine plasma_zsyrk_tile

      subroutine plasma_zsyr2k_tile(uplo,trans,alpha,A,B,beta,C,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: trans
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         complex(kind=c_double_complex), intent(in) :: beta
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: c ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zsyr2k_tile_c(uplo,trans,alpha,a,b,beta,c)
      end subroutine plasma_zsyr2k_tile

      subroutine plasma_ztrmm_tile(side,uplo,transA,diag,alpha,A,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: diag
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: transa
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_ztrmm_tile_c(side,uplo,transa,diag,alpha,a,b)
      end subroutine plasma_ztrmm_tile

      subroutine plasma_ztrsm_tile(side,uplo,transA,diag,alpha,A,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: diag
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: transa
         integer(kind=c_int), intent(in) :: uplo
         complex(kind=c_double_complex), intent(in) :: alpha
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_ztrsm_tile_c(side,uplo,transa,diag,alpha,a,b)
      end subroutine plasma_ztrsm_tile

      subroutine plasma_ztrsmpl_tile(A,L,IPIV,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: l ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: ipiv ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_ztrsmpl_tile_c(a,l,ipiv,b)
      end subroutine plasma_ztrsmpl_tile

      subroutine plasma_ztrtri_tile(uplo,diag,A,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: diag
         integer(kind=c_int), intent(in) :: uplo
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_ztrtri_tile_c(uplo,diag,a)
      end subroutine plasma_ztrtri_tile

      subroutine plasma_zunglq_tile(A,T,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zunglq_tile_c(a,t,b)
      end subroutine plasma_zunglq_tile

      subroutine plasma_zungqr_tile(A,T,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zungqr_tile_c(a,t,b)
      end subroutine plasma_zungqr_tile

      subroutine plasma_zunmlq_tile(side,trans,A,T,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: trans
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zunmlq_tile_c(side,trans,a,t,b)
      end subroutine plasma_zunmlq_tile

      subroutine plasma_zunmqr_tile(side,trans,A,T,B,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: side
         integer(kind=c_int), intent(in) :: trans
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: b ! Arg managed by PLASMA: opaque to Fortran
         type(c_ptr), value :: t ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zunmqr_tile_c(side,trans,a,t,b)
      end subroutine plasma_zunmqr_tile

      subroutine plasma_alloc_workspace_zgelqf(M,N,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: t ! T is **, so pass by reference
         info = plasma_alloc_workspace_zgelqf_c(m,n,t)
      end subroutine plasma_alloc_workspace_zgelqf

      subroutine plasma_alloc_workspace_zgels(M,N,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: t ! T is **, so pass by reference
         info = plasma_alloc_workspace_zgels_c(m,n,t)
      end subroutine plasma_alloc_workspace_zgels

      subroutine plasma_alloc_workspace_zgeqrf(M,N,T,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: t ! T is **, so pass by reference
         info = plasma_alloc_workspace_zgeqrf_c(m,n,t)
      end subroutine plasma_alloc_workspace_zgeqrf

      subroutine plasma_alloc_workspace_zgesv_incpiv(N,L,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         type(c_ptr) :: l ! L is **, so pass by reference
         info = plasma_alloc_workspace_zgesv_incpiv_c(n,l,ipiv)
      end subroutine plasma_alloc_workspace_zgesv_incpiv

      subroutine plasma_alloc_workspace_zgetrf_incpiv(M,N,L,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         type(c_ptr) :: l ! L is **, so pass by reference
         info = plasma_alloc_workspace_zgetrf_incpiv_c(m,n,l,ipiv)
      end subroutine plasma_alloc_workspace_zgetrf_incpiv

      subroutine plasma_alloc_workspace_zgeev(N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zgeev_c(n,desct)
      end subroutine plasma_alloc_workspace_zgeev

      subroutine plasma_alloc_workspace_zgebrd(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zgebrd_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zgebrd

      subroutine plasma_alloc_workspace_zgesvd(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zgesvd_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zgesvd

      subroutine plasma_alloc_workspace_zheev(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zheev_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zheev

      subroutine plasma_alloc_workspace_zhegv(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zhegv_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zhegv

      subroutine plasma_alloc_workspace_zhetrd(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zhetrd_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zhetrd

      subroutine plasma_alloc_workspace_zgelqf_tile(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zgelqf_tile_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zgelqf_tile

      subroutine plasma_alloc_workspace_zgels_tile(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zgels_tile_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zgels_tile

      subroutine plasma_alloc_workspace_zgeqrf_tile(M,N,descT,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: m
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: desct ! descT is **, so pass by reference
         info = plasma_alloc_workspace_zgeqrf_tile_c(m,n,desct)
      end subroutine plasma_alloc_workspace_zgeqrf_tile

      subroutine plasma_alloc_workspace_zgesv_incpiv_tile(N,descL,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         type(c_ptr) :: descl ! descL is **, so pass by reference
         info = plasma_alloc_workspace_zgesv_incpiv_tile_c(n,descl,ipiv)
      end subroutine plasma_alloc_workspace_zgesv_incpiv_tile

      subroutine plasma_alloc_workspace_zgetrf_incpiv_tile(N,descL,IPIV,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: n
         type(c_ptr) :: ipiv ! IPIV is **, so pass by reference
         type(c_ptr) :: descl ! descL is **, so pass by reference
         info = plasma_alloc_workspace_zgetrf_incpiv_tile_c(n,descl,ipiv)
      end subroutine plasma_alloc_workspace_zgetrf_incpiv_tile

      subroutine plasma_zlapack_to_tile(Af77,LDA,A,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         complex(kind=c_double_complex), intent(in), target :: af77(lda,*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_zlapack_to_tile_c(c_loc(af77),lda,a)
      end subroutine plasma_zlapack_to_tile

      subroutine plasma_ztile_to_lapack(A,Af77,LDA,info)
         use iso_c_binding
         implicit none
         integer(kind=c_int), intent(out) :: info
         integer(kind=c_int), intent(in) :: lda
         complex(kind=c_double_complex), intent(out), target :: af77(lda,*)
         type(c_ptr), value :: a ! Arg managed by PLASMA: opaque to Fortran
         info = plasma_ztile_to_lapack_c(a,c_loc(af77),lda)
      end subroutine plasma_ztile_to_lapack

end module plasma_z