Simple Fortran extra-galactic foreground code