X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD-5D%2Fcxread.F;h=cd29176ba1f7078a971c811c38f83ee15b09e2b1;hb=a30bd29e64da2aa47b84963fdd0bf4192ead2738;hp=e3e5fcb2dad35cba674c9fd42936296d27357f72;hpb=020e579626d686ec20ecd9f0cc4c8313f474e152;p=unres.git

diff --git a/source/wham/src-HCD-5D/cxread.F b/source/wham/src-HCD-5D/cxread.F
index e3e5fcb..cd29176 100644
--- a/source/wham/src-HCD-5D/cxread.F
+++ b/source/wham/src-HCD-5D/cxread.F
@@ -300,6 +300,7 @@ c     &          bprotfile_temp(:ilen(bprotfile_temp))
           write (iout,'(8f10.5)') ((c(j,i),j=1,3),i=1,nres)
           write (iout,'(8f10.5)') ((c(j,i+nres),j=1,3),i=nnt,nct)
           write (iout,*) "Internal coordinates"
+          call intout
           write (iout,'(8f10.4)') (vbld(k),k=nnt+1,nct)
           write (iout,'(8f10.4)') (vbld(k),k=nres+nnt,nres+nct)
           write (iout,'(8f10.4)') (rad2deg*theta(k),k=3,nres)