
$ From Sundman et al., Acta Materialia 57(10) (2009) 2896-2908
$ https://doi.org/10.1016/j.actamat.2009.02.046
$ Database file written 2008-9-24
$
$ Including 4 BCC versions (all based on same optimized parameters)
$ 1. using option B and no Va                (phases BCC_A2 and BCC_4SL)
$ 2. using option B and Va                   (phases A2_VA and BCC_VA)
$ 3. not using option B and no Va            (phases A2_NOB and BCC_NOB)
$ 4. not using option B and only B2 ordering (phases A2_B2 and B2_BCC)
$ Versions 1 and 3 are identical, version 2 give identical results.
$ Each version require different sets of BCC phases as noted.
$
$ Option B requires Thermo-Calc version S.
$
$ The BCC variants A2_B2, A2_NOB, A2_VA, BCC_NOB, BCC_VA B2_BCC are 
$ automatically rejected.  
$
$ You can manually select the relevant BCC phases as follows:
$ To use option B version use the default phases BCC_A2 and BCC_4SL
$ To not use option B 
$         reject phase BCC_A2 and BCC_4SL and restore phase A2_NOB and BCC_NOB
$ To use option B and Va
$         reject phase BCC_A2 and BCC_4SL and restore phase A2_VA and BCC_VA
$ To use 2 sublattice version 
$         reject phase BCC_A2 and BCC_4SL and restore phase A2_B2 and B2_BCC

 ELEMENT /-   ELECTRON_GAS              0.0000E+00  0.0000E+00  0.0000E+00!
 ELEMENT VA   VACUUM                    0.0000E+00  0.0000E+00  0.0000E+00!
 ELEMENT AL   FCC_A1                    2.6982E+01  4.5773E+03  2.8322E+01!
 ELEMENT FE   BCC_A2                    5.5847E+01  4.4890E+03  2.7280E+01!
 
 FUNCTION GHSERAL   298.15 -7976.15+137.093038*T-24.3671976*T*LN(T)
     -.001884662*T**2-8.77664E-07*T**3+74092*T**(-1);  7.00000E+02  Y
      -11276.24+223.048446*T-38.5844296*T*LN(T)+.018531982*T**2
     -5.764227E-06*T**3+74092*T**(-1);  9.33470E+02  Y
      -11278.378+188.684153*T-31.748192*T*LN(T)-1.230524E+28*T**(-9);  
     2.90000E+03  N !
 FUNCTION GALLIQ    298.15 +11005.029-11.841867*T+7.934E-20*T**7
     +GHSERAL#;  9.33470E+02  Y
      +10482.382-11.253974*T+1.231E+28*T**(-9)+GHSERAL#; 6000  N !
 FUNCTION GALBCC    298.15 +10083-4.813*T+GHSERAL#;  6000   N      !
 FUNCTION GHSERFE   298.15 +1225.7+124.134*T-23.5143*T*LN(T)
     -.00439752*T**2-5.8927E-08*T**3+77359*T**(-1);  1.81100E+03  Y
      -25383.581+299.31255*T-46*T*LN(T)+2.29603E+31*T**(-9); 6000  N   !
 FUNCTION GFELIQ    298.15 +12040.17-6.55843*T-3.6751551E-21*T**7
     +GHSERFE#;  1.81100E+03  Y
      -10839.7+291.302*T-46*T*LN(T); 6000  N !
 FUNCTION GFEFCC    298.15 -1462.4+8.282*T-1.15*T*LN(T)+6.4E-04*T**2
     +GHSERFE#;  1.81100E+03  Y
      -27097.396+300.25256*T-46*T*LN(T)+2.78854E+31*T**(-9); 6000  N      !
 FUNCTION LFALFE0   298.15 -104700+30.65*T;  6000   N !
 FUNCTION LFALFE1   298.15 +30000-7*T;  6000   N !
 FUNCTION LFALFE2   298.15 +32200-17*T;  6000   N !
 FUNCTION UFALFE    298.15 -4000+T;  6000   N !
 FUNCTION GAL3FE    298.15 +3*UFALFE#+9000;  6000   N !
 FUNCTION GAL2FE2   298.15 +4*UFALFE#;  6000   N !
 FUNCTION GALFE3    298.15 +3*UFALFE#-3500;  6000   N !
 FUNCTION SFALFE    298.15 +UFALFE#;  6000   N !
 FUNCTION UBALFE1   298.15 -4023-1.14*T;  6000   N !
 FUNCTION UBALFE2   298.15 -1973-2*T;  6000   N !
 FUNCTION GD03ALFE  298.15 +2*UBALFE1#+UBALFE2#+3900;       6000   N !
 FUNCTION GB2ALFE   298.15 +4*UBALFE1#;  6000   N !
 FUNCTION GB32ALFE  298.15 +2*UBALFE1#+2*UBALFE2#;  6000   N !
 FUNCTION GD03FEAL  298.15 +2*UBALFE1#+UBALFE2#-70+0.5*T; 6000   N !
 FUNCTION BMALFE    298.15 -1.36; 6000 N !
 FUNCTION BLALFE0   298.15 -0.3; 6000 N !
 FUNCTION BLALFE1   298.15 -0.8; 6000 N !
 FUNCTION BLALFE2   298.15 0.2; 6000 N !
 FUNCTION ZERO      298.15 0.0; 6000.00  N !
 FUNCTION UN_ASS    298.15 0.0 ;  3.00000E+02  N !
 
 TYPE_DEFINITION % SEQ *!
 DEFINE_SYSTEM_DEFAULT ELEMENT 2 !
 DEFAULT_COMMAND DEF_SYS_ELEMENT VA /- !
 DEFAULT_COMMAND REJECT_PHASE A2_B2 A2_VA A2_NOB BCC_VA B2_BCC BCC_NOB ! 


 PHASE LIQUID:L %  1  1.0  !
    CONSTITUENT LIQUID:L :AL,FE :  !

   PARAMETER G(LIQUID,AL;0) 298.15 +GALLIQ#;  6000   N 91Din !
   PARAMETER G(LIQUID,FE;0) 298.15 +GFELIQ#;  6000   N 91Din !
   PARAMETER G(LIQUID,AL,FE;0) 298.15 -88090+19.8*T;  6000     N 08Sun !
   PARAMETER G(LIQUID,AL,FE;1) 298.15 -3800+3*T;  6000   N   08Sun !
   PARAMETER G(LIQUID,AL,FE;2) 298.15 -2000;  6000   N 08Sun !


 TYPE_DEFINITION F GES A_P_D @ MAGNETIC  -3.0    2.80000E-01 !
 PHASE FCC_A1  %F  2 1   1 !
    CONSTITUENT FCC_A1  :AL,FE : VA :  !

   PARAMETER G(FCC_A1,AL:VA;0) 298.15 +GHSERAL#;  6000   N   91Din !
   PARAMETER G(FCC_A1,FE:VA;0) 298.15 +GFEFCC#;  6000   N   91Din !
   PARAMETER TC(FCC_A1,FE:VA;0) 298.15 -201;  6000   N 91Din !
   PARAMETER BMAGN(FCC_A1,FE:VA;0) 298.15 -2.1;  6000   N   91Din !
   PARAMETER G(FCC_A1,AL,FE:VA;0) 298.15 +LFALFE0#;  6000   N   08Sun !
   PARAMETER G(FCC_A1,AL,FE:VA;1) 298.15 +LFALFE1#;  6000   N   08Sun !
   PARAMETER G(FCC_A1,AL,FE:VA;2) 298.15 +LFALFE2#;  6000   N   08Sun !


 TYPE_DEFINITION B GES A_P_D @ MAGNETIC  -1.0    4.00000E-01 !
 PHASE BCC_A2  %B  2 1   3 !
    CONSTITUENT BCC_A2  :AL,FE : VA :  !

   PARAMETER G(BCC_A2,AL:VA;0) 298.15 +GALBCC#;  2.90000E+03  N 91Din !
   PARAMETER G(BCC_A2,FE:VA;0) 298.15 +GHSERFE#;  6000   N   91Din !
   PARAMETER TC(BCC_A2,FE:VA;0) 298.15 1043;  6000   N 91Din !
   PARAMETER BMAGN(BCC_A2,FE:VA;0) 298.15 2.22;  6000   N   91Din !
   PARAMETER G(BCC_A2,AL,FE:VA;0) 298.15 -122960+32*T;  6000     N 93Sei !
   PARAMETER G(BCC_A2,AL,FE:VA;1) 298.15 2945.2;  6000   N   93Sei !
   PARAMETER TC(BCC_A2,AL,FE:VA;0) 298.15 -438;  6000   N   08Sun !
   PARAMETER TC(BCC_A2,AL,FE:VA;1) 298.15 -1720;  6000   N  08Sun !


 PHASE A2_B2  %B  2 1   3 !
    CONSTITUENT A2_B2  :AL,FE : VA :  !

   PARAMETER G(A2_B2,AL:VA;0) 298.15 +GALBCC#;  2.90000E+03  N 91Din !
   PARAMETER G(A2_B2,FE:VA;0) 298.15 +GHSERFE#;  6000   N   91Din !
   PARAMETER TC(A2_B2,FE:VA;0) 298.15 1043;  6000   N 91Din !
   PARAMETER BMAGN(A2_B2,FE:VA;0) 298.15 2.22;  6000   N   91Din !
   PARAMETER G(A2_B2,AL,FE:VA;0) 298.15 -122960+32*T;  6000     N 93Sei !
   PARAMETER G(A2_B2,AL,FE:VA;1) 298.15 2945.2;  6000   N   93Sei !
   PARAMETER TC(A2_B2,AL,FE:VA;0) 298.15 -438;  6000   N   08Sun !
   PARAMETER TC(A2_B2,AL,FE:VA;1) 298.15 -1720;  6000   N  08Sun !


 PHASE A2_NOB  %B  2 1   3 !
    CONSTITUENT A2_NOB  :AL,FE : VA :  !

   PARAMETER G(A2_NOB,AL:VA;0) 298.15 +GALBCC#;  2.90000E+03  N 91Din !
   PARAMETER G(A2_NOB,FE:VA;0) 298.15 +GHSERFE#;  6000   N   91Din !
   PARAMETER TC(A2_NOB,FE:VA;0) 298.15 1043;  6000   N 91Din !
   PARAMETER BMAGN(A2_NOB,FE:VA;0) 298.15 2.22;  6000   N   91Din !
   PARAMETER G(A2_NOB,AL,FE:VA;0) 298.15 -122960+32*T;  6000     N 93Sei !
   PARAMETER G(A2_NOB,AL,FE:VA;1) 298.15 2945.2;  6000   N   93Sei !
   PARAMETER TC(A2_NOB,AL,FE:VA;0) 298.15 -438;  6000   N   08Sun !
   PARAMETER TC(A2_NOB,AL,FE:VA;1) 298.15 -1720;  6000   N  08Sun !


 PHASE A2_VA  %B  2 1   3 !
    CONSTITUENT A2_VA  :AL,FE,VA : VA :  !

   PARAMETER G(A2_VA,AL:VA;0) 298.15 +GALBCC#;  2.90000E+03  N 91Din !
   PARAMETER G(A2_VA,FE:VA;0) 298.15 +GHSERFE#;  6000   N   91Din !
   PARAMETER TC(A2_VA,FE:VA;0) 298.15 1043;  6000   N 91Din !
   PARAMETER BMAGN(A2_VA,FE:VA;0) 298.15 2.22;  6000   N   91Din !
   PARAMETER G(A2_VA,VA:VA;0) 298.15 +30*T;  6000   N   08Sun !
   PARAMETER G(A2_VA,AL,FE:VA;0) 298.15 -122960+32*T;  6000     N 93Sei !
   PARAMETER G(A2_VA,AL,FE:VA;1) 298.15 2945.2;  6000   N   93Sei !
   PARAMETER G(A2_VA,AL,VA:VA;0) 298.15 46912;  6000   N   08Sun !
   PARAMETER G(A2_VA,FE,VA:VA;0) 298.15 150000;  6000   N   08Sun !
   PARAMETER TC(A2_VA,AL,FE:VA;0) 298.15 -438;  6000   N   08Sun !
   PARAMETER TC(A2_VA,AL,FE:VA;1) 298.15 -1720;  6000   N  08Sun !


 PHASE AL13FE4  %  3 .6275   .235   .1375 !
    CONSTITUENT AL13FE4  :AL : FE : AL,VA :  !

   PARAMETER G(AL13FE4,AL:FE:AL;0) 298.15 -30680+7.4*T+.765*GHSERAL#
  +.235*GHSERFE#;  6000   N 08Sun !
   PARAMETER G(AL13FE4,AL:FE:VA;0) 298.15 -28100+7.4*T+.6275*GHSERAL#
  +.235*GHSERFE#;  6000   N 08Sun !


 PHASE AL2FE  %  2 2   1 !
    CONSTITUENT AL2FE  :AL : FE :  !

   PARAMETER G(AL2FE,AL:FE;0) 298.15 -104000+23*T+2*GHSERAL#+GHSERFE#;
    6000   N 08Sun !


 PHASE AL5FE2  %  2 5   2 !
    CONSTITUENT AL5FE2  :AL : FE :  !

   PARAMETER G(AL5FE2,AL:FE;0) 298.15 -235600+54*T+5*GHSERAL#
  +2*GHSERFE#;  6000   N 08Sun !


 PHASE AL8FE5_D82  %  2 8   5 !
    CONSTITUENT AL8FE5_D82  :AL,FE : AL,FE :  !

   PARAMETER G(AL8FE5_D82,AL:AL;0) 298.15 +13*GALBCC#;  6000     N 08Sun !
   PARAMETER G(AL8FE5_D82,FE:AL;0) 298.15 +200000+36*T+5*GALBCC#
  +8*GHSERFE#;  6000   N 08Sun !
   PARAMETER G(AL8FE5_D82,AL:FE;0) 298.15 -394000+36*T+8*GALBCC#
  +5*GHSERFE#;  6000   N 08Sun !
   PARAMETER G(AL8FE5_D82,FE:FE;0) 298.15 +13*GHSERFE#+13000; 6000   N 08Sun !
   PARAMETER G(AL8FE5_D82,AL:AL,FE;0) 298.15 -100000;    6000   N 08Sun !
   PARAMETER G(AL8FE5_D82,AL,FE:FE;0) 298.15 -174000;    6000   N 08Sun !


