source: XMLIO_SERVER/trunk/src/XMLIO/vector_file_group_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: 355 bytes
Line 
1
2  TYPE,PRIVATE :: Pt_file_group
3    TYPE (file_group),POINTER :: Pt
4    LOGICAL               :: owned
5  END TYPE Pt_file_group
6
7  TYPE vector_file_group
8 
9    TYPE (Pt_file_group), POINTER, DIMENSION(:) :: at => NULL()
10    INTEGER :: size
11   
12    INTEGER :: size_max
13    REAL    :: grow_factor
14    INTEGER :: chunk
15 
16  END TYPE vector_file_group
17 
Note: See TracBrowser for help on using the repository browser.