save_ms_fe_f_vtk Subroutine

   subroutine save_ms_fe_f_vtk(ms_fe_f, nom_fic)
   implicit none
   type(MS_FE_FILM), intent(in) :: ms_fe_f   !! [[MS_FE_FILM]] *element to store*
   character(len=*), intent(in) :: nom_fic   !! *filename*

      integer(kind=I4)   :: e, ne, i, l
      character(len=256) :: nom_fic_bs, nom_fic_ts
      character(len=128) :: suff
      nom_fic_bs = repeat(" ", len(nom_fic_bs))
      nom_fic_ts = repeat(" ", len(nom_fic_bs))
      suff       = repeat(" ", len(suff)      )
      i = index(trim(nom_fic), "/", back=.true.)
      l = len_trim(nom_fic)

      if (s_vtk > NO_VTK) then
         nom_fic_ts = nom_fic(1:i)//"ts_"//nom_fic(i+1:l)
         call save_fe_f_vtk(ms_fe_f%ts_fe_f, trim(nom_fic_ts))
         write(*,*) trim(nom_fic_ts)
      endif

      if (s_vtk == BS_VTK) then
         ne = ms_fe_f%ts_fe_f%m%ne
         do e = 1, ne
            write(suff,'(i5.5, 2a)') e, "_", nom_fic(i+1:l)
            nom_fic_bs = nom_fic(1:i)//trim(suff)
            call save_fe_f_vtk(ms_fe_f%bs_fe_f(e), trim(nom_fic_bs))
         enddo
      endif

   return
   endsubroutine save_ms_fe_f_vtk