$ THIS PHASE HAS A DISORDERED CONTRIBUTION FROM BCC_A2
$ THIS PHASE USE OPTION B
 TYPE_DEFINITION X GES AMEND_PHASE_DESCRIPTION BCC_4SL DIS_PART BCC_A2,,,!
 PHASE BCC_4SL:B %BX  5 .25   .25   .25   .25   3 !
    CONSTITUENT BCC_4SL:B :AL,FE : AL,FE : AL,FE : AL,FE : VA :  !

   PARAMETER G(BCC_4SL,AL:AL:AL:AL:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_4SL,AL:AL:AL:FE:VA;0) 298.15 +GD03ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_4SL,AL:AL:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_4SL,AL:AL:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_4SL,AL:AL:FE:FE:VA;0) 298.15 +GB2ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_4SL,AL:AL:FE:FE:VA;0) 298.15 -250;    6000   N 08Sun !
   PARAMETER BMAGN(BCC_4SL,AL:AL:FE:FE:VA;0) 298.15 2*BMALFE; 6000 N 08Sun !
   PARAMETER G(BCC_4SL,AL:FE:AL:FE:VA;0) 298.15 +GB32ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_4SL,AL:FE:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_4SL,AL:FE:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_4SL,AL:FE:FE:FE:VA;0) 298.15 +GD03FEAL#;   6000   N 08Sun !
   PARAMETER TC(BCC_4SL,AL:FE:FE:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_4SL,AL:FE:FE:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_4SL,FE:FE:FE:FE:VA;0) 298.15 +ZERO#;  6000    N 08Sun !
   PARAMETER TC(BCC_4SL,AL,FE:*:*:*:VA;0) 298.15 +125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_4SL,AL,FE:*:*:*:VA;0) 298.15 BLALFE0; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_4SL,AL,FE:*:*:*:VA;1) 298.15 BLALFE1; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_4SL,AL,FE:*:*:*:VA;2) 298.15 BLALFE2; 6000   N 08Sun !
   PARAMETER G(BCC_4SL,AL,FE:*:*:*:VA;1) 298.15 -634+0.68*T; 6000   N 08Sun !
   PARAMETER G(BCC_4SL,AL,FE:*:*:*:VA;2) 298.15 -190;    6000   N 08Sun !


