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

Correction de bugs pour portage sur Mercure

Location:
XMLIO_SERVER/trunk/src/XMLIO
Files:
35 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_SERVER/trunk/src/XMLIO/mod_axis_group.f90

    r8 r17  
    113113   
    114114   
    115   SUBROUTINE axis_group__get_default_attribut(Pt_ag,Pt_a) 
     115  SUBROUTINE axis_group__get_default_attrib(Pt_ag,Pt_a) 
    116116  IMPLICIT NONE 
    117117    TYPE(axis_group),POINTER  :: Pt_ag 
    … …  
    119119     
    120120    Pt_a=>Pt_ag%default_attribut 
    121   END SUBROUTINE axis_group__get_default_attribut 
     121  END SUBROUTINE axis_group__get_default_attrib 
    122122   
    123123  RECURSIVE SUBROUTINE axis_group__apply_default(Pt_ag,default) 
    … …  
    125125    TYPE(axis_group),POINTER           :: Pt_ag 
    126126    TYPE(axis),POINTER,OPTIONAL        :: default 
    127      
    128127    INTEGER :: i 
    129128     

  • XMLIO_SERVER/trunk/src/XMLIO/mod_dependency.f90

    r8 r17  
    199199      pt_field=>pt_field_out%field 
    200200      pt_field_base=>pt_field%field_base 
    201        
    202201      CALL sorted_list__find(sorted_id,hash(pt_field_base%id),pos,found) 
    203202      IF (.NOT. found) THEN 

  • XMLIO_SERVER/trunk/src/XMLIO/mod_field_group.f90

    r8 r17  
    113113   
    114114   
    115   SUBROUTINE field_group__get_default_attribut(Pt_fg,Pt_f) 
     115  SUBROUTINE field_group__get_default_attrib(Pt_fg,Pt_f) 
    116116  IMPLICIT NONE 
    117117    TYPE(field_group),POINTER  :: Pt_fg 
    … …  
    119119     
    120120    Pt_f=>Pt_fg%default_attribut 
    121   END SUBROUTINE field_group__get_default_attribut 
     121  END SUBROUTINE field_group__get_default_attrib 
    122122 
    123123   

  • 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) 

  • XMLIO_SERVER/trunk/src/XMLIO/mod_grid.f90

    r8 r17  
    159159    INTEGER :: i 
    160160     
    161       ALLOCATE(pt_grid%ranks(0:pt_grid%subdomain%size-1)) 
     161      ALLOCATE(pt_grid%ranks(1:pt_grid%subdomain%size)) 
    162162 
    163163      DO i=1,pt_grid%subdomain%size 

  • XMLIO_SERVER/trunk/src/XMLIO/mod_grid_group.f90

    r8 r17  
    113113   
    114114   
    115   SUBROUTINE grid_group__get_default_attribut(Pt_gg,Pt_g) 
     115  SUBROUTINE grid_group__get_default_attrib(Pt_gg,Pt_g) 
    116116  IMPLICIT NONE 
    117117    TYPE(grid_group),POINTER  :: Pt_gg 
    … …  
    119119     
    120120    Pt_g=>Pt_gg%default_attribut 
    121   END SUBROUTINE grid_group__get_default_attribut 
     121  END SUBROUTINE grid_group__get_default_attrib 
    122122   
    123123  RECURSIVE SUBROUTINE grid_group__apply_default(Pt_gg,default) 

  • XMLIO_SERVER/trunk/src/XMLIO/mod_parse_xml.f90

    r8 r17  
    136136    ENDIF 
    137137       
    138     CALL axis_group__get_default_attribut(pt_axis_group,attribute) 
     138    CALL axis_group__get_default_attrib(pt_axis_group,attribute) 
    139139    CALL parsing_axis_attribute(node,attribute) 
    140140     
    … …  
    212212      value =  getAttribute(node,"unit") 
    213213      CALL axis__set(pt_axis,unit=TRIM(value)) 
     214    ENDIF 
     215 
     216    IF (is_attribute_exist(node,"size")) THEN 
     217      value =  getAttribute(node,"size") 
     218      CALL axis__set(pt_axis,a_size=string_to_integer(value)) 
    214219    ENDIF 
    215220    
    … …  
    255260    ENDIF 
    256261       
    257     CALL grid_group__get_default_attribut(pt_grid_group,attribute) 
     262    CALL grid_group__get_default_attrib(pt_grid_group,attribute) 
    258263    CALL parsing_grid_attribute(node,attribute) 
    259264     
    … …  
    368373    ENDIF 
    369374       
    370     CALL field_group__get_default_attribut(pt_field_group,attribute) 
     375    CALL field_group__get_default_attrib(pt_field_group,attribute) 
    371376    CALL parsing_field_attribute(node,attribute) 
    372377     
    … …  
    525530    ENDIF 
    526531       
    527     CALL file_group__get_default_attribut(pt_file_group,attribute) 
     532    CALL file_group__get_default_attrib(pt_file_group,attribute) 
    528533    CALL parsing_file_attribute(node,attribute) 
    529534     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_axis_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_axis__increase(vect) 
    7373    TYPE(vector_axis), INTENT(INOUT) :: vect 
    74     TYPE (Pt_axis), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_axis__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_axis_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_axis  
     2  TYPE Pt_axis__  
    33    TYPE (axis),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_axis 
     5  END TYPE Pt_axis__ 
    66 
    77  TYPE vector_axis 
    88   
    9     TYPE (Pt_axis), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_axis__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_axis_group_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_axis_group__increase(vect) 
    7373    TYPE(vector_axis_group), INTENT(INOUT) :: vect 
    74     TYPE (Pt_axis_group), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_axis_group__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_axis_group_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_axis_group  
     2  TYPE Pt_axis_group__  
    33    TYPE (axis_group),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_axis_group 
     5  END TYPE Pt_axis_group__ 
    66 
    77  TYPE vector_axis_group 
    88   
    9     TYPE (Pt_axis_group), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_axis_group__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_contains.template

    r8 r17  
    7272  SUBROUTINE vector_#TYPE#__increase(vect) 
    7373    TYPE(vector_#TYPE#), INTENT(INOUT) :: vect 
    74     TYPE (Pt_#TYPE#), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_#TYPE#__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_def.template

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_#TYPE#  
     2  TYPE Pt_#TYPE#__  
    33    TYPE (#TYPE#),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_#TYPE# 
     5  END TYPE Pt_#TYPE#__ 
    66 
    77  TYPE vector_#TYPE# 
    88   
    9     TYPE (Pt_#TYPE#), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_#TYPE#__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_domain_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_domain__increase(vect) 
    7373    TYPE(vector_domain), INTENT(INOUT) :: vect 
    74     TYPE (Pt_domain), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_domain__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_domain_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_domain  
     2  TYPE Pt_domain__  
    33    TYPE (domain),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_domain 
     5  END TYPE Pt_domain__ 
    66 
    77  TYPE vector_domain 
    88   
    9     TYPE (Pt_domain), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_domain__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_field__increase(vect) 
    7373    TYPE(vector_field), INTENT(INOUT) :: vect 
    74     TYPE (Pt_field), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_field__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_field  
     2  TYPE Pt_field__  
    33    TYPE (field),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_field 
     5  END TYPE Pt_field__ 
    66 
    77  TYPE vector_field 
    88   
    9     TYPE (Pt_field), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_field__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_dep_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_field_dep__increase(vect) 
    7373    TYPE(vector_field_dep), INTENT(INOUT) :: vect 
    74     TYPE (Pt_field_dep), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_field_dep__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_dep_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_field_dep  
     2  TYPE Pt_field_dep__  
    33    TYPE (field_dep),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_field_dep 
     5  END TYPE Pt_field_dep__ 
    66 
    77  TYPE vector_field_dep 
    88   
    9     TYPE (Pt_field_dep), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_field_dep__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_group_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_field_group__increase(vect) 
    7373    TYPE(vector_field_group), INTENT(INOUT) :: vect 
    74     TYPE (Pt_field_group), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_field_group__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_group_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_field_group  
     2  TYPE Pt_field_group__  
    33    TYPE (field_group),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_field_group 
     5  END TYPE Pt_field_group__ 
    66 
    77  TYPE vector_field_group 
    88   
    9     TYPE (Pt_field_group), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_field_group__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_out_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_field_out__increase(vect) 
    7373    TYPE(vector_field_out), INTENT(INOUT) :: vect 
    74     TYPE (Pt_field_out), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_field_out__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_field_out_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_field_out  
     2  TYPE Pt_field_out__  
    33    TYPE (field_out),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_field_out 
     5  END TYPE Pt_field_out__ 
    66 
    77  TYPE vector_field_out 
    88   
    9     TYPE (Pt_field_out), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_field_out__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_file_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_file__increase(vect) 
    7373    TYPE(vector_file), INTENT(INOUT) :: vect 
    74     TYPE (Pt_file), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_file__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_file_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_file  
     2  TYPE Pt_file__  
    33    TYPE (file),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_file 
     5  END TYPE Pt_file__ 
    66 
    77  TYPE vector_file 
    88   
    9     TYPE (Pt_file), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_file__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_file_dep_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_file_dep__increase(vect) 
    7373    TYPE(vector_file_dep), INTENT(INOUT) :: vect 
    74     TYPE (Pt_file_dep), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_file_dep__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_file_dep_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_file_dep  
     2  TYPE Pt_file_dep__  
    33    TYPE (file_dep),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_file_dep 
     5  END TYPE Pt_file_dep__ 
    66 
    77  TYPE vector_file_dep 
    88   
    9     TYPE (Pt_file_dep), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_file_dep__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_file_group_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_file_group__increase(vect) 
    7373    TYPE(vector_file_group), INTENT(INOUT) :: vect 
    74     TYPE (Pt_file_group), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_file_group__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_file_group_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_file_group  
     2  TYPE Pt_file_group__  
    33    TYPE (file_group),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_file_group 
     5  END TYPE Pt_file_group__ 
    66 
    77  TYPE vector_file_group 
    88   
    9     TYPE (Pt_file_group), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_file_group__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_grid_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_grid__increase(vect) 
    7373    TYPE(vector_grid), INTENT(INOUT) :: vect 
    74     TYPE (Pt_grid), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_grid__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_grid_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_grid  
     2  TYPE Pt_grid__  
    33    TYPE (grid),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_grid 
     5  END TYPE Pt_grid__ 
    66 
    77  TYPE vector_grid 
    88   
    9     TYPE (Pt_grid), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_grid__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_grid_group_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_grid_group__increase(vect) 
    7373    TYPE(vector_grid_group), INTENT(INOUT) :: vect 
    74     TYPE (Pt_grid_group), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_grid_group__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_grid_group_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_grid_group  
     2  TYPE Pt_grid_group__  
    33    TYPE (grid_group),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_grid_group 
     5  END TYPE Pt_grid_group__ 
    66 
    77  TYPE vector_grid_group 
    88   
    9     TYPE (Pt_grid_group), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_grid_group__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     

  • XMLIO_SERVER/trunk/src/XMLIO/vector_node_contains.inc

    r8 r17  
    7272  SUBROUTINE vector_node__increase(vect) 
    7373    TYPE(vector_node), INTENT(INOUT) :: vect 
    74     TYPE (Pt_node), POINTER, DIMENSION(:) :: Pt_tmp 
     74    TYPE (Pt_node__), POINTER, DIMENSION(:) :: Pt_tmp 
    7575    INTEGER :: new_size 
    7676    INTEGER :: i 

  • XMLIO_SERVER/trunk/src/XMLIO/vector_node_def.inc

    r8 r17  
    11 
    2   TYPE,PRIVATE :: Pt_node  
     2  TYPE Pt_node__  
    33    TYPE (node),POINTER :: Pt 
    44    LOGICAL               :: owned 
    5   END TYPE Pt_node 
     5  END TYPE Pt_node__ 
    66 
    77  TYPE vector_node 
    88   
    9     TYPE (Pt_node), POINTER, DIMENSION(:) :: at => NULL() 
     9    TYPE (Pt_node__), POINTER, DIMENSION(:) :: at => NULL() 
    1010    INTEGER :: size 
    1111     
Note: See TracChangeset for help on using the changeset viewer.