-! write (iout,*) "ires",ires,ires-ishift+ishift1,
-! & " ires_old",ires_old
-! write (iout,*) "ishift",ishift," ishift1",ishift1
-! write (iout,*) "IRES",ires-ishift+ishift1,ires_old
+c write (iout,*) "ires",ires,ires-ishift+ishift1,
+c & " ires_old",ires_old
+c write (iout,*) "ishift",ishift," ishift1",ishift1
+c write (iout,*) "IRES",ires-ishift+ishift1,ires_old