source: XMLIO_V2/dev/common/src/xmlio/fake_client/fake_orchidee.f90 @ 219

Last change on this file since 219 was 219, checked in by hozdoba, 10 years ago

Préparation nouvelle arborescence

File size: 1.1 KB
Line 
1! --------------------------------------------------- !
2!        XMLIO SERVER MAIN TEST (ORCHIDEE)            !
3! --------------------------------------------------- !
4
5MODULE ORCHIDEE_FAKE
6
7   ! Modules de la bibliothÚque xmlioserver
8   USE IXMLIOSERVER
9   USE ISO_C_BINDING
10
11include 'mpif.h'
12
13   CONTAINS
14
15   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
17   SUBROUTINE ORCHIDEE_FAKE_ENTRY(comm_client, comm_client_grp, comm_client_server) BIND(C)
18      INTEGER(kind = C_INT), INTENT(IN), VALUE :: comm_client,       & ! communicateur des clients
19                                                  comm_client_grp,   & ! communicateur du groupe de clients
20                                                  comm_client_server   ! communicateur client-serveur
21      INTEGER                                  :: rankGrp, error
22
23      CALL MPI_COMM_RANK(comm_client, rankGrp, error)
24
25      IF (rankGrp .EQ. 0) THEN
26         PRINT*," Starting ORCHIDEE Client Tests ..."
27      END IF
28
29   END SUBROUTINE ORCHIDEE_FAKE_ENTRY
30
31   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
32
33END MODULE ORCHIDEE_FAKE
Note: See TracBrowser for help on using the repository browser.