[mpich-discuss] can not find function MPI_Type_create_f90_real

[trimtrim trimtrim]

Dear every one:
  I am try to use the function of "MPI_Type_create_f90_real" to select the
MPI send data type. But when I link the program, it shows I can't find the
library.
"Error    1     error LNK2019: unresolved external symbol
_MPI_TYPE_CREATE_F90_REAL referenced in function _MAIN__    TEST "

Does anyone knows which library I need to add, the library "fmpe.lib" and
"fmpich2.lib" are already add to the linker. Below is the attached program.
Many thanks
Regards Haihua.

PROGRAM MAIN
USE mpi
INTEGER(KIND=4),PARAMETER::p = 12,r=37;
INTEGER(KIND=4),PARAMETER:: realKind =selected_real_kind(p,r)
INTEGER(KIND=4):: MPI_INT_KIND,info;
CALL MPI_Type_create_f90_real(p,r,MPI_INT_KIND,info);

write(*,*) realKind;
Write(*,*) PRECISION(x),range(x);

END
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.mcs.anl.gov/pipermail/mpich-discuss/attachments/20090115/6bc0ca78/attachment.htm>