|  | 
      
        
          | subroutine efg2fc | ( | integer | fid, |  
          |  |  | character*32 | maa, |  
          |  |  | character *80:dimension(*) | nomgro, |  
          |  |  | integer:dimension(*) | ind, |  
          |  |  | integer | ngro, |  
          |  |  | integer:dimension(*) | ent, |  
          |  |  | integer | nent, |  
          |  |  | integer | typent, |  
          |  |  | integer:dimension(*) | typgeo, |  
          |  |  | integer:dimension(*) | indgeo, |  
          |  |  | integer | ngeo, |  
          |  |  | integer | cret |  |  
          |  | ) |  |  |  |  |