& sigma_odl_temp(i+nnt-1,j+nnt-1,ki)
odl_temp(j+nnt-1,i+nnt-1,ki)=odl_temp(i+nnt-1,j+nnt-1,ki)
sigma_odl_temp(j+nnt-1,i+nnt-1,ki)=
& sigma_odl_temp(i+nnt-1,j+nnt-1,ki)
enddo
1401 continue
& sigma_odl_temp(i+nnt-1,j+nnt-1,ki)
odl_temp(j+nnt-1,i+nnt-1,ki)=odl_temp(i+nnt-1,j+nnt-1,ki)
sigma_odl_temp(j+nnt-1,i+nnt-1,ki)=
& sigma_odl_temp(i+nnt-1,j+nnt-1,ki)
enddo
1401 continue