Commit 2b782e81 authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Write CSM_CLUSTER only for first polarization state

parent 84c17b83

src/cluster/cluster.cpp

+4 −2
Original line number Diff line number Diff line
@@ -1075,8 +1075,10 @@ int cluster_jxi488_cycle(int jxi488, ScattererConfiguration *sconf, GeometryConf 
	      sprintf(virtual_line, "  Fk=%15.7lE\n\0", fz);

	      output->append_line(virtual_line);

	      double alamb = 2.0 * 3.141592653589793 / cid->vk;

	      if (ilr210 == 1) {

		sprintf(virtual_line, "INSERTION: CSM_CLUSTER  %15.7lE%15.7lE%15.7lE%15.7lE\n\0", alamb, scasm, abssm, extsm);

		output->append_line(virtual_line);

	      }

	    } // ilr210 loop

	    double rmbrif = (real(cid->c1ao->fsacm[0][0]) - real(cid->c1ao->fsacm[1][1])) / real(cid->c1ao->fsacm[0][0]);

	    double rmdchr = (imag(cid->c1ao->fsacm[0][0]) - imag(cid->c1ao->fsacm[1][1])) / imag(cid->c1ao->fsacm[0][0]);