Changeset 17 for XMLIO_SERVER


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
Files:
41 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_boxed_domain.f90

    r8 r17  
    1212    INTEGER :: jbegin 
    1313    INTEGER :: jend 
    14     REAL,ALLOCATABLE :: lon(:,:) 
    15     REAL,ALLOCATABLE :: lat(:,:) 
     14    REAL,POINTER :: lon(:,:) 
     15    REAL,POINTER :: lat(:,:) 
    1616  END TYPE local_domain 
    1717   
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

    r8 r17  
    125125       
    126126     CALL sorted_list__find(sorted_id,hash(varname),pos,found) 
     127 
    127128     IF (found) THEN 
    128129       pt_field_base=>field_id%at(pos)%pt 
     
    154155         
    155156     CALL sorted_list__find(sorted_id,hash(varname),pos,found) 
    156      pt_field_base=>field_id%at(pos)%pt 
    157       
    158      DO i=1,pt_field_base%field_out%size 
    159        pt_field=>pt_field_base%field_out%at(i)%pt%field 
    160        ioipsl_file_id=pt_field%internal(id_file) 
    161        CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex) 
    162      ENDDO 
    163       
     157 
     158     IF (found) THEN 
     159       pt_field_base=>field_id%at(pos)%pt 
     160      
     161       DO i=1,pt_field_base%field_out%size 
     162         pt_field=>pt_field_base%field_out%at(i)%pt%field 
     163         ioipsl_file_id=pt_field%internal(id_file) 
     164         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex) 
     165       ENDDO 
     166     ENDIF 
    164167   END SUBROUTINE write_ioipsl_3d 
    165168            
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

    r8 r17  
    274274       
    275275      IF (pt_field%axis%name/="none") THEN 
     276        CALL write_ioipsl_3d(varname,Field_buffer(1:ni,1:nj,1:nk)) 
     277      ELSE  
    276278        CALL write_ioipsl_2d(varname,Field_buffer(1:ni,1:nj,1)) 
    277       ELSE  
    278         CALL write_ioipsl_3d(varname,Field_buffer(1:ni,1:nj,1:nk)) 
    279279      ENDIF 
    280280     
     
    296296    INTEGER :: ni,nj,nk,ibegin,jbegin 
    297297    INTEGER :: id_rank 
    298      
     298 
    299299    CALL field__get(varname,pt_field) 
    300300    id_rank=pt_field%grid%ranks(current_rank) 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90

    r8 r17  
    5757!    PRINT *,"Pos in Buffer",Pending_request(Request_pos)%Pos,"pack_pos",pack_pos 
    5858    CALL pack(request_id) 
    59  
    6059  END SUBROUTINE create_request 
    6160   
     
    9796      IF ( nb_request_pending==1 .AND. (buffer_free < MPI_buffer_size * 0.4) ) THEN 
    9897        ok_out=.FALSE. 
    99         CALL Wait_us(10) 
     98        CALL Wait_us(1) 
    10099        IF (.NOT. is_buffer_full) THEN 
    101100          CALL VTb(VTbuffer_full) 
     
    119118                    server_rank,tag_iocomm,iocomm,Pending_request(Request_pos)%request,ierr ) 
    120119     
    121 !    PRINT *,"Requete envoyée !!!!"  
     120!    PRINT *,"Requete envoyï¿œe !!!!"  
    122121!    PRINT *,"Message : ",MPI_Buffer(Pending_request(Request_pos)%Pos:Pending_request(Request_pos)%Pos+message_size-1)               
    123122      IF ( Pack_Pos > MPI_buffer_size*0.6 ) THEN 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_server.f90

    r8 r17  
    178178      IF (Buffers(n)%request_free==0) THEN 
    179179        PRINT *,'Plus de requete disponible !!!!' 
    180         CALL MPI_ABORT(MPI_COMM_WORLD,ierr) 
     180        CALL MPI_ABORT(MPI_COMM_WORLD,-1,ierr) 
    181181      ENDIF 
    182182       
     
    197197      IF (total_size>message_size) THEN 
    198198        PRINT *,"Probleme : la taille du message ne coincide pas avec la taille de l'enveloppe" 
    199         CALL MPI_ABORT(MPI_COMM_WORLD,ierr) 
     199        CALL MPI_ABORT(MPI_COMM_WORLD,-1,ierr) 
    200200      ENDIF 
    201201       
     
    255255      ENDIF 
    256256    ELSE 
    257       CALL Wait_us(50) 
     257      CALL Wait_us(5) 
    258258    ENDIF      
    259259  END SUBROUTINE process_request   
  • XMLIO_SERVER/trunk/src/IOSERVER/server.f90

    r8 r17  
    1313  LOGICAL :: is_terminated 
    1414   
    15   CALL SLEEP(60) 
     15!  CALL SLEEP(60) 
    1616  PRINT *,'je suis un serveur' 
    1717  CALL init_parallel 
  • 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.