Skip to content

Commit

Permalink
ENH: Add prefix in C API modules for avoiding conflicts.
Browse files Browse the repository at this point in the history
  • Loading branch information
MilanSkocic committed Jul 3, 2024
1 parent 4106efd commit db4e41b
Show file tree
Hide file tree
Showing 6 changed files with 14 additions and 14 deletions.
10 changes: 5 additions & 5 deletions src/capi.f90
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
module capi
module iapws__capi
!! Main module for the IAPWS library: C API.
use capi__version
use capi__r783
use capi__g704
end module
use iapws__capi_version
use iapws__capi_r783
use iapws__capi_g704
end module iapws__capi
4 changes: 2 additions & 2 deletions src/capi_g704.f90
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
module capi__g704
module iapws__capi_g704
!! Module for IAPWS G704 : C API.
use iso_fortran_env
use iso_c_binding, only: c_double, c_int, c_ptr, c_f_pointer, c_char, c_size_t, c_null_char, c_loc
Expand Down Expand Up @@ -153,4 +153,4 @@ function capi_gases2(heavywater)bind(C, name="iapws_g704_gases2")result(str_gase

end function

end module
end module iapws__capi_g704
4 changes: 2 additions & 2 deletions src/capi_r283.f90
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
module capi__r783
module iapws__capi_r783
!! Module for IAPWS R2-83: C API.
use iso_c_binding, only: c_double
use iapws__r283
Expand All @@ -21,4 +21,4 @@ module capi__r783
capi_rhoc_H2O, &
capi_rhoc_D2O

end module
end module iapws__capi_r783
4 changes: 2 additions & 2 deletions src/capi_r797.f90
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
module capi__r797
module iapws__capi_r797
use stdlib_kinds, only: dp, int32
use iso_c_binding, only: c_double, c_int, c_size_t
use iapws__r797
Expand Down Expand Up @@ -31,4 +31,4 @@ pure subroutine capi_Tsat(N, ps, Ts)bind(C, name="iapws_r797_Tsat")

end subroutine

end module
end module iapws__capi_r797
4 changes: 2 additions & 2 deletions src/capi_version.f90
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
module capi__version
module iapws__capi_version
!! Version: C API.
use iso_c_binding, only: c_null_char, c_ptr, c_loc
use iapws__version
Expand Down Expand Up @@ -30,4 +30,4 @@ function capi_get_version()bind(c,name="iapws_get_version")result(cptr)
cptr = c_loc(version_c)
end function

end module capi__version
end module iapws__capi_version
2 changes: 1 addition & 1 deletion src/iapws.f90
Original file line number Diff line number Diff line change
Expand Up @@ -4,5 +4,5 @@ module iapws
use iapws__g704
use iapws__r283
use iapws__r797
use capi
use iapws__capi
end module

0 comments on commit db4e41b

Please sign in to comment.