C -*- fortran -*- COMMON /CHSOLN/ ISOLN_SEL, NPHI_SEL, + ISTART_SEL(MAX_PHIR), IPHI_SEL(MAX_PHIR), + NIMAG_SEL(MAX_PHIR), OSC_SEL, + PHIS_SEL(MAX_PHIR), PHIE_SEL(MAX_PHIR), + ISOLN_TYP INTEGER ISOLN_SEL, NPHI_SEL, ISTART_SEL, IPHI_SEL, + NIMAG_SEL REAL OSC_SEL, PHIS_SEL, PHIE_SEL INTEGER ISOLN_TYP C ISOLN_SEL Solution no. selected (within the selected type) C NPHI_SEL No. of phi ranges C ISTART_SEL() Start phi bin no. for each phi range C IPHI_SEL() No. of phi bins for each phi range C NIMAG_SEL() No. of images for each phi range (if ITYP=2) C OSC_SEL Oscillation angle (if full analyses) C PHIS_SEL() Start phi values of ranges C PHIE_SEL() End phi values of ranges C ISOLN_TYP Solution type =1 single rotation solution C =2 double rotation solution C =3 multiple segments solution