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

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

function hex_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

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

### 回答2：
要用Fortran编写函数子程序，将输入的十六进制数转换为相应的十进制数，可以按照以下步骤进行：

1. 创建一个Fortran函数子程序，命名为hex_to_dec，定义输入和输出参数。

2. 在函数子程序中，编写代码从输入的十六进制数中获取每个十六进制位，并将其转换为对应的十进制数。

3. 声明一个变量（例如dec_num）用来存储最终的十进制数。

4. 遍历十六进制数的每个位数，从最高位开始，需要将每个十六进制数位转换为对应的十进制数位。

5. 对于每个十六进制数位，需要进行以下操作：
- 将该位的十六进制数转换为对应的十进制数值。这可以通过使用Fortran内置的转换函数HEXT(x)来实现，其中x为十六进制数，HEXT函数返回对应的十进制整数值。
- 将得到的十进制数通过位移运算，将其移到正确位置。例如，对于第n位的十进制数，需要将其乘以16的(n-1)次方。
- 将得到的十进制数累加到dec_num上。

6. 将最终的十进制数dec_num作为函数子程序的输出。

下面是一个示例的Fortran代码实现上述功能：

recursive function hex_to_dec(hex_num) result(dec_num)
    character(*), intent(in) :: hex_num
    integer :: i, digit, dec_num
  
    dec_num = 0
    do i = 1, len(hex_num)
        digit = hext(hex_num(i:i))
        dec_num = dec_num + digit * 16 ** (len(hex_num) - i)
    end do
end function hex_to_dec

在主程序中，你可以调用这个函数子程序来进行输入和输出的操作。使用一个十六进制数字符串作为输入，然后调用hex_to_dec函数将其转换为十进制数。最后，你可以输出得到的十进制数。

希望这能对你有帮助！

### 回答3：
使用Fortran编写函数子程序来将十六进制数转换为十进制数非常简单。以下是一个示例程序：

program hex_to_decimal
    implicit none
    
    integer :: dec
    character(len=10) :: hex_str
    
    print *, "请输入一个十六进制数："
    read *, hex_str
    
    dec = hex_to_dec(hex_str)
    
    print *, "相应的十进制数为：", dec

contains

    function hex_to_dec(hex_str) result(dec)
        implicit none
        character(len=10), intent(in) :: hex_str
        integer :: dec
        character(16), parameter :: hex_digits = "0123456789ABCDEF"
        integer :: i, digit, value
        
        dec = 0
        do i = 1, len(trim(hex_str))
            digit = index(hex_digits, char(hex_str(i:i)))
            if (digit > 0) then
                dec = dec * 16 + digit - 1
            else
                print *, "无效的十六进制数输入！"
                stop
            end if
        end do

        return
    end function hex_to_dec

end program hex_to_decimal

以上程序通过`hex_to_dec`函数将十六进制数转换为十进制数。在函数中，我们首先定义了一个字符数组`hex_digits`，用于存储十六进制的所有可能的数字。

然后，在循环中，我们逐位检查输入的十六进制字符串。如果它是一个有效的十六进制数字，我们将其转换为相应的十进制值，并将其累加到`dec`变量中。

如果输入的字符串包含无效的字符，程序将输出错误消息并终止。

最后，主程序获取用户输入的十六进制数，调用`hex_to_dec`函数进行转换，并将结果打印出来。

这样，我们就实现了一个将十六进制数转换为十进制数的Fortran函数子程序。