1c I am not sure whether there is a way to have a fortran program without
2c a MAIN, but it does not really harm us to have one.
3      end
4      subroutine fsub
5        integer*4 cppsub
6        return (cppsub (10000))
7      end
8