& iii+1,indstart(me1)+iii," T",
& 1.0d0/(1.987D-3*beta_h(ib,ipar))
call enerprint(energia(0),fT)
- itmp=ipdb
- ipdb=iout
- call pdbout(iii+1,beta_h(ib,ipar),
- & eini,energia(0),0.0d0,rmsdev)
- write (iout,*)
- ipdb=itmp
+c itmp=ipdb
+c ipdb=iout
+c call pdbout(iii+1,beta_h(ib,ipar),
+c & eini,energia(0),0.0d0,rmsdev)
+c write (iout,*)
+c ipdb=itmp
+ itmp=igeom
+ igeom=iout
+ call cartout(i)
+ igeom=itmp
errmsg_count=errmsg_count+1
if (errmsg_count.gt.maxerrmsg_count)