c ==============
c
c Simple Fortran program works in conjunction with C program
c to determine how many underscores are generated
c by the fortran compiler
c
c ==============

      program TestUnderscoreF
      implicit none
      call FindUnderscores
      end