|  | 
      
        
          | subroutine efchil | ( | integer | fid, |  
          |  |  | character *(*) | maa, |  
          |  |  | character *(*) | cha, |  
          |  |  | integer:dimension(*) | val, |  
          |  |  | integer | interlace, |  
          |  |  | integer | numco, |  
          |  |  | character *(*) | locname, |  
          |  |  | character *(*) | profil, |  
          |  |  | integer | pflmod, |  
          |  |  | integer | typent, |  
          |  |  | integer | typgeo, |  
          |  |  | integer | numdt, |  
          |  |  | integer | numo, |  
          |  |  | integer | cret |  |  
          |  | ) |  |  |  |  |