Fortran code for the diagrammatic calculation of the masses
