make cp src-HCD-5D

[unres.git] / source / wham / src-HCD-5D / cxread.F

diff --git a/source/wham/src-HCD-5D/cxread.F b/source/wham/src-HCD-5D/cxread.F
index e3e5fcb..cd29176 100644 (file)
--- 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)