-c write (iout,*) 'i',i,' j',j,' eel_loc_ij',eel_loc_ij
-C write (iout,'(a6,2i5,0pf7.3)')
-C & 'eelloc',i,j,eel_loc_ij
+C write (iout,'(a3,i4,a3,i4,a8,4f8.3)')
+C & 'i',i,' j',j,' eel_loc_ij',eel_loc_ij,sslipi,
+C & sslipj,lipscale
+C write (iout,'(a6,2i5,0pf7.3,2f7.3)')
+C & 'eelloc',i,j,eel_loc_ij,a22*muij(1),a23*muij(2)