QR_MUMPS
Main Page
Modules
Data Types List
Files
builddir
build
BUILD
qr_mumps-1.2
src
utils
dqrm_remap_pnt.F90
Go to the documentation of this file.
1
!! ##############################################################################################
2
!!
3
!! Copyright 2012 CNRS, INPT
4
!!
5
!! This file is part of qr_mumps.
6
!!
7
!! qr_mumps is free software: you can redistribute it and/or modify
8
!! it under the terms of the GNU Lesser General Public License as
9
!! published by the Free Software Foundation, either version 3 of
10
!! the License, or (at your option) any later version.
11
!!
12
!! qr_mumps is distributed in the hope that it will be useful,
13
!! but WITHOUT ANY WARRANTY; without even the implied warranty of
14
!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
!! GNU Lesser General Public License for more details.
16
!!
17
!! You can find a copy of the GNU Lesser General Public License
18
!! in the qr_mumps/doc directory.
19
!!
20
!! ##############################################################################################
21
22
23
!! ##############################################################################################
33
34
37
48
subroutine
dqrm_remap_pnt
(arr1d, pnt2d, n)
49
50
use
iso_c_binding
51
implicit none
52
53
integer
:: n
54
real(kind(1.d0))
,
target
:: arr1d(1:n)
55
real(kind(1.d0))
,
pointer
:: pnt2d(:,:)
56
57
type
(c_ptr) :: cptr
58
59
cptr = c_loc(arr1d(1))
60
61
call
c_f_pointer(cptr, pnt2d, (/n,1/))
62
63
return
64
65
end subroutine
dqrm_remap_pnt
66
dqrm_remap_pnt
subroutine dqrm_remap_pnt(arr1d, pnt2d, n)
This function makes a 2D pointer point to a 1D array.
Definition:
dqrm_remap_pnt.F90:49
Generated by
1.8.11