11.3.6 结构
只要相应的元素是兼容的，便可以将 C 和 Fortran 95 派生类型传递给彼此的例程。（f95 接受传统的 STRUCTURE 语句。）
表 11–8 传递传统 FORTRAN 77 STRUCTURE 记录
|
Fortran 调用 C
|
C 调用 Fortran
|
STRUCTURE /POINT/
REAL X, Y, Z
END STRUCTURE
RECORD /POINT/ BASE
EXTERNAL FLIP
...
CALL FLIP( BASE )
...
------------------------------
struct point {
float x,y,z;
};
void flip_( struct point *v )
{
float t;
t = v -> x;
v -> x = v -> y;
v -> y = t;
v -> z = -2.*(v -> z);
}
|
|
struct point {
float x,y,z;
};
void fflip_ ( struct point *) ;
...
struct point d;
struct point *ptx = &d;
...
fflip_ (ptx);
...
------------------------------
SUBROUTINE FFLIP(P)
STRUCTURE /POINT/
REAL X,Y,Z
END STRUCTURE
RECORD /POINT/ P
REAL T
T = P.X
P.X = P.Y
P.Y = T
P.Z = -2.*P.Z
...
|
|
请注意，在所有平台上 Fortran 77 (VAX) 结构与 C 结构的对齐方式始终相同。但是，平台之间对齐方式会有所变化。
表 11–9 传递 Fortran 95 派生类型
|
Fortran 95 调用 C
|
C 调用 Fortran 95
|
TYPE point
SEQUENCE
REAL :: x, y, z
END TYPE point
TYPE (point) base
EXTERNAL flip
...
CALL flip( base)
...
------------------------------
struct point {
float x,y,z;
};
void flip_( struct point *v )
{<
float t;
t = v -> x;
v -> x = v -> y;
v -> y = t;
v -> z = -2.*(v -> z);
}
|
|
struct point {
float x,y,z;
};
extern void fflip_ (
struct point *) ;
...
struct point d;
struct point *ptx = &d;
...
fflip_ (ptx);
...
------------------------------
SUBROUTINE FFLIP( P )
TYPE POINT
SEQUENCE
REAL :: X, Y, Z
END TYPE POINT
TYPE (POINT) P
REAL :: T
T = P%X
P%X = P%Y
P%Y = T
P%Z = -2.*P%Z
...
|
|
请注意，Fortran 95 标准要求派生类型定义中有 SEQUENCE 语句，以确保编译器保持存储序列的顺序。
在所有平台上，数值序列类型的组件缺省情况下与字（4 字节）边界对齐。这与 x86 平台上 C 结构的对齐方式相匹配，但是不同于 SPARC 平台上 C 结构的对齐方式。使用 -aligncommon 选项可更改数值序列类型的对齐方式，以便与 C 结构相匹配。使用 -aligncommon=8 匹配 32 位 SPARC C 结构，使用-aligncommon=16 匹配 64 位 SPARC。
未使用 SEQUENCE 显式声明的派生类型与 SPARC 平台上的 C 结构对齐方式相同，但与 x86 平台上的对齐方式不同。这种对齐方式不随编译器选项而改变。
