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

Correction de bugs pour portage sur Mercure

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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     
Note: See TracChangeset for help on using the changeset viewer.