@@ -114,15 +114,15 @@ end subroutine pcmsolver_print
114
114
function pcmsolver_get_cavity_size (context ) result(nr_points) bind(C)
115
115
import
116
116
type (c_ptr), value :: context
117
- integer (c_size_t ) :: nr_points
117
+ integer (c_int ) :: nr_points
118
118
end function pcmsolver_get_cavity_size
119
119
end interface pcmsolver_get_cavity_size
120
120
121
121
interface pcmsolver_get_irreducible_cavity_size
122
122
function pcmsolver_get_irreducible_cavity_size (context ) result(nr_points_irr) bind(C)
123
123
import
124
124
type (c_ptr), value :: context
125
- integer (c_size_t ) :: nr_points_irr
125
+ integer (c_int ) :: nr_points_irr
126
126
end function pcmsolver_get_irreducible_cavity_size
127
127
end interface pcmsolver_get_irreducible_cavity_size
128
128
@@ -155,7 +155,7 @@ end subroutine pcmsolver_get_areas
155
155
subroutine pcmsolver_compute_asc (context , mep_name , asc_name , irrep ) bind(C)
156
156
import
157
157
type (c_ptr), value :: context
158
- character (c_char), intent (in ) :: mep_name, asc_name
158
+ character (kind = c_char, len = 1 ), intent (in ) :: mep_name( * ) , asc_name( * )
159
159
integer (c_int), value, intent (in ) :: irrep
160
160
end subroutine pcmsolver_compute_asc
161
161
end interface pcmsolver_compute_asc
@@ -164,7 +164,7 @@ end subroutine pcmsolver_compute_asc
164
164
subroutine pcmsolver_compute_response_asc (context , mep_name , asc_name , irrep ) bind(C)
165
165
import
166
166
type (c_ptr), value :: context
167
- character (c_char), intent (in ) :: mep_name, asc_name
167
+ character (kind = c_char, len = 1 ), intent (in ) :: mep_name( * ) , asc_name( * )
168
168
integer (c_int), value, intent (in ) :: irrep
169
169
end subroutine pcmsolver_compute_response_asc
170
170
end interface pcmsolver_compute_response_asc
@@ -173,7 +173,7 @@ end subroutine pcmsolver_compute_response_asc
173
173
function pcmsolver_compute_polarization_energy (context , mep_name , asc_name ) result(energy) bind(C)
174
174
import
175
175
type (c_ptr), value :: context
176
- character (c_char), intent (in ) :: mep_name, asc_name
176
+ character (kind = c_char, len = 1 ), intent (in ) :: mep_name( * ) , asc_name( * )
177
177
real (c_double) :: energy
178
178
end function pcmsolver_compute_polarization_energy
179
179
end interface pcmsolver_compute_polarization_energy
@@ -182,19 +182,19 @@ end function pcmsolver_compute_polarization_energy
182
182
subroutine pcmsolver_get_surface_function (context , f_size , values , name ) bind(C)
183
183
import
184
184
type (c_ptr), value :: context
185
- integer (c_size_t ), value, intent (in ) :: f_size
185
+ integer (c_int ), value, intent (in ) :: f_size
186
186
real (c_double), intent (inout ) :: values(* )
187
- character (c_char), intent (in ) :: name
187
+ character (kind = c_char, len = 1 ), intent (in ) :: name ( * )
188
188
end subroutine pcmsolver_get_surface_function
189
189
end interface pcmsolver_get_surface_function
190
190
191
191
interface pcmsolver_set_surface_function
192
192
subroutine pcmsolver_set_surface_function (context , f_size , values , name ) bind(C)
193
193
import
194
194
type (c_ptr), value :: context
195
- integer (c_size_t ), value, intent (in ) :: f_size
195
+ integer (c_int ), value, intent (in ) :: f_size
196
196
real (c_double), intent (in ) :: values(* )
197
- character (c_char), intent (in ) :: name
197
+ character (kind = c_char, len = 1 ), intent (in ) :: name ( * )
198
198
end subroutine pcmsolver_set_surface_function
199
199
end interface pcmsolver_set_surface_function
200
200
@@ -209,15 +209,15 @@ end subroutine pcmsolver_save_surface_functions
209
209
subroutine pcmsolver_save_surface_function (context , name ) bind(C)
210
210
import
211
211
type (c_ptr), value :: context
212
- character (c_char), intent (in ) :: name
212
+ character (kind = c_char, len = 1 ), intent (in ) :: name
213
213
end subroutine pcmsolver_save_surface_function
214
214
end interface pcmsolver_save_surface_function
215
215
216
216
interface pcmsolver_load_surface_function
217
217
subroutine pcmsolver_load_surface_function (context , name ) bind(C)
218
218
import
219
219
type (c_ptr), value :: context
220
- character (c_char), intent (in ) :: name
220
+ character (kind = c_char, len = 1 ), intent (in ) :: name
221
221
end subroutine pcmsolver_load_surface_function
222
222
end interface pcmsolver_load_surface_function
223
223
0 commit comments