fortran, how to make several copies of a program using module or interface?

问题

I want to do a double integration using CGAUSS, a FORTRAN program in cernlib. I have to make two copies CGAUSS1 and CGAUSS2 in order to avoid CGAUSS call itself.

But I do not find the original CGAUSS code. Is there a way to make copies using module or interface in FORTRAN?

来源：https://stackoverflow.com/questions/12946259/fortran-how-to-make-several-copies-of-a-program-using-module-or-interface