complex w

double complex z

external CCmplx

call CCmplx(w,z)

...

------------------------------

struct cpx {float r, i;};

struct dpx {double r,i;};

void ccmplx_(

struct cpx *w,

struct dpx *z)

{

w -> r = 32.;

w -> i = .007;

z -> r = 66.67;

z -> i = 94.1;

}

struct cpx {float r, i;};

struct cpx d1;

struct cpx *w = &d1;

struct dpx {double r, i;};

struct dpx d2;

struct dpx *z = &d2;

fcmplx_( w, z );

...

---------------

subroutine FCmplx( w, z )

complex w

double complex z

w = (32., .007)

z = (66.67, 94.1)

return

end