Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r26 r8  
    66CONTAINS 
    77 
    8   SUBROUTINE field_definition__swap_context(saved_field_definition) 
    9   IMPLICIT NONE 
    10     TYPE(field_group),POINTER :: saved_field_definition 
    11    
    12     field_definition=>saved_field_definition 
    13  
    14   END SUBROUTINE field_definition__swap_context 
    15  
    16  
    178  SUBROUTINE field_definition__Init 
     9  USE mod_field_group 
    1810  IMPLICIT NONE 
    1911   
    20    CALL field_group__new(field_definition,"field_definition") 
    21  
     12    ALLOCATE(field_definition) 
     13    CALL field_group__new(field_definition,"field_definition") 
     14     
    2215  END SUBROUTINE field_definition__Init 
    23    
    2416         
    2517END MODULE mod_field_definition 
Note: See TracChangeset for help on using the changeset viewer.