wrapper_fortran.f90

Go to the documentation of this file.

!!
!!  Copyright (C) 2018-2024 by the authors of the World Builder code.
!!
!!  This file is part of the World Builder.
!!
!!  This program is free software: you can redistribute it and/or modify
!!  it under the terms of the GNU Lesser General Public License as published
!!  by the Free Software Foundation, either version 2 of the License, or
!!  (at your option) any later version.
!!
!!  This program is distributed in the hope that it will be useful,
!!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!!  GNU Lesser General Public License for more details.
!!
!!  You should have received a copy of the GNU Lesser General Public License
!!  along with this program.  If not, see <https://www.gnu.org/licenses/>.
!!

MODULE worldbuilder
use, INTRINSIC :: iso_c_binding!, ONLY: C_PTR
  IMPLICIT NONE

  INTERFACE

   SUBROUTINE create_world(cworld, file_name, has_output_dir, output_dir, random_number_seed) bind(C, NAME='create_world') 
      use, INTRINSIC :: iso_c_binding, only: c_ptr, c_bool, c_char, c_long
      IMPLICIT NONE
      ! This argument is a pointer passed by reference.
      TYPE(c_ptr), INTENT(OUT) :: cworld
      character(KIND=C_CHAR,len=1),  intent(in)  :: file_name
      logical(KIND=C_BOOL), intent(in) :: has_output_dir
      character(KIND=C_CHAR,len=1),  intent(in)  :: output_dir
      INTEGER(C_LONG), intent(in), value ::random_number_seed
    END SUBROUTINE create_world

    SUBROUTINE temperature_2d(cworld, x, z, depth, temperature) bind(C, NAME='temperature_2d')
      use, INTRINSIC :: iso_c_binding
      IMPLICIT NONE
      ! This argument is a pointer passed by value.
      TYPE(c_ptr), INTENT(IN), VALUE :: cworld
      REAL(C_DOUBLE), intent(in), value :: x
      REAL(C_DOUBLE), intent(in), value :: z
      REAL(C_DOUBLE), intent(in), value :: depth
      REAL(C_DOUBLE), intent(out) :: temperature
    END SUBROUTINE temperature_2d

        SUBROUTINE temperature_3d(cworld, x, y, z, depth, temperature) bind(C, NAME='temperature_3d')
      use, INTRINSIC :: iso_c_binding
      IMPLICIT NONE
      ! This argument is a pointer passed by value.
      TYPE(c_ptr), INTENT(IN), VALUE :: cworld
      REAL(C_DOUBLE), intent(in), value :: x
      REAL(C_DOUBLE), intent(in), value :: y
      REAL(C_DOUBLE), intent(in), value :: z
      REAL(C_DOUBLE), intent(in), value :: depth
      REAL(C_DOUBLE), intent(out) :: temperature
    END SUBROUTINE temperature_3d

        SUBROUTINE composition_2d(cworld, x, z, depth, composition_number, composition) bind(C, NAME='composition_2d')
      use, INTRINSIC :: iso_c_binding
      IMPLICIT NONE
      ! This argument is a pointer passed by value.
      TYPE(c_ptr), INTENT(IN), VALUE :: cworld
      REAL(C_DOUBLE), intent(in), value :: x
      REAL(C_DOUBLE), intent(in), value :: z
      REAL(C_DOUBLE), intent(in), value :: depth
      INTEGER(C_INT), intent(in), value :: composition_number
      REAL(C_DOUBLE), intent(out) :: composition
    END SUBROUTINE composition_2d

      SUBROUTINE composition_3d(cworld, x, y, z, depth, composition_number, composition) bind(C, NAME='composition_3d')
      use, INTRINSIC :: iso_c_binding
      IMPLICIT NONE
      ! This argument is a pointer passed by value.
      TYPE(c_ptr), INTENT(IN), VALUE :: cworld
      REAL(C_DOUBLE), intent(in), value :: x
      REAL(C_DOUBLE), intent(in), value :: y
      REAL(C_DOUBLE), intent(in), value :: z
      REAL(C_DOUBLE), intent(in), value :: depth
      INTEGER(C_INT), intent(in), value :: composition_number
      REAL(C_DOUBLE), intent(out) :: composition
    END SUBROUTINE composition_3d

    SUBROUTINE release_world(cworld) bind(C, NAME='release_world')
      use, INTRINSIC :: iso_c_binding, only: c_ptr
      IMPLICIT NONE
      ! This argument is a pointer passed by value.
      TYPE(c_ptr), INTENT(IN), VALUE :: cworld
    END SUBROUTINE release_world
  END INTERFACE

  TYPE(c_ptr) :: cworld
  END MODULE worldbuilder