Changeset 285


Ignore:
Timestamp:
09/26/11 14:19:55 (9 years ago)
Author:
hozdoba
Message:
 
Location:
XMLIO_V2/dev/dev_rv/src/xmlio
Files:
24 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/axis_interface.f90

    r270 r285  
    4646       
    4747      SUBROUTINE xios_axis_handle_create(ret, idt, idt_size) BIND(C) 
    48          import C_CHAR, C_INTPTR_T, C_INT 
     48         USE ISO_C_BINDING 
    4949         INTEGER  (kind = C_INTPTR_T)               :: ret 
    5050         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    5151         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    5252      END SUBROUTINE xios_axis_handle_create 
    53         
     53 
     54      SUBROUTINE xios_axis_valid_id(ret, idt, idt_size) BIND(C) 
     55         USE ISO_C_BINDING 
     56         LOGICAL  (kind = C_BOOL)                   :: ret 
     57         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     58         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     59      END SUBROUTINE xios_axis_valid_id 
     60 
    5461   END INTERFACE 
    5562      
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/axisgroup_interface.f90

    r270 r285  
    5151         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    5252      END SUBROUTINE xios_axisgroup_handle_create 
    53       
     53 
     54      SUBROUTINE xios_axisgroup_valid_id(ret, idt, idt_size) BIND(C) 
     55         USE ISO_C_BINDING 
     56         LOGICAL  (kind = C_BOOL)                   :: ret 
     57         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     58         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     59      END SUBROUTINE xios_axisgroup_valid_id 
     60 
    5461   END INTERFACE 
    5562      
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/context_interface.f90

    r270 r285  
    4040      SUBROUTINE xios_context_create(context, context_id, context_id_size, calendar_type, & 
    4141                                     year, month, day, hour, minute, second) BIND(C) 
    42          import C_CHAR, C_INT, C_INTPTR_T 
     42         USE ISO_C_BINDING 
    4343         INTEGER  (kind = C_INTPTR_T)               :: context 
    4444         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: context_id 
     
    4646         INTEGER  (kind = C_INT)     , VALUE        :: calendar_type, year, month, day, hour, minute, second 
    4747      END SUBROUTINE xios_context_create 
    48       
     48 
     49      SUBROUTINE xios_context_valid_id(ret, idt, idt_size) BIND(C) 
     50         USE ISO_C_BINDING 
     51         LOGICAL  (kind = C_BOOL)                   :: ret 
     52         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     53         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     54      END SUBROUTINE xios_context_valid_id 
     55 
    4956   END INTERFACE 
    5057      
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/domain_interface.f90

    r270 r285  
    201201        
    202202      SUBROUTINE xios_domain_handle_create(ret, idt, idt_size) BIND(C) 
    203          import C_CHAR, C_INTPTR_T, C_INT 
     203         USE ISO_C_BINDING 
    204204         INTEGER  (kind = C_INTPTR_T)               :: ret 
    205205         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    206206         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    207207      END SUBROUTINE xios_domain_handle_create 
    208         
     208 
     209      SUBROUTINE xios_domain_valid_id(ret, idt, idt_size) BIND(C) 
     210         USE ISO_C_BINDING 
     211         LOGICAL  (kind = C_BOOL)                   :: ret 
     212         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     213         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     214      END SUBROUTINE xios_domain_valid_id 
     215 
    209216   END INTERFACE 
    210217        
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/domaingroup_interface.f90

    r270 r285  
    201201       
    202202      SUBROUTINE xios_domaingroup_handle_create(ret, idt, idt_size) BIND(C) 
    203          import C_CHAR, C_INTPTR_T, C_INT 
     203         USE ISO_C_BINDING 
    204204         INTEGER  (kind = C_INTPTR_T)               :: ret 
    205205         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    206206         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    207207      END SUBROUTINE xios_domaingroup_handle_create 
    208         
     208 
     209      SUBROUTINE xios_domaingroup_valid_id(ret, idt, idt_size) BIND(C) 
     210         USE ISO_C_BINDING 
     211         LOGICAL  (kind = C_BOOL)                   :: ret 
     212         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     213         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     214      END SUBROUTINE xios_domaingroup_valid_id 
     215 
    209216   END INTERFACE 
    210217        
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/field_interface.f90

    r270 r285  
    104104         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    105105      END SUBROUTINE xios_field_handle_create 
    106     
     106 
     107      SUBROUTINE xios_field_valid_id(ret, idt, idt_size) BIND(C) 
     108         USE ISO_C_BINDING 
     109         LOGICAL  (kind = C_BOOL)                   :: ret 
     110         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     111         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     112      END SUBROUTINE xios_field_valid_id 
     113 
    107114   END INTERFACE 
    108115    
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/fieldgroup_interface.f90

    r276 r285  
    9999       
    100100      SUBROUTINE xios_fieldgroup_handle_create(ret, idt, idt_size) BIND(C) 
    101          import C_CHAR, C_INTPTR_T, C_INT 
     101         USE ISO_C_BINDING 
    102102         INTEGER  (kind = C_INTPTR_T)               :: ret 
    103103         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    104104         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    105105      END SUBROUTINE xios_fieldgroup_handle_create 
     106 
     107      SUBROUTINE xios_fieldgroup_valid_id(ret, idt, idt_size) BIND(C) 
     108         USE ISO_C_BINDING 
     109         LOGICAL  (kind = C_BOOL)                   :: ret 
     110         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     111         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     112      END SUBROUTINE xios_fieldgroup_valid_id 
    106113    
    107114   END INTERFACE 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/file_interface.f90

    r276 r285  
    4545    
    4646      SUBROUTINE xios_file_handle_create(ret, idt, idt_size) BIND(C) 
    47          import C_CHAR, C_INTPTR_T, C_INT 
     47         USE ISO_C_BINDING 
    4848         INTEGER  (kind = C_INTPTR_T)               :: ret 
    4949         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
    5050         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    5151      END SUBROUTINE xios_file_handle_create 
    52      
     52 
     53      SUBROUTINE xios_file_valid_id(ret, idt, idt_size) BIND(C) 
     54         USE ISO_C_BINDING 
     55         LOGICAL  (kind = C_BOOL)                   :: ret 
     56         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     57         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     58      END SUBROUTINE xios_file_valid_id 
     59 
    5360   END INTERFACE 
    5461    
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/filegroup_interface.f90

    r276 r285  
    5151      END SUBROUTINE xios_filegroup_handle_create 
    5252 
     53      SUBROUTINE xios_filegroup_valid_id(ret, idt, idt_size) BIND(C) 
     54         USE ISO_C_BINDING 
     55         LOGICAL  (kind = C_BOOL)                   :: ret 
     56         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     57         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     58      END SUBROUTINE xios_filegroup_valid_id 
     59 
    5360   END INTERFACE 
    5461    
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/grid_interface.f90

    r270 r285  
    3838         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    3939      END SUBROUTINE xios_grid_handle_create 
    40       
     40 
     41      SUBROUTINE xios_grid_valid_id(ret, idt, idt_size) BIND(C) 
     42         USE ISO_C_BINDING 
     43         LOGICAL  (kind = C_BOOL)                   :: ret 
     44         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     45         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     46      END SUBROUTINE xios_grid_valid_id 
     47 
    4148   END INTERFACE 
    4249      
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/gridgroup_interface.f90

    r270 r285  
    3838         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
    3939      END SUBROUTINE xios_domaingroup_handle_create 
    40        
     40 
     41      SUBROUTINE xios_gridgroup_valid_id(ret, idt, idt_size) BIND(C) 
     42         USE ISO_C_BINDING 
     43         LOGICAL  (kind = C_BOOL)                   :: ret 
     44         CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: idt 
     45         INTEGER  (kind = C_INT)     , VALUE        :: idt_size 
     46      END SUBROUTINE xios_gridgroup_valid_id 
     47 
    4148   END INTERFACE 
    4249      
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/iaxis.f90

    r270 r285  
    130130   END SUBROUTINE axisgroup_handle_create 
    131131 
     132   LOGICAL FUNCTION axis_valid_id(idt) 
     133      IMPLICIT NONE 
     134      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     135      LOGICAL  (kind = 1)                 :: val 
     136      CALL xios_axis_valid_id(val, idt, len(idt)); 
     137      axis_valid_id = val 
     138   END FUNCTION  axis_valid_id 
     139 
     140   LOGICAL FUNCTION axisgroup_valid_id(idt) 
     141      IMPLICIT NONE 
     142      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     143      LOGICAL  (kind = 1)                 :: val 
     144      CALL xios_axisgroup_valid_id(val, idt, len(idt)); 
     145      axisgroup_valid_id = val 
     146   END FUNCTION  axisgroup_valid_id 
     147 
    132148END MODULE IAXIS 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icaxis.cpp

    r272 r285  
    144144      *_ret = xmlioserver::CObjectFactory::GetObject<xmlioserver::tree::CAxisGroup>(id).get(); 
    145145   } 
     146 
     147   // -------------------- Vérification des identifiants ----------------------- 
     148 
     149   void xios_axis_valid_id (bool * _ret, const char * _id, int _id_len) 
     150   { 
     151      std::string id; 
     152      if (!cstr2string(_id, _id_len, id)) return; 
     153 
     154      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CAxis>(id); 
     155   } 
     156 
     157   void xios_axisgroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     158   { 
     159      std::string id; 
     160      if (!cstr2string(_id, _id_len, id)) return; 
     161 
     162      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CAxisGroup>(id); 
     163   } 
    146164    
    147165} // extern "C" 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/iccontext.cpp

    r270 r285  
    137137      } 
    138138   } 
    139     
     139 
     140   // -------------------- Vérification des identifiants ----------------------- 
     141 
     142   void xios_context_valid_id (bool * _ret, const char * _id, int _id_len) 
     143   { 
     144      std::string id; 
     145      if (!cstr2string(_id, _id_len, id)) return; 
     146 
     147      std::vector<boost::shared_ptr<xmlioserver::tree::CContext> > def_vector = 
     148            xmlioserver::tree::CContext::GetContextGroup()->getChildList(); 
     149 
     150      for (std::size_t i = 0; i < def_vector.size(); i++) 
     151           { 
     152          if (def_vector[i]->getId().compare(id) == 0) 
     153          *_ret = true; 
     154      } 
     155     *_ret = false; 
     156   } 
    140157} // extern "C" 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icdomain.cpp

    r270 r285  
    409409      *_ret = xmlioserver::CObjectFactory::GetObject<xmlioserver::tree::CDomainGroup>(id).get(); 
    410410   } 
    411     
     411 
     412   // -------------------- Vérification des identifiants ----------------------- 
     413 
     414   void xios_domain_valid_id (bool * _ret, const char * _id, int _id_len) 
     415   { 
     416      std::string id; 
     417      if (!cstr2string(_id, _id_len, id)) return; 
     418 
     419      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CDomain>(id); 
     420   } 
     421 
     422   void xios_domaingroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     423   { 
     424      std::string id; 
     425      if (!cstr2string(_id, _id_len, id)) return; 
     426 
     427      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CDomainGroup>(id); 
     428   } 
    412429} // extern "C" 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icfield.cpp

    r271 r285  
    244244      *_ret = xmlioserver::CObjectFactory::GetObject<xmlioserver::tree::CFieldGroup>(id).get(); 
    245245   } 
     246 
     247 
     248   // -------------------- Vérification des identifiants ----------------------- 
     249 
     250   void xios_field_valid_id (bool * _ret, const char * _id, int _id_len) 
     251   { 
     252      std::string id; 
     253      if (!cstr2string(_id, _id_len, id)) return; 
     254 
     255      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CField>(id); 
     256   } 
     257 
     258   void xios_fieldgroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     259   { 
     260      std::string id; 
     261      if (!cstr2string(_id, _id_len, id)) return; 
     262 
     263      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CFieldGroup>(id); 
     264   } 
    246265    
    247266} // extern "C" 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icfile.cpp

    r276 r285  
    129129      *_ret = xmlioserver::CObjectFactory::GetObject<xmlioserver::tree::CFileGroup>(id).get(); 
    130130   } 
    131     
     131 
     132   // -------------------- Vérification des identifiants ----------------------- 
     133 
     134   void xios_file_valid_id (bool * _ret, const char * _id, int _id_len) 
     135   { 
     136      std::string id; 
     137      if (!cstr2string(_id, _id_len, id)) return; 
     138 
     139      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CFile>(id); 
     140   } 
     141 
     142   void xios_filegroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     143   { 
     144      std::string id; 
     145      if (!cstr2string(_id, _id_len, id)) return; 
     146 
     147      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CFileGroup>(id); 
     148   } 
    132149} // extern "C" 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icgrid.cpp

    r271 r285  
    109109   } 
    110110 
     111   // -------------------- Vérification des identifiants ----------------------- 
     112 
     113   void xios_grid_valid_id (bool * _ret, const char * _id, int _id_len) 
     114   { 
     115      std::string id; 
     116      if (!cstr2string(_id, _id_len, id)) return; 
     117 
     118      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CGrid>(id); 
     119   } 
     120 
     121   void xios_gridgroup_valid_id (bool * _ret, const char * _id, int _id_len) 
     122   { 
     123      std::string id; 
     124      if (!cstr2string(_id, _id_len, id)) return; 
     125 
     126      *_ret = xmlioserver::CObjectFactory::HasObject<xmlioserver::tree::CGridGroup>(id); 
     127   } 
    111128} // extern "C" 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/icontext.f90

    r270 r285  
    7979      END IF 
    8080   END SUBROUTINE context_create 
     81 
     82   LOGICAL FUNCTION context_valid_id(idt) 
     83      IMPLICIT NONE 
     84      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     85      LOGICAL  (kind = 1)                 :: val 
     86      CALL xios_context_valid_id(val, idt, len(idt)); 
     87      context_valid_id = val 
     88   END FUNCTION  context_valid_id 
     89 
     90 
    8191    
    8292END MODULE ICONTEXT 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/idomain.f90

    r276 r285  
    412412      CALL xios_domaingroup_handle_create(ret%daddr, idt, len(idt))             
    413413   END SUBROUTINE domaingroup_handle_create 
     414 
     415   LOGICAL FUNCTION domain_valid_id(idt) 
     416      IMPLICIT NONE 
     417      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     418      LOGICAL  (kind = 1)                 :: val 
     419      CALL xios_domain_valid_id(val, idt, len(idt)); 
     420      domain_valid_id = val 
     421   END FUNCTION  domain_valid_id 
     422 
     423   LOGICAL FUNCTION domaingroup_valid_id(idt) 
     424      IMPLICIT NONE 
     425      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     426      LOGICAL  (kind = 1)                 :: val 
     427      CALL xios_domaingroup_valid_id(val, idt, len(idt)); 
     428      domaingroup_valid_id = val 
     429   END FUNCTION  domaingroup_valid_id 
    414430    
    415431END MODULE IDOMAIN 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ifield.f90

    r276 r285  
    229229      CALL xios_fieldgroup_handle_create(ret%daddr, idt, len(idt))             
    230230   END SUBROUTINE fieldgroup_handle_create 
    231     
     231 
     232   LOGICAL FUNCTION field_valid_id(idt) 
     233      IMPLICIT NONE 
     234      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     235      LOGICAL  (kind = 1)                 :: val 
     236      CALL xios_field_valid_id(val, idt, len(idt)); 
     237      field_valid_id = val 
     238   END FUNCTION  field_valid_id 
     239 
     240   LOGICAL FUNCTION fieldgroup_valid_id(idt) 
     241      IMPLICIT NONE 
     242      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     243      LOGICAL  (kind = 1)                 :: val 
     244      CALL xios_fieldgroup_valid_id(val, idt, len(idt)); 
     245      fieldgroup_valid_id = val 
     246   END FUNCTION  fieldgroup_valid_id 
     247 
    232248END MODULE IFIELD 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/ifile.f90

    r276 r285  
    134134      CALL xios_filegroup_handle_create(ret%daddr, idt, len(idt))             
    135135   END SUBROUTINE filegroup_handle_create 
     136 
     137   LOGICAL FUNCTION file_valid_id(idt) 
     138      IMPLICIT NONE 
     139      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     140      LOGICAL  (kind = 1)                 :: val 
     141      CALL xios_file_valid_id(val, idt, len(idt)); 
     142      file_valid_id = val 
     143   END FUNCTION  file_valid_id 
     144 
     145   LOGICAL FUNCTION filegroup_valid_id(idt) 
     146      IMPLICIT NONE 
     147      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     148      LOGICAL  (kind = 1)                 :: val 
     149      CALL xios_filegroup_valid_id(val, idt, len(idt)); 
     150      filegroup_valid_id = val 
     151   END FUNCTION  filegroup_valid_id 
    136152    
    137153END MODULE IFILE 
  • XMLIO_V2/dev/dev_rv/src/xmlio/fortran/igrid.f90

    r270 r285  
    109109      CALL xios_gridgroup_handle_create(ret%daddr, idt, len(idt))             
    110110   END SUBROUTINE gridgroup_handle_create 
     111 
     112   LOGICAL FUNCTION grid_valid_id(idt) 
     113      IMPLICIT NONE 
     114      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     115      LOGICAL  (kind = 1)                 :: val 
     116      CALL xios_grid_valid_id(val, idt, len(idt)); 
     117      grid_valid_id = val 
     118   END FUNCTION  grid_valid_id 
     119 
     120   LOGICAL FUNCTION gridgroup_valid_id(idt) 
     121      IMPLICIT NONE 
     122      CHARACTER(len  = *)    , INTENT(IN) :: idt 
     123      LOGICAL  (kind = 1)                 :: val 
     124      CALL xios_gridgroup_valid_id(val, idt, len(idt)); 
     125      gridgroup_valid_id = val 
     126   END FUNCTION  gridgroup_valid_id 
    111127    
    112128END MODULE IGRID 
  • XMLIO_V2/dev/dev_rv/src/xmlio/main_server.cpp

    r277 r285  
    2424      CXIOSManager::Initialise (CXIOSManager::CLIENT_SERVER, &argc, &argv); 
    2525      if (CMPIManager::GetCommRank() == 0) 
    26       {          
     26      { 
     27 
    2728         CMPIManager ::DispatchClient(true, comm_client, comm_client_server,  comm_server); 
    2829         CXIOSManager::RunServer("Nemo", comm_client_server, comm_server);  
Note: See TracChangeset for help on using the changeset viewer.