万能的吧友，这个程序哪有问题，执行到open就执行不下去了

program TRANSFORM_1
implicit none
real::r1,rl1
do r1=-2,1,0.1
rl1=0.5*exp(-(10**r1*10**r1)/4)
open(unit=1,file='output.txt',status='new')
write(1,100)r1,rl1
100 format(1x,f4.1,2x,f7.4)
end do
end program TRANSFORM_1