program ma
   use bmimodule
   use mpi
   character(kind=c_char) :: c_configfile(100)
   integer r
   r=initialize(c_configfile)
   print *,'initialize:',r
   r=finalize()
   print *,'finalize:',r
end program ma