add function fortran_int