source: XMLIO_SERVER/trunk/src/XMLIO/mod_axis_definition.f90 @ 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: 364 bytes
Line 
1MODULE mod_axis_definition
2  USE mod_axis_group
3 
4  TYPE(axis_group),SAVE,POINTER :: axis_definition
5 
6CONTAINS
7
8  SUBROUTINE axis_definition__Init
9  USE mod_axis_group
10  IMPLICIT NONE
11 
12    ALLOCATE(axis_definition)
13    CALL axis_group__new(axis_definition,"axis_definition")
14   
15  END SUBROUTINE axis_definition__Init
16       
17END MODULE mod_axis_definition
Note: See TracBrowser for help on using the repository browser.