“…lt.l000) close (11) close (12) close (15) close ( '(i2,1x,lpe9.2,30e10.2)') nrst,(gm(i,j),i=l,nauto(j)+l) write (15,'(i2,1x,lpe13.7,30el4.7)') nrst,(gm(i,j),i=l,nauto(j)+l) close (14) close (15) '(i2,1x,lpe9.2,30e10.2)') nrst,(gm(i,j),i=l,nauto(j)+l) write (15,'(i2,1x,lpe13.7,30el4.7)') nrst,(gm(i,j),i=l,nauto(j)+l) close (14) close ( '(3x,f8.2,3x,lpe9.2,3OelO.2)') close ( '(3x,a9,30(lx,a9))') (niso(i,j),i=l,nauto(j)),'actinide' do 90 i=l,nouter-1 read (11,'(3x,lpe9.2,30e10.2)') (bb2(m),rn=l,nauto(j)+l) 90 write (14,'(i2,1x,lpe9.2,3Oe10.2 i4,4(lx,i2,a4,2x,lpe10.4 40 m=abs(kfeedl(nrem,n)),abs(kfeed2(nrem,n) 4(1x,2x,a4,2x,lpe10.4)) else endi f goto 30 read (12, ' (a72) ' ) line write (13,'(a72)') line goto 30 SO close (12) close ( …”