      program attribution_par_data_et_parametres
      implicit none
      integer im,jm
      parameter (im=3,jm=2)
      real xxx
      data xxx/1./
      print*,xxx,im,jm
      end
