-c write (iout,'(2i5,3e15.5)') i,me,potE(i,iparm),-entfac(i)
+c else
+ if (bxfile .or.cxfile .or. ensembles.gt.0) write
+ & (ientin,rec=i)
+ & ((csingle(l,k),l=1,3),k=1,nres),
+ & ((csingle(l,k+nres),l=1,3),k=nnt,nct),
+ & nss,(ihpb(k),jhpb(k),k=1,nss),
+c & potE(i,iparm),-entfac(i),rms_nat,iscore
+ & potE(i,nparmset),-entfac(i),rms_nat,iscore
+c endif
+ write (iout,'(2i5,3e15.5)') i,me,potE(i,iparm),-entfac(i)