用fortran编写函数子程序，输入一个十六进制数，出入相应的十进制数

可以使用 Fortran 中的 int 函数将十六进制数转换为十进制数。下面是一个示例函数：

functionhex_to_decimal(hex_num) result(decimal_num)
    ! 声明函数输入和输出
    character(len=*), intent(in) :: hex_num
    integer :: decimal_num

    ! 调用 int 函数将十六进制数转换为十进制数
    decimal_num = int(hex_num, 16)
end function hex_to_decimal

使用方法如下：

! 调用函数
decimal_num = hex_to_decimal("A2")
print *, decimal_num ! 输出 162

注意，上面的函数只能处理正整数。如果想要处理负数或小数，需要使用更复杂的方法。