00001 integer, parameter :: AMPI_DOUBLE_PRECISION=0 00002 integer, parameter :: AMPI_INTEGER=1 00003 integer, parameter :: AMPI_REAL=2 00004 integer, parameter :: AMPI_COMPLEX=3 00005 integer, parameter :: AMPI_LOGICAL=4 00006 integer, parameter :: AMPI_CHARACTER=5 00007 integer, parameter :: AMPI_BYTE=6 00008 integer, parameter :: AMPI_PACKED=7 00009 00010 INTERFACE 00011 DOUBLE PRECISION FUNCTION IMPI_Wtime() 00012 END FUNCTION 00013 END INTERFACE