Commit 00d2f2fc authored by Vaughn, Kyle's avatar Vaughn, Kyle
Browse files

Added jl_box_float32

parent 852ea238

src/Julia_API.f90

+6 −0
Original line number Diff line number Diff line
@@ -26,6 +26,7 @@ PUBLIC :: jl_array_data 
PUBLIC :: jl_array_dim

PUBLIC :: jl_array_len

PUBLIC :: jl_atexit_hook

PUBLIC :: jl_box_float32

PUBLIC :: jl_box_float64

PUBLIC :: jl_box_int32

PUBLIC :: jl_box_int64
@@ -81,6 +82,11 @@ INTERFACE 
    INTEGER(C_INT),VALUE :: status

  ENDSUBROUTINE 



  TYPE(C_PTR) FUNCTION jl_box_float32(float) BIND(C,NAME="jl_box_float32")

    IMPORT :: C_FLOAT,C_PTR,

    REAL(C_FLOAT),VALUE,INTENT(IN) :: float

  ENDFUNCTION



  TYPE(C_PTR) FUNCTION jl_box_float64(double) BIND(C,NAME="jl_box_float64")

    IMPORT :: C_DOUBLE,C_PTR,

    REAL(C_DOUBLE),VALUE,INTENT(IN) :: double