MED fichier
subroutine mmhgsw ( integer*8  fid,
character *(*)  name,
integer  numdt,
integer  numit,
real*8  dt,
integer:dimension( * )  st,
integer  cret 
)

Définition à la ligne 259 du fichier medmesh.f.