write (iunit,30) ica(nct),ica(nct)+1
endif
do i=1,nss
- write (iunit,30) ica(ihpb(i)-nres)+1,ica(jhpb(i)-nres)+1
+c trzeba uporzdkowac
+c write (iunit,30) ica(ihpb(i))+1,ica(jhpb(i))+1
enddo
write (iunit,'(a6)') 'ENDMDL'
10 FORMAT ('ATOM',I7,' CA ',A3,I6,4X,3F8.3,f15.3)