|  | 
      
        
          | subroutine effami | ( | integer | fid, |  
          |  |  | character *(*) | maa, |  
          |  |  | integer | ind, |  
          |  |  | character *(*) | fam, |  
          |  |  | integer | num, |  
          |  |  | integer:dimension(*) | attid, |  
          |  |  | integer:dimension(*) | attval, |  
          |  |  | character *(*) | attdes, |  
          |  |  | integer | natt, |  
          |  |  | character *(*) | gro, |  
          |  |  | integer | ngro, |  
          |  |  | integer | cret |  |  
          |  | ) |  |  |  |  
Définition à la ligne 67 du fichier famf.f. |