-c if (nbfrag.gt.0) then
-c
-c do j=1,nbfrag
-c
-c iti=itype(bfrag(1,j))
-c itj=itype(bfrag(2,j)-1)
-c
-c write (iunit,'(a5,i5,1x,a1,i1,i3,1x,a3,i6,2x,a3,i6,i3)')
-c & 'SHEET',1,'B',j,2,
-c & restyp(iti),bfrag(1,j)-1,
-c & restyp(itj),bfrag(2,j)-2,0
-c
-c if (bfrag(3,j).gt.bfrag(4,j)) then
-c
-c itk=itype(bfrag(3,j))
-c itl=itype(bfrag(4,j)+1)
-c
-c write (iunit,'(a5,i5,1x,a1,i1,i3,1x,a3,i6,2x,a3,i6,i3,
-c & 2x,a1,2x,a3,i6,3x,a1,2x,a3,i6)')
-c & 'SHEET',2,'B',j,2,
-c & restyp(itl),bfrag(4,j),
-c & restyp(itk),bfrag(3,j)-1,-1,
-c & "N",restyp(itk),bfrag(3,j)-1,
-c & "O",restyp(iti),bfrag(1,j)-1
-c
-c else
-c
-c itk=itype(bfrag(3,j))
-c itl=itype(bfrag(4,j)-1)
-c
-c
-c write (iunit,'(a5,i5,1x,a1,i1,i3,1x,a3,i6,2x,a3,i6,i3,
-c & 2x,a1,2x,a3,i6,3x,a1,2x,a3,i6)')
-c & 'SHEET',2,'B',j,2,
-c & restyp(itk),bfrag(3,j)-1,
-c & restyp(itl),bfrag(4,j)-2,1,
-c & "N",restyp(itk),bfrag(3,j)-1,
-c & "O",restyp(iti),bfrag(1,j)-1
-c
-c
-c
-c endif
-c
-c enddo
-c endif
+ write (iunit,'(a5,i5,1x,a1,i1,i3,1x,a3,i6,2x,a3,i6,i3,
+ & 2x,a1,2x,a3,i6,3x,a1,2x,a3,i6)')
+ & 'SHEET',2,'B',j,2,
+ & restyp(itl),bfrag(4,j),
+ & restyp(itk),bfrag(3,j)-1,-1,
+ & "N",restyp(itk),bfrag(3,j)-1,
+ & "O",restyp(iti),bfrag(1,j)-1