source: XMLIO_SERVER/trunk/src/XMLIO/vector_node_def.inc @ 8

Last change on this file since 8 was 8, checked in by ymipsl, 15 years ago

Importation des sources du serveur XMLIO

File size: 319 bytes
RevLine 
[8]1
2  TYPE,PRIVATE :: Pt_node
3    TYPE (node),POINTER :: Pt
4    LOGICAL               :: owned
5  END TYPE Pt_node
6
7  TYPE vector_node
8 
9    TYPE (Pt_node), POINTER, DIMENSION(:) :: at => NULL()
10    INTEGER :: size
11   
12    INTEGER :: size_max
13    REAL    :: grow_factor
14    INTEGER :: chunk
15 
16  END TYPE vector_node
17 
Note: See TracBrowser for help on using the repository browser.