declaration

	real*8 C,Mn,Si,Ni,Cr,Mo,Cu,W,V,Nb,Ti,Al,N
	real*8 AC1,AC3,TDISS,AE4,AE3,AE1,TBS,TMS,as1,Tliquid,Tsolid
	real*8 XFE,XPE
	REAL*8 XA(NN),XF(NN),XP(NN),XB(NN),XM(NN),GS(NN),G(NN),HV(NN)
     &	,XL(NN)
	real*8 fc,pc,bc

	COMMON/COMP/C,Mn,Si,Ni,Cr,Mo,Cu,W,V,Nb,Ti,Al,N
	COMMON/TEMPS/AC1,AC3,TDISS,AE4,AE3,AE1,TBS,TMS,as1,Tliquid,Tsolid
	COMMON/STRUCT/XA,XF,XP,XB,XM,GS,G,HV,XL
	COMMON/KCONST/XFE,XPE,fc,pc,bc

	real*8 GS0,G0,hv0,gsmax

	COMMON/KINI/GS0,G0,hv0,gsmax