$ THIS PHASE HAS A DISORDERED CONTRIBUTION FROM A2_NOB
$ THIS PHASE DOES NOT USE OPTION B
 TYPE_DEFINITION U GES AMEND_PHASE_DESCRIPTION BCC_NOB DIS_PART A2_NOB,,,!
 PHASE BCC_NOB %BU  5 .25   .25   .25   .25   3 !
    CONSTITUENT BCC_NOB :AL,FE : AL,FE : AL,FE : AL,FE : VA :  !

   PARAMETER G(BCC_NOB,AL:AL:AL:AL:VA;0) 298.15 +ZERO#;  6000     N 08Sun !

   PARAMETER G(BCC_NOB,AL:AL:AL:FE:VA;0) 298.15 +GD03ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,AL:AL:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL:AL:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,AL:AL:FE:AL:VA;0) 298.15 +GD03ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,AL:AL:FE:AL:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL:AL:FE:AL:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,AL:FE:AL:AL:VA;0) 298.15 +GD03ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,AL:FE:AL:AL:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL:FE:AL:AL:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,FE:AL:AL:AL:VA;0) 298.15 +GD03ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,FE:AL:AL:AL:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,FE:AL:AL:AL:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,AL:AL:FE:FE:VA;0) 298.15 +GB2ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,AL:AL:FE:FE:VA;0) 298.15 -250;    6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL:AL:FE:FE:VA;0) 298.15 2*BMALFE; 6000 N 08Sun !
   PARAMETER G(BCC_NOB,FE:FE:AL:AL:VA;0) 298.15 +GB2ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,FE:FE:AL:AL:VA;0) 298.15 -250;    6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,FE:FE:AL:AL:VA;0) 298.15 2*BMALFE; 6000 N 08Sun !
   PARAMETER G(BCC_NOB,AL:FE:AL:FE:VA;0) 298.15 +GB32ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,AL:FE:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL:FE:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,FE:AL:AL:FE:VA;0) 298.15 +GB32ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,FE:AL:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,FE:AL:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,AL:FE:FE:AL:VA;0) 298.15 +GB32ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,AL:FE:FE:AL:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL:FE:FE:AL:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,FE:AL:FE:AL:VA;0) 298.15 +GB32ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,FE:AL:FE:AL:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,FE:AL:FE:AL:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,AL:FE:FE:FE:VA;0) 298.15 +GD03FEAL#;   6000   N 08Sun !
   PARAMETER TC(BCC_NOB,AL:FE:FE:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL:FE:FE:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,FE:AL:FE:FE:VA;0) 298.15 +GD03FEAL#;   6000   N 08Sun !
   PARAMETER TC(BCC_NOB,FE:AL:FE:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,FE:AL:FE:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,FE:FE:AL:FE:VA;0) 298.15 +GD03FEAL#;   6000   N 08Sun !
   PARAMETER TC(BCC_NOB,FE:FE:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,FE:FE:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,FE:FE:FE:AL:VA;0) 298.15 +GD03FEAL#;   6000   N 08Sun !
   PARAMETER TC(BCC_NOB,FE:FE:FE:AL:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,FE:FE:FE:AL:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_NOB,FE:FE:FE:FE:VA;0) 298.15 +ZERO#;  6000    N 08Sun !
   PARAMETER TC(BCC_NOB,AL,FE:*:*:*:VA;0) 298.15 +125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL,FE:*:*:*:VA;0) 298.15 BLALFE0; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL,FE:*:*:*:VA;1) 298.15 BLALFE1; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,AL,FE:*:*:*:VA;2) 298.15 BLALFE2; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,AL,FE:*:*:*:VA;1) 298.15 -634+0.68*T; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,AL,FE:*:*:*:VA;2) 298.15 -190;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,*:AL,FE:*:*:VA;0) 298.15 +125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:AL,FE:*:*:VA;0) 298.15 BLALFE0; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:AL,FE:*:*:VA;1) 298.15 BLALFE1; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:AL,FE:*:*:VA;2) 298.15 BLALFE2; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,*:AL,FE:*:*:VA;1) 298.15 -634+0.68*T; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,*:AL,FE:*:*:VA;2) 298.15 -190;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,*:*:AL,FE:*:VA;0) 298.15 +125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:*:AL,FE:*:VA;0) 298.15 BLALFE0; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:*:AL,FE:*:VA;1) 298.15 BLALFE1; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:*:AL,FE:*:VA;2) 298.15 BLALFE2; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,*:*:AL,FE:*:VA;1) 298.15 -634+0.68*T; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,*:*:AL,FE:*:VA;2) 298.15 -190;    6000   N 08Sun !
   PARAMETER TC(BCC_NOB,*:*:*:AL,FE:VA;0) 298.15 +125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:*:*:AL,FE:VA;0) 298.15 BLALFE0; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:*:*:AL,FE:VA;1) 298.15 BLALFE1; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_NOB,*:*:*:AL,FE:VA;2) 298.15 BLALFE2; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,*:*:*:AL,FE:VA;1) 298.15 -634+0.68*T; 6000   N 08Sun !
   PARAMETER G(BCC_NOB,*:*:*:AL,FE:VA;2) 298.15 -190;    6000   N 08Sun !


