MED fichier
subroutine msdjcr ( integer*8  fid,
character*(*)  lmname,
character*(*)  jname,
character*(*)  des,
integer  dom,
character*(*)  rmname,
integer  cret 
)

Définition à la ligne 20 du fichier medjoint.f.