1: module petscmatdef
  2:   use, intrinsic :: ISO_C_binding
  3:   use petscvecdef
  4: #include "petsc/finclude/petscmat.h"
  5: #include "petsc/finclude/petscmatcoarsen.h"
  6: #include "petsc/finclude/petscpartitioner.h"
  7: #include "petsc/finclude/petscmathypre.h"
  8: #include "petsc/finclude/petscmathtool.h"
  9: #include "petsc/finclude/petscmatelemental.h"
 10: #include <../ftn/mat/petscmat.h>
 11: #include <../ftn/mat/petscmatcoarsen.h>
 12: #include <../ftn/mat/petscpartitioner.h>

 14: end module

 16: module petscmat
 17:   use petscmatdef
 18:   use petscvec

 20: #include <../src/mat/ftn-mod/petscmat.h90>
 21: #include <../ftn/mat/petscmat.h90>
 22: #include <../ftn/mat/petscmatcoarsen.h90>
 23: #include <../ftn/mat/petscpartitioner.h90>

 25: !     deprecated functions

 27:   interface MatDenseGetArrayF90
 28:     module procedure MatDenseGetArrayF901d, MatDenseGetArrayF902d
 29:   end interface

 31:   interface MatDenseRestoreArrayF90
 32:     module procedure MatDenseRestoreArrayF901d, MatDenseRestoreArrayF902d
 33:   end interface

 35:   interface MatDenseGetArrayReadF90
 36:     module procedure MatDenseGetArrayReadF901d, MatDenseGetArrayReadF902d
 37:   end interface

 39:   interface MatDenseRestoreArrayReadF90
 40:     module procedure MatDenseRestoreArrayWriteF901d, MatDenseRestoreArrayWriteF902d
 41:   end interface

 43:   interface MatDenseGetArrayWriteF90
 44:     module procedure MatDenseGetArrayWriteF901d, MatDenseGetArrayWriteF902d
 45:   end interface

 47:   interface MatDenseRestoreArrayWriteF90
 48:     module procedure MatDenseRestoreArrayWriteF901d, MatDenseRestoreArrayWriteF902d
 49:   end interface

 51: contains

 53: #include <../ftn/mat/petscmat.hf90>
 54: #include <../ftn/mat/petscmatcoarsen.hf90>
 55: #include <../ftn/mat/petscpartitioner.hf90>

 57: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 58: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseGetArrayF901d
 59: #endif
 60:   subroutine MatDenseGetArrayF901d(v, array, ierr)
 61:     PetscScalar, pointer :: array(:)
 62:     PetscErrorCode ierr
 63:     Mat v
 64:     call MatDenseGetArray(v, array, ierr)
 65:   end subroutine

 67: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 68: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseRestoreArrayF901d
 69: #endif
 70:   subroutine MatDenseRestoreArrayF901d(v, array, ierr)
 71:     PetscScalar, pointer :: array(:)
 72:     PetscErrorCode ierr
 73:     Mat v
 74:     call MatDenseRestoreArray(v, array, ierr)
 75:   end subroutine

 77: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 78: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseGetArrayReadF901d
 79: #endif
 80:   subroutine MatDenseGetArrayReadF901d(v, array, ierr)
 81:     PetscScalar, pointer :: array(:)
 82:     PetscErrorCode ierr
 83:     Mat v
 84:     call MatDenseGetArrayRead(v, array, ierr)
 85:   end subroutine

 87: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 88: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseRestoreArrayReadF901d
 89: #endif
 90:   subroutine MatDenseRestoreArrayReadF901d(v, array, ierr)
 91:     PetscScalar, pointer :: array(:)
 92:     PetscErrorCode ierr
 93:     Mat v
 94:     call MatDenseRestoreArrayRead(v, array, ierr)
 95:   end subroutine

 97: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 98: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseGetArrayWriteF901d
 99: #endif
100:   subroutine MatDenseGetArrayWriteF901d(v, array, ierr)
101:     PetscScalar, pointer :: array(:)
102:     PetscErrorCode ierr
103:     Mat v
104:     call MatDenseGetArrayWrite(v, array, ierr)
105:   end subroutine

107: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
108: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseRestoreArrayWriteF901d
109: #endif
110:   subroutine MatDenseRestoreArrayWriteF901d(v, array, ierr)
111:     PetscScalar, pointer :: array(:)
112:     PetscErrorCode ierr
113:     Mat v
114:     call MatDenseRestoreArrayWrite(v, array, ierr)
115:   end subroutine

117: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
118: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseGetArrayF902d
119: #endif
120:   subroutine MatDenseGetArrayF902d(v, array, ierr)
121:     PetscScalar, pointer :: array(:, :)
122:     PetscErrorCode ierr
123:     Mat v
124:     call MatDenseGetArray(v, array, ierr)
125:   end subroutine

127: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
128: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseRestoreArrayF902d
129: #endif
130:   subroutine MatDenseRestoreArrayF902d(v, array, ierr)
131:     PetscScalar, pointer :: array(:, :)
132:     PetscErrorCode ierr
133:     Mat v
134:     call MatDenseRestoreArray(v, array, ierr)
135:   end subroutine

137: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
138: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseGetArrayReadF902d
139: #endif
140:   subroutine MatDenseGetArrayReadF902d(v, array, ierr)
141:     PetscScalar, pointer :: array(:, :)
142:     PetscErrorCode ierr
143:     Mat v
144:     call MatDenseGetArrayRead(v, array, ierr)
145:   end subroutine

147: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
148: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseRestoreArrayReadF90
149: #endif
150:   subroutine MatDenseRestoreArrayReadF902d(v, array, ierr)
151:     PetscScalar, pointer :: array(:, :)
152:     PetscErrorCode ierr
153:     Mat v
154:     call MatDenseRestoreArrayRead(v, array, ierr)
155:   end subroutine

157: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
158: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseGetArrayWriteF90
159: #endif
160:   subroutine MatDenseGetArrayWriteF902d(v, array, ierr)
161:     PetscScalar, pointer :: array(:, :)
162:     PetscErrorCode ierr
163:     Mat v
164:     call MatDenseGetArrayWrite(v, array, ierr)
165:   end subroutine

167: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
168: !DEC$ ATTRIBUTES DLLEXPORT:: MatDenseRestoreArrayWriteF90
169: #endif
170:   subroutine MatDenseRestoreArrayWriteF902d(v, array, ierr)
171:     PetscScalar, pointer :: array(:, :)
172:     PetscErrorCode ierr
173:     Mat v
174:     call MatDenseRestoreArrayWrite(v, array, ierr)
175:   end subroutine

177: end module