PROGRAM server_main
  USE xios
  IMPLICIT NONE
  INCLUDE "mpif.h"
  INTEGER :: ierr, provided
   
    CALL MPI_Init_thread(3, provided, ierr)
    CALL xios_init_server
    CALL MPI_Finalize(ierr)
 

  END PROGRAM server_main