1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
extern int v3p_netlib_sggsvd_(
char *jobu,
char *jobv,
char *jobq,
v3p_netlib_integer *m,
v3p_netlib_integer *n,
v3p_netlib_integer *p,
v3p_netlib_integer *k,
v3p_netlib_integer *l,
v3p_netlib_real *a,
v3p_netlib_integer *lda,
v3p_netlib_real *b,
v3p_netlib_integer *ldb,
v3p_netlib_real *alpha,
v3p_netlib_real *beta,
v3p_netlib_real *u,
v3p_netlib_integer *ldu,
v3p_netlib_real *v,
v3p_netlib_integer *ldv,
v3p_netlib_real *q,
v3p_netlib_integer *ldq,
v3p_netlib_real *work,
v3p_netlib_integer *iwork,
v3p_netlib_integer *info,
v3p_netlib_ftnlen jobu_len,
v3p_netlib_ftnlen jobv_len,
v3p_netlib_ftnlen jobq_len
);
|
