使用fortran语言写一个计算钢筋的代码

以下是一个简单的Fortran代码，可以计算钢筋的重量：

program calculate_steel_weight
    implicit none
    integer :: diameter, length ! 钢筋直径和长度
    real :: weight_per_meter, weight ! 钢筋每米重量和总重量

    write(*,*) "请输入钢筋直径（单位：毫米）："
    read(*,*) diameter

    write(*,*) "请输入钢筋长度（单位：米）："
    read(*,*) length

    ! 计算每米钢筋重量
    weight_per_meter = 0.006165 * diameter**2

    ! 计算总重量
    weight = weight_per_meter * length

    write(*,*) "钢筋直径为", diameter, "毫米，长度为", length, "米"
    write(*,*) "每米钢筋重量为", weight_per_meter, "千克"
    write(*,*) "总重量为", weight, "千克"

end program calculate_steel_weight

该程序会提示用户输入钢筋直径和长度，然后计算每米钢筋重量和总重量，并将结果输出到控制台。