equation solving – How to code this iterative process?

I am facing difficulty to realize this double iterative process.

The equations in question are

enter image description here

The flow chart for the iterative process is given as

enter image description here

The different parameters are defined as

alphan=1.72*10^(-4);
alphap=2.037*10^(-4);
L=1.3*10^(-3);
A=2.08*10^(-6);
kp=1.265;
kn=1.011;
sigmap=1.314e-5;
sigman=1.119e-5;
alphapn=alphap-alphan;
Rpn=L/(A)*(sigmap+sigman);
RL=1;
Kpn=(A/L)*(kp+kn);
cf=4205;
cc=4153;
hf=80;
hc=1000;
Tfin=773;
Tcin=353;
mf=20;
mc=20;