- call pdbout(indstart(me1)+iii,
- & 1.0d0/(1.987D-3*beta_h(ib,ipar)),
- &energia(0),eini,0.0d0,0.0d0)
+#ifdef DEBUG
+c call pdbout(indstart(me1)+iii,
+c & 1.0d0/(1.987D-3*beta_h(ib,ipar)),
+c &energia(0),eini,0.0d0,0.0d0)
+ write (iout,*) "wsaxs",wsaxs