$ THIS PHASE HAS A DISORDERED CONTRIBUTION FROM A2_VA
$ THIS PHASE USE OPTION B
 TYPE_DEFINITION W GES AMEND_PHASE_DESCRIPTION BCC_VA DIS_PART A2_VA,,,!
 PHASE BCC_VA:B %BW  5 .25   .25   .25   .25   3 !
    CONSTITUENT BCC_VA:B :AL,FE,VA : AL,FE,VA : AL,FE,VA : AL,FE,VA : VA :  !

   PARAMETER G(BCC_VA,AL:AL:AL:AL:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:AL:AL:FE:VA;0) 298.15 +GD03ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_VA,AL:AL:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_VA,AL:AL:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_VA,AL:AL:FE:FE:VA;0) 298.15 +GB2ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_VA,AL:AL:FE:FE:VA;0) 298.15 -250;    6000   N 08Sun !
   PARAMETER BMAGN(BCC_VA,AL:AL:FE:FE:VA;0) 298.15 2*BMALFE; 6000  N 08Sun !
   PARAMETER G(BCC_VA,AL:FE:AL:FE:VA;0) 298.15 +GB32ALFE#;    6000   N 08Sun !
   PARAMETER TC(BCC_VA,AL:FE:AL:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_VA,AL:FE:AL:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_VA,AL:FE:FE:FE:VA;0) 298.15 +GD03FEAL#;   6000   N 08Sun !
   PARAMETER TC(BCC_VA,AL:FE:FE:FE:VA;0) 298.15 -125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_VA,AL:FE:FE:FE:VA;0) 298.15 BMALFE;  6000    N 08Sun !
   PARAMETER G(BCC_VA,FE:FE:FE:FE:VA;0) 298.15 +ZERO#;  6000    N 08Sun !
   PARAMETER TC(BCC_VA,AL,FE:*:*:*:VA;0) 298.15 +125;  6000     N 08Sun !
   PARAMETER BMAGN(BCC_VA,AL,FE:*:*:*:VA;0) 298.15 BLALFE0; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_VA,AL,FE:*:*:*:VA;1) 298.15 BLALFE1; 6000   N 08Sun !
   PARAMETER BMAGN(BCC_VA,AL,FE:*:*:*:VA;2) 298.15 BLALFE2; 6000   N 08Sun !
   PARAMETER G(BCC_VA,AL,FE:*:*:*:VA;1) 298.15 -634+0.68*T;    6000   N 08Sun !
   PARAMETER G(BCC_VA,AL,FE:*:*:*:VA;2) 298.15 -190;    6000   N 08Sun !
