dummy_f77_process.f

Go to the documentation of this file.

      function dummy_f77_process()
      implicit none
      double precision dummy_f77_process
      !--------------------------------------------------------------------------
      ! CepGen overhead
      !--------------------------------------------------------------------------
      include 'KTBlocks.inc' ! mandatory, include the kinematics common blocks
      call cepgen_print      ! optional, display some run parameters information
      !--------------------------------------------------------------------------
      ! end of overhead, beginning of process definition
      !--------------------------------------------------------------------------
      dummy_f77_process = 1.d0 ! placeholder, your actual definition is to be
                               ! implemented here
      !--------------------------------------------------------------------------
      ! end of process definition
      !--------------------------------------------------------------------------
      return
      end