QR_MUMPS
qrm_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 _qrm_remap_pnt(arr1d, pnt2d, n)
49 
50  use iso_c_binding
51  implicit none
52 
53  integer :: n
54  _qrm_data, target :: arr1d(1:n)
55  _qrm_data, 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 _qrm_remap_pnt
66 
subroutine _qrm_remap_pnt(arr1d, pnt2d, n)
This function makes a 2D pointer point to a 1D array.