set4004
delete fort.*
assign gf4004.gam fort.8
assign partfn4004.dat fort.7
partfn