我在程序的开头定义了
open(unit=10,file="input.txt")
open(unit=20,file="output.txt")
最后
write(20,*)lambda,length

可是打开output.txt里面却什么都没有，程序编译没错，运行也没出错，这是为什么那，即使是0它也应该有结果吧

我改成write(20,*)lambda,f后output.txt也还是什么显示都没，f还是前面input.txt里输入的一个常数，这是什么原因啊

program main
    implicit none
    integer::d,t,k,i,j  
    real::a,b,c       
    real::M,P,P0,Q,xi    
    real::E0,f,A0  
    real::epsi0,epsi,phi0,ee,dM,deta0   
    real::Ae,Sey,Iey,length        
    real::RR,yye,IIe,MM           
    real::phi(0:500),deta(500,2),thet(500),R(0:500),ye(0:500),Ie(0:500)
    real,parameter::pi=3.1415926   
    real::psi,lambda               
    real,allocatable::y(:),sigmar(:),AA(:)
    open(unit=10,file="input.txt")
    open(unit=20,file="output.txt")
    read(10,*)d,t,f,phi(0),Q,ee
    k=360*t             
    A0=pi*4*d**2-pi*4*(d-2*t)**2         
    E0=206000
    deta0=50.0
    allocate(y(k),sigmar(k),AA(k))          
    call yi(d,t,k,y)
    call sigr(t,k,f,sigmar)
    do psi=0.1,0.9,0.1
        epsi0=psi*f/E0
        epsi=epsi0
        
这是我前面的程序
输入文件为“273,6,420,0.02,0,0”
后面在debug模式下发现居然输入文件的数都为0，Phi（0）还说是未定义的变量