从文件中读入一列数据，将读入的数据作为变量x，程序计算𝑒 −𝑖𝑥并输出至文件。

下面是一个示例代码，它从文件中读取一列数据，将数据作为变量x，并计算e^(-ix)，然后将结果输出到另一个文件中：

program calculate_exponential
    implicit none
    
    real :: x, result
    integer :: i, n
    character(len=100) :: input_file = "input.txt"
    character(len=100) :: output_file = "output.txt"
    character(len=100) :: line
    
    ! 打开输入文件
    open(unit=10, file=input_file, status='old')
    
    ! 打开输出文件
    open(unit=20, file=output_file, status='replace')
    
    ! 逐行读取输入文件并计算结果
    do i = 1, n
        read(10, '(A)', iostat=n) line
        if (n /= 0) then
            read(line, *) x
            result = exp(-1.0 * cmplx(0.0, 1.0) * x)
            write(20, *) result
        else
            exit ! 读取到文件结尾退出循环
        end if
    end do
    
    ! 关闭文件
    close(10)
    close(20)
    
end program calculate_exponential

在上面的示例中，我们假设输入文件名为 "input.txt"，输出文件名为 "output.txt"。我们首先打开输入文件和输出文件，然后使用一个循环逐行读取输入文件。

在每次循环中，我们使用 `read` 函数将当前行的数据读取到变量 `x` 中，然后计算 e^(-ix) 的值，并将结果写入输出文件。

请注意，上面的代码中使用了 `cmplx` 函数来创建虚数，然后通过 `exp` 函数计算指数。你可以根据实际需求修改文件名和数据的格式。