program test
      use hpcmw_eps_fvm_all

      implicit REAL*8 (A-H,O-Z)

      call hpcmw_eps_fvm_init
      call hpcmw_eps_fvm_input_grid


      call poi_gen

      call hpcmw_eps_fvm_solver

      call hpcmw_eps_fvm_finalize

      if (PVISFLAG.eq.1) call hpcmw_eps_fvm_global_output
      
      end program test