|  | 
      
        
          | subroutine efelel | ( | integer | fid, |  
          |  |  | character*(*) | maa, |  
          |  |  | integer | mdim, |  
          |  |  | integer:dimension(*) | conn, |  
          |  |  | integer | switch, |  
          |  |  | character*(*) | nom, |  
          |  |  | logical | inom, |  
          |  |  | integer:dimension(*) | num, |  
          |  |  | logical | inum, |  
          |  |  | integer:dimension(*) | fam, |  
          |  |  | integer | nele, |  
          |  |  | integer | typent, |  
          |  |  | integer | typgeo, |  
          |  |  | integer | typcon, |  
          |  |  | integer | cret |  |  
          |  | ) |  |  |  |  |