include/smpi/mpif.h

   1 ! -*- fortran -*-
   2 ! Copyright (c) 2007, 2008, 2009, 2010. The SimGrid Team.
   3 ! All rights reserved.
   4
   5 ! This program is free software; you can redistribute it and/or modify it
   6 ! under the terms of the license (GNU LGPL) which comes with this package.
   7
   8 ! SMPI's Fortran 77 include file
   9
  10       integer MPI_THREAD_SINGLE, MPI_THREAD_FUNNELED, MPI_THREAD_SERIALIZED, MPI_THREAD_MULTIPLE
  11       parameter(MPI_THREAD_SINGLE=0)
  12       parameter(MPI_THREAD_FUNNELED=1)
  13       parameter(MPI_THREAD_SERIALIZED=2)
  14       parameter(MPI_THREAD_MULTIPLE=3)
  15
  16       integer MPI_MAX_PROCESSOR_NAME, MPI_MAX_ERROR_STRING,
  17      >        MPI_MAX_DATAREP_STRIN, MPI_MAX_INFO_KEY,
  18      >        MPI_MAX_INFO_VAL, MPI_MAX_OBJECT_NAME, MPI_MAX_PORT_NAME,
  19      >        MPI_ANY_SOURCE, MPI_PROC_NULL, MPI_ANY_TAG, MPI_UNDEFINED
  20       parameter(MPI_MAX_PROCESSOR_NAME=100)
  21       parameter(MPI_MAX_ERROR_STRING=100)
  22       parameter(MPI_MAX_DATAREP_STRIN =100)
  23       parameter(MPI_MAX_INFO_KEY=100)
  24       parameter(MPI_MAX_INFO_VAL=100)
  25       parameter(MPI_MAX_OBJECT_NAME=100)
  26       parameter(MPI_MAX_PORT_NAME=100)
  27       parameter(MPI_ANY_SOURCE=-1)
  28       parameter(MPI_PROC_NULL=-2)
  29       parameter(MPI_ANY_TAG=-1)
  30       parameter(MPI_UNDEFINED=-1)
  31
  32       integer MPI_SUCCESS, MPI_ERR_COMM, MPI_ERR_ARG, MPI_ERR_TYPE,
  33      >        MPI_ERR_REQUEST, MPI_ERR_INTERN, MPI_ERR_COUNT, MPI_ERR_RANK,
  34      >        MPI_ERR_TAG, MPI_ERR_TRUNCATE, MPI_ERR_GROUP, MPI_ERR_OP,
  35      >        MPI_IDENT, MPI_SIMILAR, MPI_UNEQUAL, MPI_CONGRUENT,
  36      >        MPI_WTIME_IS_GLOBAL
  37       parameter(MPI_SUCCESS=0)
  38       parameter(MPI_ERR_COMM=1)
  39       parameter(MPI_ERR_ARG=2)
  40       parameter(MPI_ERR_TYPE=3)
  41       parameter(MPI_ERR_REQUEST=4)
  42       parameter(MPI_ERR_INTERN=5)
  43       parameter(MPI_ERR_COUNT=6)
  44       parameter(MPI_ERR_RANK=7)
  45       parameter(MPI_ERR_TAG=8)
  46       parameter(MPI_ERR_TRUNCATE=9)
  47       parameter(MPI_ERR_GROUP=10)
  48       parameter(MPI_ERR_OP=11)
  49       parameter(MPI_IDENT=0)
  50       parameter(MPI_SIMILAR=1)
  51       parameter(MPI_UNEQUAL=2)
  52       parameter(MPI_CONGRUENT=3)
  53       parameter(MPI_WTIME_IS_GLOBAL=1)
  54
  55 ! This should be equal to the number of int fields in MPI_Status
  56       integer MPI_STATUS_SIZE
  57       parameter(MPI_STATUS_SIZE=4)
  58
  59       integer MPI_STATUS_IGNORE(MPI_STATUS_SIZE)
  60       common/smpi/ MPI_STATUS_IGNORE
  61
  62       parameter(MPI_DATATYPE_NULL=0)
  63       external MPI_BYTE, MPI_CHARACTER, MPI_LOGICAL, MPI_INTEGER, MPI_INTEGER1,
  64      >         MPI_INTEGER2, MPI_INTEGER4, MPI_INTEGER8, MPI_REAL, MPI_REAL4,
  65      >         MPI_REAL8, MPI_DOUBLE_PRECISION, MPI_COMPLEX,
  66      >         MPI_DOUBLE_COMPLEX, MPI_2INTEGER, MPI_LOGICAL1, MPI_LOGICAL2,
  67      >         MPI_LOGICAL4, MPI_LOGICAL8
  68
  69       external MPI_COMM_WORLD, MPI_COMM_SELF
  70
  71       external MPI_INIT, MPI_FINALIZE, MPI_COMM_RANK, MPI_COMM_SIZE
  72
  73       external MPI_WTIME
  74       double precision MPI_WTIME