set1400
assign gf1400.gam fort.8
assign partfn1400.dat fort.7
partfn > partfn1400.log