MED fichier
subroutine mfdivr ( integer*8  fid,
character*(*)  fname,
integer  numdt,
integer  numit,
integer  etype,
integer  gtype,
integer  swm,
integer  cs,
integer:dimension(*)  val,
integer  cret 
)

Définition à la ligne 482 du fichier medfield.f.