17.2.383. MPI_Type_create_f90_complex
MPI_Type_create_f90_complex - Returns a bounded MPI complex datatype
17.2.383.1. 语法
17.2.383.1.1. C语法
#include <mpi.h>
int MPI_Type_create_f90_complex(int p, int r,
MPI_Datatype *newtype)
17.2.383.1.2. Fortran 语法
USE MPI
! or the older form: INCLUDE 'mpif.h'
MPI_TYPE_CREATE_F90_COMPLEX (P, R, NEWTYPE, IERROR)
INTEGER P, R, NEWTYPE, IERROR
17.2.383.1.3. Fortran 2008 语法
USE mpi_f08
MPI_Type_create_f90_complex(p, r, newtype, ierror)
INTEGER, INTENT(IN) :: p, r
TYPE(MPI_Datatype), INTENT(OUT) :: newtype
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
17.2.383.2. 输入参数
p: 精度，以十进制数字表示（整数）。r: 十进制指数范围（整数）。
17.2.383.3. 输出参数
newtype: 新数据类型（句柄）。ierror: 仅限Fortran：错误状态（整数）。
17.2.383.4. 描述
此函数提供了一种声明KIND参数化COMPLEX MPI数据类型的方法。参数的解释方式与F90函数SELECTED_REAL_KIND类似。参数p和r必须是标量整数。p参数表示所需的数值精度级别（以十进制位数表示）。r参数表示期望的指数范围：返回的数据类型将至少包含一个介于+r和-r（含）之间的指数。
在调用SELECTED_REAL_KIND时，可以省略p或r中的一个参数，但不能同时省略两者。同样地，在调用MPI_Type_create_f90_complex时，可以将任一参数设置为MPI_UNDEFINED。
17.2.383.5. 备注
为编译器不支持的p和r提供值是错误的。
Fortran函数SELECTED_REAL_KIND将大量的(p,r)对映射到编译器支持的更少数量的KIND参数。KIND参数并非由语言规范定义，也不具备可移植性。从语言角度来看，即使它们的KIND参数是通过SELECTED_REAL_KIND函数不同的(p,r)参数生成的，相同基本类型和KIND参数的变量也是等价的。然而，为了促进异构环境中的互操作性，对于MPI_Type_create_f90_complex返回的数据类型，其等价性定义更为严格。只有当两个由该函数生成的MPI数据类型具有完全相同的p和r值时，它们才会匹配。
该函数返回的数据类型与external32数据表示（由MPI_Pack_external、MPI_Unpack_external及众多MPI_File函数使用）之间的交互较为微妙。返回数据类型的external32表示方式如下。
if (p > 33) and/or (r > 4931):
external32 size = n/a (undefined)
else if (p > 15) and/or (r > 307):
external32 size = 32
else if (p > 6) and/or (r > 37):
external32 size = 16
else:
external32 size = 8
如果某个数据类型的外部32位表示未定义，那么在需要外部32位格式的操作中使用该数据类型的结果也是未定义的。应注意不要在这些函数中间接使用不兼容的数据类型，例如作为另一个数据类型的一部分或通过复制的数据类型。
如果变量声明时指定了一个非默认的KIND值，且该值不是通过SELECTED_REAL_KIND获取的（即p和/或r未知），那么获取匹配MPI数据类型的唯一方法是使用函数MPI_Sizeof和MPI_Type_match_size。
17.2.383.6. 错误
几乎所有MPI例程都会返回一个错误值；C语言例程通过函数返回值返回，Fortran例程则通过最后一个参数返回。
在返回错误值之前，会调用与通信对象（如通信器、窗口、文件）关联的当前MPI错误处理程序。如果MPI调用未关联任何通信对象，则该调用被视为附加到MPI_COMM_SELF，并将调用关联的MPI错误处理程序。当MPI_COMM_SELF未初始化时（即在MPI_Init/MPI_Init_thread之前、MPI_Finalize之后，或仅使用会话模型时），错误会触发初始错误处理程序。初始错误处理程序可通过在使用世界模型时调用MPI_Comm_set_errhandler来修改MPI_COMM_SELF，或通过mpiexec的mpi_initial_errhandler命令行参数，或MPI_Comm_spawn/MPI_Comm_spawn_multiple的info键来设置。如果未设置其他适当的错误处理程序，则MPI I/O函数将调用MPI_ERRORS_RETURN错误处理程序，而其他所有MPI函数将调用MPI_ERRORS_ABORT错误处理程序。
Open MPI 包含三个可使用的预定义错误处理器：
MPI_ERRORS_ARE_FATAL导致程序中止所有连接的MPI进程。MPI_ERRORS_ABORT一个可在通信器、窗口、文件或会话上调用的错误处理程序。当在通信器上调用时，其行为类似于在该通信器上调用MPI_Abort。如果在窗口或文件上调用，则行为类似于在包含对应窗口或文件中进程组的通信器上调用MPI_Abort。如果在会话上调用，则仅中止本地进程。MPI_ERRORS_RETURN向应用程序返回一个错误代码。
MPI应用程序也可以通过调用以下方式实现自己的错误处理程序：
请注意，MPI不保证MPI程序在出现错误后能够继续运行。
有关更多信息，请参阅MPI-3.1标准中的错误处理部分。
另请参阅
SELECTED_REAL_KIND