-c write (iout,*) "odleg",odleg," kat",kat," Eval",Eval," Erot",Erot
-c write (iout,*) "ehomology_constr",ehomology_constr
-c ehomology_constr=odleg+kat+Uconst_back
+#ifdef DEBUG
+ write (iout,*) "iset",iset," waga_homology",waga_homology(iset)
+ write (iout,*) "odleg",waga_dist,odleg," kat",waga_angle,kat,
+ & " Eval",waga_theta,Eval," Erot",waga_d,Erot
+ write (iout,*) "ehomology_constr",ehomology_constr
+#endif