tcpu function fix for gfortran