Skip to content

Commit

Permalink
Add files via upload
Browse files Browse the repository at this point in the history
  • Loading branch information
@lyndskg
lyndskg authored Jul 21, 2023
1 parent 808338a commit 4117cdc
Show file tree
Hide file tree
Showing 26 changed files with 47,690 additions and 0 deletions.
2,380 changes: 2,380 additions & 0 deletions mkl_blas.f90
View file

Large diffs are not rendered by default.

2,491 changes: 2,491 additions & 0 deletions mkl_blas.fi
View file

Large diffs are not rendered by default.

733 changes: 733 additions & 0 deletions mkl_cdft.f90
View file

Large diffs are not rendered by default.

513 changes: 513 additions & 0 deletions mkl_cluster_sparse_solver.f90
View file

Large diffs are not rendered by default.

216 changes: 216 additions & 0 deletions mkl_cluster_sparse_solver.fi
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,216 @@
!===============================================================================
! Copyright 2004-2022 Intel Corporation.
!
! This software and the related documents are Intel copyrighted materials, and
! your use of them is governed by the express license under which they were
! provided to you (License). Unless the License provides otherwise, you may not
! use, modify, copy, publish, distribute, disclose or transmit this software or
! the related documents without Intel's prior written permission.
!
! This software and the related documents are provided as is, with no express
! or implied warranties, other than those that are expressly stated in the
! License.
!===============================================================================

! Content:
! Intel(R) oneAPI Math Kernel Library (oneMKL) CLUSTER_SPARSE_SOLVER Fortran header file.
!
! Contains CLUSTER_SPARSE_SOLVER routine definition
!
!*******************************************************************************

TYPE MKL_CLUSTER_SPARSE_SOLVER_HANDLE; INTEGER(KIND=8) DUMMY; END TYPE

!
! Subroutine prototype for CLUSTER_SPARSE_SOLVER
!

