% --------------------------------------------------------
  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 hb act gl
samecoding dio o jd
samecoding sp mt
samecoding ilm hem   
samecoding ilmm hemm  





% --------------------------------------------------------
  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 q(L)          0.151242
xyzguess fsp(L)        0.248743
xyzguess na(L)         0.807843
xyzguess wo(L)        0.0684231
xyzguess sil(L)       0.0655694
xyzguess ol(L)        0.0316206
xyzguess x(L)          0.768652
xyzguess yan(L)       0.0528953
% -------------------
xyzguess x(hb)         0.413657
xyzguess y(hb)         0.605749
xyzguess z(hb)         0.403086
xyzguess a(hb)         0.378213
xyzguess k(hb)        0.0242954
xyzguess c(hb)         0.587566
xyzguess f(hb)        0.0973952
xyzguess t(hb)        0.0102669
xyzguess Q1(hb)      -0.0247639  range -1.000 1.000
xyzguess Q2(hb)        0.146095  range -1.000 1.000
% -------------------
xyzguess x(act)        0.326601
xyzguess y(act)        0.179241
xyzguess z(act)        0.235348
xyzguess a(act)       0.0871526
xyzguess k(act)       0.0294549
xyzguess c(act)        0.755176
xyzguess f(act)       0.0417267
xyzguess t(act)      0.00311795
xyzguess Q1(act)     -0.0378596  range -1.000 1.000
xyzguess Q2(act)      0.0801985  range -1.000 1.000
% -------------------
xyzguess x(gl)         0.429246
xyzguess y(gl)         0.754475
xyzguess z(gl)         0.884454
xyzguess a(gl)        0.0919829
xyzguess k(gl)        0.0275627
xyzguess c(gl)         0.113398
xyzguess f(gl)         0.100787
xyzguess t(gl)       0.00965433
xyzguess Q1(gl)     -0.00997847  range -1.000 1.000
xyzguess Q2(gl)        0.118435  range -1.000 1.000
% -------------------
xyzguess x(aug)         0.471978
xyzguess y(aug)        0.0971420
xyzguess f(aug)         0.102416
xyzguess z(aug)         0.832303
xyzguess j(aug)        0.0361891
xyzguess Qfm(aug)       0.523857  range  0.000 2.000
xyzguess Qal(aug)      0.0920156
% -------------------
xyzguess x(dio)        0.331989
xyzguess j(dio)        0.222852
xyzguess f(dio)        0.327043
xyzguess Q(dio)       0.0512517  range -0.500 0.500 
xyzguess Qaf(dio)     0.0122242  range -0.500 0.500 % less than f j
xyzguess Qfm(dio)     -0.118441  range -0.500 0.500
% -------------------
xyzguess x(o)         0.300730
xyzguess j(o)         0.461012
xyzguess f(o)         0.377487
xyzguess Q(o)         0.336513  range -0.500 0.500 
xyzguess Qaf(o)       0.113305  range -0.500 0.500 % less than f j
xyzguess Qfm(o)     -0.0578233  range -0.500 0.500
% -------------------
xyzguess x(jd)        0.45
xyzguess j(jd)        0.86
xyzguess f(jd)        0.01
xyzguess Q(jd)        0.04   range -0.500 0.500  
xyzguess Qaf(jd)      0.001  range -0.500 0.500 % less than f j
xyzguess Qfm(jd)      0.1    range -0.500 0.500
% -------------------
xyzguess x(opx)        0.539535
xyzguess y(opx)        0.0502431
xyzguess f(opx)        0.0226851
xyzguess c(opx)        0.0486599
xyzguess Q(opx)        0.387159
% -------------------
xyzguess x(g)          0.790028
xyzguess z(g)          0.354536
xyzguess f(g)          0.0339621
% -------------------
xyzguess x(ol)	       0.15
% -------------------
xyzguess na(k4tr)       0.1
xyzguess ca(k4tr)       0.004
% -------------------
xyzguess ca(pl4tr)        0.557700
xyzguess k(pl4tr)         0.00702782
% -------------------
xyzguess ca(abc)       0.001
% -------------------
xyzguess x(sp)		0.4
xyzguess y(sp)		0.95
xyzguess z(sp)		0.01
% -------------------
xyzguess x(mt)		0.85
xyzguess y(mt)		0.09
xyzguess z(mt)		0.14
% -------------------
xyzguess x(ilm)         0.846768
xyzguess Q(ilm)         0.72  range -0.990 0.990  
% -------------------   
xyzguess x(hem)         0.1
xyzguess Q(hem)         0.01  range -0.990 0.990  
% -------------------
xyzguess i(ilmm)        0.843297
xyzguess g(ilmm)        0.0194365
xyzguess Q(ilmm)        0.771192  range -0.990 0.990
% -------------------
xyzguess i(hemm)        0.489714
xyzguess g(hemm)        0.0151609
xyzguess Q(hemm)        0.000215607  range -0.050 0.050
% -------------------
xyzguess f(ep)          0.189427
xyzguess Q(ep)          0.182107  range  0.000 0.500
% -------------------
xyzguess x(bi)          0.371956
xyzguess y(bi)          0.0260159
xyzguess f(bi)          0.0131769
xyzguess t(bi)          0.0519677
xyzguess Q(bi)          0.173733   range  -1.0 1.0
% -------------------
xyzguess x(mu)          0.275719
xyzguess y(mu)          0.334730
xyzguess f(mu)          0.0164856
xyzguess n(mu)          0.00226622
xyzguess c(mu)          3.36760e-5
% -------------------
xyzguess x(chl)        0.275349
xyzguess y(chl)        0.451480
xyzguess f(chl)        0.123838
xyzguess QAl(chl)      0.424591  range -1.000 1.000
xyzguess Q1(chl)       0.0859470  range -1.000 1.000
xyzguess Q4(chl)       0.0245983  range -1.000 1.000
% -------------------


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