4.1cBSD/usr/src/lib/mip/fcomm2.c

# define FORT
# include "mfile2"
# include "common"