INTERFACE CLUSTER_SPARSE_SOLVER
SUBROUTINE CLUSTER_SPARSE_SOLVER_S( PT, MAXFCT, MNUM, MTYPE, PHASE,N,A,IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER, INTENT(IN) :: MAXFCT
INTEGER, INTENT(IN) :: MNUM
INTEGER, INTENT(IN) :: MTYPE
INTEGER, INTENT(IN) :: PHASE
INTEGER, INTENT(IN) :: N
INTEGER, INTENT(IN) :: IA(*)
INTEGER, INTENT(IN) :: JA(*)
INTEGER, INTENT(INOUT) :: PERM(*)
INTEGER, INTENT(IN) :: NRHS
INTEGER, INTENT(INOUT) :: IPARM(*)
INTEGER, INTENT(IN) :: MSGLVL
INTEGER, INTENT(OUT) :: ERROR
INTEGER, INTENT(IN) :: COMM

REAL(KIND=4), INTENT(IN) :: A(*)
REAL(KIND=4), INTENT(INOUT) :: B(*)
REAL(KIND=4), INTENT(OUT) :: X(*)
END SUBROUTINE CLUSTER_SPARSE_SOLVER_S

SUBROUTINE CLUSTER_SPARSE_SOLVER_D( PT, MAXFCT, MNUM, MTYPE, PHASE, N, A, IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER, INTENT(IN) :: MAXFCT
INTEGER, INTENT(IN) :: MNUM
INTEGER, INTENT(IN) :: MTYPE
INTEGER, INTENT(IN) :: PHASE
INTEGER, INTENT(IN) :: N
INTEGER, INTENT(IN) :: IA(*)
INTEGER, INTENT(IN) :: JA(*)
INTEGER, INTENT(INOUT) :: PERM(*)
INTEGER, INTENT(IN) :: NRHS
INTEGER, INTENT(INOUT) :: IPARM(*)
INTEGER, INTENT(IN) :: MSGLVL
INTEGER, INTENT(OUT) :: ERROR

REAL(KIND=8), INTENT(IN) :: A(*)
REAL(KIND=8), INTENT(INOUT) :: B(*)
REAL(KIND=8), INTENT(OUT) :: X(*)
INTEGER, INTENT(IN) :: COMM
END SUBROUTINE CLUSTER_SPARSE_SOLVER_D

SUBROUTINE CLUSTER_SPARSE_SOLVER_SC( PT, MAXFCT, MNUM, MTYPE, PHASE, N, A, IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER, INTENT(IN) :: MAXFCT
INTEGER, INTENT(IN) :: MNUM
INTEGER, INTENT(IN) :: MTYPE
INTEGER, INTENT(IN) :: PHASE
INTEGER, INTENT(IN) :: N
INTEGER, INTENT(IN) :: IA(*)
INTEGER, INTENT(IN) :: JA(*)
INTEGER, INTENT(INOUT) :: PERM(*)
INTEGER, INTENT(IN) :: NRHS
INTEGER, INTENT(INOUT) :: IPARM(*)
INTEGER, INTENT(IN) :: MSGLVL
INTEGER, INTENT(OUT) :: ERROR

COMPLEX(KIND=4), INTENT(IN) :: A(*)
COMPLEX(KIND=4), INTENT(INOUT) :: B(*)
COMPLEX(KIND=4), INTENT(OUT) :: X(*)
INTEGER, INTENT(IN) :: COMM
END SUBROUTINE CLUSTER_SPARSE_SOLVER_SC

SUBROUTINE CLUSTER_SPARSE_SOLVER_DC( PT, MAXFCT, MNUM, MTYPE, PHASE, N, A, IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER, INTENT(IN) :: MAXFCT
INTEGER, INTENT(IN) :: MNUM
INTEGER, INTENT(IN) :: MTYPE
INTEGER, INTENT(IN) :: PHASE
INTEGER, INTENT(IN) :: N
INTEGER, INTENT(IN) :: IA(*)
INTEGER, INTENT(IN) :: JA(*)
INTEGER, INTENT(INOUT) :: PERM(*)
INTEGER, INTENT(IN) :: NRHS
INTEGER, INTENT(INOUT) :: IPARM(*)
INTEGER, INTENT(IN) :: MSGLVL
INTEGER, INTENT(OUT) :: ERROR
COMPLEX(KIND=8), INTENT(IN) :: A(*)
COMPLEX(KIND=8), INTENT(INOUT) :: B(*)
COMPLEX(KIND=8), INTENT(OUT) :: X(*)
INTEGER, INTENT(IN) :: COMM
END SUBROUTINE CLUSTER_SPARSE_SOLVER_DC
END INTERFACE

!
! Subroutine prototype for CLUSTER_SPARSE_SOLVER_64
!

INTERFACE CLUSTER_SPARSE_SOLVER_64
SUBROUTINE CLUSTER_SPARSE_SOLVER_S_64( PT, MAXFCT, MNUM, MTYPE, PHASE,N,A,IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER(KIND=8), INTENT(IN) :: MAXFCT
INTEGER(KIND=8), INTENT(IN) :: MNUM
INTEGER(KIND=8), INTENT(IN) :: MTYPE
INTEGER(KIND=8), INTENT(IN) :: PHASE
INTEGER(KIND=8), INTENT(IN) :: N
INTEGER(KIND=8), INTENT(IN) :: IA(*)
INTEGER(KIND=8), INTENT(IN) :: JA(*)
INTEGER(KIND=8), INTENT(INOUT) :: PERM(*)
INTEGER(KIND=8), INTENT(IN) :: NRHS
INTEGER(KIND=8), INTENT(INOUT) :: IPARM(*)
INTEGER(KIND=8), INTENT(IN) :: MSGLVL
INTEGER(KIND=8), INTENT(OUT) :: ERROR
INTEGER, INTENT(IN) :: COMM

REAL(KIND=4), INTENT(IN) :: A(*)
REAL(KIND=4), INTENT(INOUT) :: B(*)
REAL(KIND=4), INTENT(OUT) :: X(*)
END SUBROUTINE CLUSTER_SPARSE_SOLVER_S_64

SUBROUTINE CLUSTER_SPARSE_SOLVER_D_64( PT, MAXFCT, MNUM, MTYPE, PHASE, N, A, IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER(KIND=8), INTENT(IN) :: MAXFCT
INTEGER(KIND=8), INTENT(IN) :: MNUM
INTEGER(KIND=8), INTENT(IN) :: MTYPE
INTEGER(KIND=8), INTENT(IN) :: PHASE
INTEGER(KIND=8), INTENT(IN) :: N
INTEGER(KIND=8), INTENT(IN) :: IA(*)
INTEGER(KIND=8), INTENT(IN) :: JA(*)
INTEGER(KIND=8), INTENT(INOUT) :: PERM(*)
INTEGER(KIND=8), INTENT(IN) :: NRHS
INTEGER(KIND=8), INTENT(INOUT) :: IPARM(*)
INTEGER(KIND=8), INTENT(IN) :: MSGLVL
INTEGER(KIND=8), INTENT(OUT) :: ERROR

REAL(KIND=8), INTENT(IN) :: A(*)
REAL(KIND=8), INTENT(INOUT) :: B(*)
REAL(KIND=8), INTENT(OUT) :: X(*)
INTEGER, INTENT(IN) :: COMM
END SUBROUTINE CLUSTER_SPARSE_SOLVER_D_64

SUBROUTINE CLUSTER_SPARSE_SOLVER_SC_64( PT, MAXFCT, MNUM, MTYPE, PHASE, N, A, IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER(KIND=8), INTENT(IN) :: MAXFCT
INTEGER(KIND=8), INTENT(IN) :: MNUM
INTEGER(KIND=8), INTENT(IN) :: MTYPE
INTEGER(KIND=8), INTENT(IN) :: PHASE
INTEGER(KIND=8), INTENT(IN) :: N
INTEGER(KIND=8), INTENT(IN) :: IA(*)
INTEGER(KIND=8), INTENT(IN) :: JA(*)
INTEGER(KIND=8), INTENT(INOUT) :: PERM(*)
INTEGER(KIND=8), INTENT(IN) :: NRHS
INTEGER(KIND=8), INTENT(INOUT) :: IPARM(*)
INTEGER(KIND=8), INTENT(IN) :: MSGLVL
INTEGER(KIND=8), INTENT(OUT) :: ERROR

COMPLEX(KIND=4), INTENT(IN) :: A(*)
COMPLEX(KIND=4), INTENT(INOUT) :: B(*)
COMPLEX(KIND=4), INTENT(OUT) :: X(*)
INTEGER, INTENT(IN) :: COMM
END SUBROUTINE CLUSTER_SPARSE_SOLVER_SC_64

SUBROUTINE CLUSTER_SPARSE_SOLVER_DC_64( PT, MAXFCT, MNUM, MTYPE, PHASE, N, A, IA,
& JA, PERM, NRHS, IPARM, MSGLVL, B, X, COMM, ERROR )
IMPORT MKL_CLUSTER_SPARSE_SOLVER_HANDLE
TYPE(MKL_CLUSTER_SPARSE_SOLVER_HANDLE), INTENT(INOUT) :: PT(*)
INTEGER(KIND=8), INTENT(IN) :: MAXFCT
INTEGER(KIND=8), INTENT(IN) :: MNUM
INTEGER(KIND=8), INTENT(IN) :: MTYPE
INTEGER(KIND=8), INTENT(IN) :: PHASE
INTEGER(KIND=8), INTENT(IN) :: N
INTEGER(KIND=8), INTENT(IN) :: IA(*)
INTEGER(KIND=8), INTENT(IN) :: JA(*)
INTEGER(KIND=8), INTENT(INOUT) :: PERM(*)
INTEGER(KIND=8), INTENT(IN) :: NRHS
INTEGER(KIND=8), INTENT(INOUT) :: IPARM(*)
INTEGER(KIND=8), INTENT(IN) :: MSGLVL
INTEGER(KIND=8), INTENT(OUT) :: ERROR
COMPLEX(KIND=8), INTENT(IN) :: A(*)
COMPLEX(KIND=8), INTENT(INOUT) :: B(*)
COMPLEX(KIND=8), INTENT(OUT) :: X(*)
INTEGER, INTENT(IN) :: COMM
END SUBROUTINE CLUSTER_SPARSE_SOLVER_DC_64
END INTERFACE
Loading

0 comments on commit 4117cdc

Please sign in to comment.