用简单的fortran写已知摄氏温度与华氏温度的换算关系式: -32 请编写一程序求华氏温度为10，40,100,180度的摄氏温度

在Fortran中，我们可以使用一个函数来实现摄氏到华氏的转换，并通过循环处理提供的几个特定温度值。下面是一个简单的示例：

! 定义常数：华氏零点和水的冰点
REAL :: C_TO_F = 9.0 / 5.0 ! 摄氏转华氏的比例
REAL :: F_FREEZING = 32.0 ! 华氏冰点

! 函数定义，将摄氏温度转换为华氏温度
FUNCTION celsius_to_fahrenheit(c)
    REAL :: celsius_to_fahrenheit, celsius
    celsius_to_fahrenheit = c * C_TO_F + F_FREEZING
end function

! 主程序开始
PROGRAM temperature_converter
    INTEGER :: i
    REAL :: fahrenheit_values(3) = (/ 10., 40., 100., 180. /) ! 提供的华氏温度数组
    REAL :: celsius_values(3)

    ! 循环计算并打印每个温度的摄氏值
    DO i = 1, SIZE(fahrenheit_values)
        celsius_values(i) = celsius_to_fahrenheit(fahrenheit_values(i))
        PRINT *, "华氏", fahrenheit_values(i), "对应摄氏", celsius_values(i)
    END DO

END PROGRAM temperature_converter

当你运行这个程序，它会输出给定华氏温度对应的摄氏温度。注意，这个程序假设了提供的华氏温度数组`fahrenheit_values`。如果你需要输入其他特定的温度，可以修改这部分。