Ignore:
Timestamp:
02/16/09 14:24:05 (13 years ago)
Author:
ymipsl
Message:

Correction de bugs pour portage sur Mercure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/src/XMLIO/mod_file_group.f90

    r8 r17  
    113113   
    114114   
    115   SUBROUTINE file_group__get_default_attribut(Pt_fg,Pt_f) 
     115  SUBROUTINE file_group__get_default_attrib(Pt_fg,Pt_f) 
    116116  IMPLICIT NONE 
    117117    TYPE(file_group),POINTER  :: Pt_fg 
     
    119119     
    120120    Pt_f=>Pt_fg%default_attribut 
    121   END SUBROUTINE file_group__get_default_attribut 
     121  END SUBROUTINE file_group__get_default_attrib 
    122122   
    123123  RECURSIVE SUBROUTINE file_group__apply_default(Pt_fg,default) 
Note: See TracChangeset for help on using the changeset viewer.