QR_MUMPS
 All Classes Files Functions Variables Enumerations Enumerator Pages
qrm_c_comm_interface.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 
35 #include "qrm_common.h"
36 
40  use iso_c_binding
41  use qrm_error_mod
42  use qrm_common_mod
43 
44 contains
45 
48  subroutine qrm_gseti_c(string, val) bind(c)
49  character(kind=c_char) :: string(40)
50  integer(c_int), value :: val
51 
52  character(len=40) :: a
53 
54  write(a,'(40a)')string
55 
56  call qrm_gseti(a, val)
57 
58  return
59 
60  end subroutine qrm_gseti_c
61 
64  subroutine qrm_ggeti_c(string, val) bind(c)
65  character(kind=c_char) :: string(40)
66  integer(c_int) :: val
67 
68  character(len=40) :: a
69 
70  write(a,'(40a)')string
71 
72  call qrm_ggeti(a, val)
73 
74  return
75 
76  end subroutine qrm_ggeti_c
77 
80  subroutine qrm_ggetii_c(string, val) bind(c)
81  character(kind=c_char) :: string(40)
82  integer(c_long_long) :: val
83 
84  character(len=40) :: a
85 
86  write(a,'(40a)')string
87 
88  call qrm_ggetii(a, val)
89 
90  return
91 
92  end subroutine qrm_ggetii_c
93 
96  subroutine qrm_err_check_c() bind(c)
97  use qrm_error_mod
98 
99  call qrm_err_check()
100 
101  return
102  end subroutine qrm_err_check_c
103 
104 
105 
106 
107 end module qrm_c_comm_interface
108 
This module contains all the error management routines and data.
void qrm_gseti_c(const char *string, int val)
subroutine qrm_ggeti(string, ival)
This module contains the interfaces of all non-typed routines.
This module contains the definition of the qr_mumps C interface common to all precisions/types.
subroutine qrm_ggetii(string, iival)
subroutine qrm_err_check()
This subroutine checks the errors stack. If something is found all the entries in the stack are poppe...
void qrm_err_check_c()
void qrm_ggetii_c(const char *string, long long *val)
subroutine qrm_gseti(string, ival)
void qrm_ggeti_c(const char *string, int *val)