Как реализовать встроенное приведение REAL для пользовательского типа данных в Fortran

Я искал в Интернете решение этой проблемы, но должен признать, что полностью застрял.

У меня есть производный тип данных

TYPE :: MyType
    REAL(KIND=MY_REAL_KIND) :: real_val
    INTEGER :: int_val
END TYPE

Я перегружаю операторы и встроенные функции для работы с ним. Мне нужно перегрузить приведение REAL для работы с этим типом, чтобы при вызове он возвращал элемент real_val. Так фа так хорошо:

 FUNCTION real_mytype (a) RESULT (x)
    IMPLICIT NONE
    TYPE(MyType), INTENT(IN) :: a
    REAL(KIND=MY_REAL_KIND) :: x
    # Take advantage of the overloaded (=) operator
    x = a
END FUNCTION real_mytype

Но тогда мне нужно выполнить приведение с заданной точностью, скажем, как

INTEGER, PUBLIC, PARAMETER :: sp = SELECTED_REAL_KIND( 6, 37)
INTEGER, PUBLIC, PARAMETER :: dp = SELECTED_REAL_KIND(12,307)
TYPE(MyType) :: a
call external_function_that_I_cant_change(REAL(a, sp))
call second_external_function_that_I_cant_change(REAL(a, dp))

Я не знаю, как написать такой интерфейс, потому что тип возвращаемого значения (двойное вещественное число или одиночное вещественное число) будет зависеть от значения входного параметра INTEGER (sp или dp), а не от его типа, что является своего рода запрещено в Фортране. Следующее просто не имеет смысла:

FUNCTION real_mytype_1d (a, p) RESULT (x)
    IMPLICIT NONE
    TYPE(MyType),  INTENT(IN) :: a
    INTEGER                   :: p
    REAL(KIND=something_that_depends_on_p)  :: x
    x = a
END FUNCTION real_mytype_1d

Я уже взглянул на функцию передачи, как предложено integer-or-as">здесь, но я не смог найти решение (тип возвращаемого значения val зависит от типа пресс-формы).

Любое предложение?