psmile_attach.c

Go to the documentation of this file.

/* --------------------------------------------------------------------- */
/* Copyright 2006-2010, NEC Europe Ltd., London, UK. */
/* All rights reserved. Use is subject to OASIS4 license terms. */
/* --------------------------------------------------------------------- */

#include <stdio.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <sys/types.h>
#include <unistd.h>

#include "PSMILe_f2c.h"

#define VOLATILE volatile

/* -----------------------------------------------------------------------
//BOP
 
! !ROUTINE: psmile_attach
 
  !INTERFACE:
*/
 
#ifdef ANSI_C

void psmile_attach (INTEGER *psmile_rank);

#else

void psmile_attach (psmile_rank)

INTEGER *psmile_rank;

#endif
/*
 
  !INPUT PARAMETERS:
 
      Integer, Intent (In)            :: psmile_rank
 
      Rank of PSMILe process in comm_psmile
 
 
  !RETURN VALUES:
  
  !DESCRIPTION:
 
   Subroutine "psmile_attach" gives the user the possibility
   to attach a PSMILe process with rank "psmile_rank" if
   the environment variable "PSMILE_ATTACH" is set to this rank.

  !FILES USED:

         <stdio.h>
         <stddef.h>
         <stdlib.h>
         <string.h>

         "mpi.h"
         "PSMILe_f2c.h"

  !REVISION HISTORY:

    Date      Programmer   Description
  ----------  ----------   -----------
  29.11.05    H. Ritzdorf  created
 
//EOP

 ----------------------------------------------------------------------
  $Id: psmile_attach.c 2325 2010-04-21 15:00:07Z valcke $
  $Author: valcke $
 ---------------------------------------------------------------------- */

{
   char *env = getenv ("PSMILE_ATTACH");
   int rank;
   
   if (env == NULL) return;

   /* Transform character string into int */

   rank = strtol (env, (char **) NULL, 10);

   if (rank == *psmile_rank) {
      time_t t_start, t_end;
      VOLATILE int attached = 0;

      fprintf (stderr, "[%d] PSMILe_attach: ### Wait for user attach; pid %d\n",
                       *psmile_rank, getpid ());
      fflush (stderr);
      t_start = time(NULL);

      while (attached == 0) {
         t_end = time(NULL);

         if (t_end - t_start > 30 || t_end < t_start) {
            fprintf (stderr, "[%d] PSMILe_attach: ### Wait aborted since time limit exceeded\n",
                             *psmile_rank);
            break;
         }
      }
   }
}