Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

56 lines
2.6 KiB

  1. ! BSD 2-Clause License
  2. !
  3. ! Copyright (c) 2021-2022, Hewlett Packard Enterprise
  4. ! All rights reserved.
  5. !
  6. ! Redistribution and use in source and binary forms, with or without
  7. ! modification, are permitted provided that the following conditions are met:
  8. !
  9. ! 1. Redistributions of source code must retain the above copyright notice, this
  10. ! list of conditions and the following disclaimer.
  11. !
  12. ! 2. Redistributions in binary form must reproduce the above copyright notice,
  13. ! this list of conditions and the following disclaimer in the documentation
  14. ! and/or other materials provided with the distribution.
  15. !
  16. ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  17. ! AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18. ! IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  19. ! DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
  20. ! FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21. ! DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  22. ! SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  23. ! CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  24. ! OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  25. ! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  26. interface
  27. function set_data_source_c( client, source_id, source_id_length ) bind(c, name="set_data_source")
  28. use iso_c_binding, only : c_ptr, c_char, c_bool, c_size_t
  29. import :: enum_kind
  30. integer(kind=enum_kind) :: set_data_source_c
  31. type(c_ptr), value :: client
  32. character(kind=c_char) :: source_id(*)
  33. integer(kind=c_size_t), value :: source_id_length
  34. end function set_data_source_c
  35. end interface
  36. interface
  37. function use_model_ensemble_prefix_c( client, use_prefix) bind(c, name="use_model_ensemble_prefix")
  38. use iso_c_binding, only : c_ptr, c_bool
  39. import :: enum_kind
  40. integer(kind=enum_kind) :: use_model_ensemble_prefix_c
  41. type(c_ptr), value :: client
  42. logical(kind=c_bool), value :: use_prefix
  43. end function use_model_ensemble_prefix_c
  44. end interface
  45. interface
  46. function use_tensor_ensemble_prefix_c( client, use_prefix) bind(c, name="use_tensor_ensemble_prefix")
  47. use iso_c_binding, only : c_ptr, c_bool
  48. import :: enum_kind
  49. integer(kind=enum_kind) :: use_tensor_ensemble_prefix_c
  50. type(c_ptr), value :: client
  51. logical(kind=c_bool), value :: use_prefix
  52. end function use_tensor_ensemble_prefix_c
  53. end interface