$ vacancy parameters all zero
   PARAMETER G(BCC_VA,VA:VA:VA:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:VA:VA:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:AL:VA:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:VA:AL:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:AL:AL:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,FE:VA:VA:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,FE:FE:VA:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,FE:VA:FE:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,FE:FE:FE:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:AL:FE:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:FE:AL:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,FE:FE:AL:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,FE:AL:FE:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:FE:VA:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(BCC_VA,AL:VA:FE:VA:VA;0) 298.15 +ZERO#;  6000     N 08Sun !


$ THIS PHASE HAS A DISORDERED CONTRIBUTION FROM A2_B2
$ THIS PHASE USE OPTION B
 TYPE_DEFINITION Z GES AMEND_PHASE_DESCRIPTION B2_BCC DIS_PART A2_B2,,,!
 PHASE B2_BCC %BZ  3 .5  .5   3 !
    CONSTITUENT B2_BCC : AL,FE : AL,FE : VA :  !

   PARAMETER G(B2_BCC,AL:AL:VA;0) 298.15 +ZERO#;  6000     N 08Sun !
   PARAMETER G(B2_BCC,AL:FE:VA;0) 298.15 +GB2ALFE#;    6000   N 08Sun !
   PARAMETER TC(B2_BCC,AL:FE:VA;0) 298.15 -250;  6000     N 08Sun !
   PARAMETER BMAGN(B2_BCC,AL:FE:VA;0) 298.15 2*BMALFE;  6000    N 08Sun !
   PARAMETER G(B2_BCC,FE:AL:VA;0) 298.15 +GB2ALFE#;    6000   N 08Sun !
   PARAMETER TC(B2_BCC,FE:AL:VA;0) 298.15 -250;    6000   N 08Sun !
   PARAMETER BMAGN(B2_BCC,FE:AL:VA;0) 298.15 2*BMALFE;  6000     N 08Sun !
   PARAMETER G(B2_BCC,FE:FE:VA;0) 298.15 +ZERO#;  6000    N 08Sun !

   PARAMETER TC(B2_BCC,AL,FE:*:VA;0) 298.15 +250;    6000 N 08Sun !
   PARAMETER TC(B2_BCC,*:AL,FE:VA;0) 298.15 +250;    6000 N 08Sun !

   PARAMETER BMAGN(B2_BCC,AL,FE:*:VA;0) 298.15 2*BLALFE0;  6000 N 08Sun !
   PARAMETER BMAGN(B2_BCC,*:AL,FE:VA;0) 298.15 2*BLALFE0;  6000 N 08Sun !
   PARAMETER BMAGN(B2_BCC,AL,FE:*:VA;1) 298.15 2*BLALFE1;  6000 N 08Sun !
   PARAMETER BMAGN(B2_BCC,*:AL,FE:VA;1) 298.15 2*BLALFE1;  6000 N 08Sun !
   PARAMETER BMAGN(B2_BCC,AL,FE:*:VA;2) 298.15 2*BLALFE2;  6000 N 08Sun !
   PARAMETER BMAGN(B2_BCC,*:AL,FE:VA;2) 298.15 2*BLALFE2;  6000 N 08Sun !

   PARAMETER G(B2_BCC,AL,FE:*:VA;0) 298.15 2*UBALFE2;    6000 N 08Sun !
   PARAMETER G(B2_BCC,*:AL,FE:VA;0) 298.15 2*UBALFE2;    6000 N 08Sun !

   PARAMETER G(B2_BCC,AL,FE:AL:VA;0) 298.15 5600;        6000 N 08Sun !
   PARAMETER G(B2_BCC,AL:AL,FE:VA;0) 298.15 5600;        6000 N 08Sun !
   PARAMETER G(B2_BCC,AL,FE:FE:VA;0) 298.15 -1400+2.4*T; 6000 N 08Sun !
   PARAMETER G(B2_BCC,FE:AL,FE:VA;0) 298.15 -1400+2.4*T; 6000 N 08Sun !

$ PARAMETER G(B2_BCC,AL,FE:AL,FE:VA;0) 298.15 2800-4.8*T-11200; 6000 N 08Sun !
   PARAMETER G(B2_BCC,AL,FE:AL,FE:VA;0) 298.15 -8400-4.8*T; 6000 N 08Sun !

   PARAMETER G(B2_BCC,AL,FE:*:VA;1) 298.15 -524;         6000 N 08Sun !
   PARAMETER G(B2_BCC,*:AL,FE:VA;1) 298.15 -524;         6000 N 08Sun !
   PARAMETER G(B2_BCC,AL,FE:*:VA;2) 298.15 -1560;        6000 N 08Sun !
   PARAMETER G(B2_BCC,*:AL,FE:VA;2) 298.15 -1560;        6000 N 08Sun !


$ THIS PHASE HAS A DISORDERED CONTRIBUTION FROM FCC_A1                  
 TYPE_DEFINITION Y GES AMEND_PHASE_DESCRIPTION FCC_4SL DIS_PART FCC_A1,,,!
 PHASE FCC_4SL:F %FY  5 .25   .25   .25   .25   1 !
    CONSTITUENT FCC_4SL:F :AL,FE : AL,FE : AL,FE : AL,FE : VA :  !

   PARAMETER G(FCC_4SL,AL:AL:AL:AL:VA;0) 298.15 +ZERO#;  6000     N 08Con !
   PARAMETER G(FCC_4SL,FE:AL:AL:AL:VA;0) 298.15 +GAL3FE#;    6000   N 08Con !
   PARAMETER G(FCC_4SL,FE:FE:AL:AL:VA;0) 298.15 +GAL2FE2#;   6000   N 08Con !
   PARAMETER G(FCC_4SL,FE:FE:FE:AL:VA;0) 298.15 +GALFE3#;    6000   N 08Con !
   PARAMETER G(FCC_4SL,FE:FE:FE:FE:VA;0) 298.15 +ZERO#;  6000     N 08Con !
   PARAMETER G(FCC_4SL,AL,FE:AL,FE:*:*:VA;0) 298.15 +SFALFE#;  6000   N 08Con !


ASSESSED_SYSTEM 
  AL-FE(;G5 C_S:BCC_4/AL:AL:FE:FE:VA: C_S:BCC_4/AL:FE:FE:FE:VA:
  ;P3 TMM:300/3000 STP:0.99/1400/-1 STP:0.77/600/1 STP:0.45/500/1 )
!

 LIST_OF_REFERENCES
 NUMBER  SOURCE
 91Din 'A T Dinsdale, Calphad Vol 15, 317-425 (1991)'
 93Sei 'M Seiersten, in COST 507, Thermochemical Database
        for Light Metal Alloys, Eds I Ansara, A T Dinsdale and M H Rand, 
        vol 2 (1998).'
 08Con 'D Connetable J Lacaze, P Maugis, B Sundman,
        Calphad, Vol 32, 361-370 (2008)'
 08Sun 'B Sundman, this paper (2008)'
  ! 
 
