% --------------------------------------------------------
  Samecoding

  The samecoding script lines below should be copied into
  a THERMOCALC script file to tell it to make additional 
  copies of an x-eos with their own names and composition/order
  starting guesses. For example, the script
       samecoding cpx pig
  says "make a copy of cpx, called pig" (multiple copies 
  can be made).
  To use the samecoding script, there must be a xyzguess 
  starting guess block, as shown below, for the duplicate phase.

% --------------------------------------------------------

samecoding liq_W24d  liq      		% silicate melt (dry)
samecoding ol_H18    ol	 		% olivine
samecoding g_W24     g			% garnet
samecoding spl_T21   spl mgt cm usp	% spinel, magnetite, Cr-spinel, ulvospinel
samecoding fsp_H22   pl afs  		% plagioclase, alkali feldspar
samecoding cpx_W24   cpx pig		% augitic clinopyroxene, pigeonite
samecoding opx_W24   opx		% orthopyroxene
samecoding ilm_W24   ilm hem            % ilmenite, hematite
samecoding nph_W24   nph nphk 		% Na-rich nepheline, K-rich nepheline  
samecoding kals_W24  kals		% kalsilite
samecoding lct_W24   lct		% leucite
samecoding mel_W24   mel		% melilite


% --------------------------------------------------------
  Starting guesses for composition/order variables

  Some possible starting guesses are given here that MIGHT help 
  (but make sure they represent a plausible composition for 
  the phases in your calcs). 
% --------------------------------------------------------

% --------------------------------------------------------
xyzguess wo(liq)      0.18
xyzguess sl(liq)      0.14
xyzguess fo(liq)      0.02
xyzguess fa(liq)      0.03
xyzguess ns(liq)      0.25
xyzguess hm(liq)      0.04
xyzguess ek(liq)      0.0005
xyzguess ti(liq)      0.03
xyzguess ks(liq)      0.18
xyzguess yan(liq)     0.004
xyzguess yab(liq)     0.09
xyzguess yen(liq)     0.02
xyzguess ykf(liq)     0.06
% -----------------------------
xyzguess x(ol)        0.3
xyzguess c(ol)        0.01
xyzguess Q(ol)        0.001     range -0.5 0.5
% -----------------------------
xyzguess x(g)         0.4
xyzguess c(g)         0.2
xyzguess f(g)         0.01
xyzguess cr(g)        0.002
xyzguess t(g)         0.02
% -----------------------------
xyzguess x(spl)       0.65
xyzguess y(spl)       0.08
xyzguess c(spl)       0.01
xyzguess t(spl)       0.01
xyzguess Q1(spl)      0.2       range -1 1
xyzguess Q2(spl)      0.2       range -1 1
xyzguess Q3(spl)      0.15      range -1 1
% -----------------------------
xyzguess x(cm)        0.5
xyzguess y(cm)        0.08
xyzguess c(cm)        0.85
xyzguess t(cm)        0.01
xyzguess Q1(cm)       0.2       range -1 1
xyzguess Q2(cm)       0.4       range -1 1
xyzguess Q3(cm)       0.02      range -1 1
% -----------------------------
xyzguess x(mgt)       0.85
xyzguess y(mgt)       0.85
xyzguess c(mgt)       0.01
xyzguess t(mgt)       0.01
xyzguess Q1(mgt)      0.05      range -1 1
xyzguess Q2(mgt)      0.05      range -1 1
xyzguess Q3(mgt)      0.02      range -1 1
% -----------------------------
xyzguess x(usp)       0.3
xyzguess y(usp)       0.1
xyzguess c(usp)       0.01
xyzguess t(usp)       0.85
xyzguess Q1(usp)      0.15      range -1 1
xyzguess Q2(usp)      0.05      range -1 1
xyzguess Q3(usp)      0.02      range -1 1
% -----------------------------
xyzguess ca(pl)       0.67
xyzguess k(pl)        0.01
% -----------------------------
xyzguess ca(afs)      0.03
xyzguess k(afs)       0.85
% -----------------------------
xyzguess x(cpx)       0.2
xyzguess y(cpx)       0.08      range  0  2
xyzguess o(cpx)       0.1
xyzguess n(cpx)       0.05
xyzguess f(cpx)       0.03
xyzguess t(cpx)       0.02
xyzguess cr(cpx)      0.003
xyzguess k(cpx)       0.001
xyzguess Q(cpx)      -0.01      range -1 1
% -----------------------------
xyzguess x(pig)       0.2
xyzguess y(pig)       0.08      range  0  2
xyzguess o(pig)       0.8
xyzguess n(pig)       0.05
xyzguess f(pig)       0.03
xyzguess t(pig)       0.02
xyzguess cr(pig)      0.003
xyzguess k(pig)       0.001
xyzguess Q(pig)      -0.01      range -1 1
% -----------------------------
xyzguess x(opx)       0.3
xyzguess y(opx)       0.1	range  0  2
xyzguess c(opx)       0.05
xyzguess j(opx)       0.02
xyzguess f(opx)       0.03
xyzguess t(opx)       0.02
xyzguess cr(opx)      0.003 
xyzguess Q(opx)      -0.2       range -1 1
% -----------------------------
xyzguess i(ilm)       0.98
xyzguess m(ilm)       0.0007
xyzguess Q(ilm)       0.88      range -1 1
xyzguess Qt(ilm)      0.88      range -1 1
% -----------------------------
xyzguess i(hem)        0.1
xyzguess m(hem)        0.001
xyzguess Q(hem)        0.08     range -1 1
xyzguess Qt(hem)       0.08     range -1 1
% -----------------------------
xyzguess k(nph)        0.1
xyzguess s(nph)        0.04
xyzguess f(nph)        0.0001
xyzguess c(nph)        0.001
xyzguess Q(nph)        0.2      range -1 1
% -----------------------------
xyzguess k(nphk)       0.9
xyzguess s(nphk)       0.04
xyzguess f(nphk)       0.0001
xyzguess c(nphk)       0.001
xyzguess Q(nphk)       0.05     range -1 1
% -----------------------------
xyzguess k(kals)       0.88
% ----------------------------
xyzguess n(lct)        0.05
% -----------------------------
xyzguess x(mel)        0.20
xyzguess n(mel)        0.18
xyzguess y(mel)        0.40
xyzguess f(mel)        0.06
% ----------------------------


% --------------------------------------------------------