652
652
write(*,*),'Impossible BW configuration'
653
653
open(unit=66,file='results.dat',status='unknown')
654
write(66,'(3e12.5,2i9,i5,i9,3e10.3)')0.,0.,0.,0,0,1,0,0.,0.,0.
654
write(66,'(3e12.5,2i9,i5,i9,4e10.3)')0.,0.,0.,0,0,1,0,0.,0.,0.,0.
655
655
write(66,'(i4,5e15.5)') 1,0.,0.,0.,0.,0.