/*grain main routine to converge grains thermal solution */
void grain(void);