-
Notifications
You must be signed in to change notification settings - Fork 21
/
sptodp
40 lines (38 loc) · 2.13 KB
/
sptodp
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
29
30
31
32
33
34
35
36
37
38
39
40
define([lsode],[ifelse([$*],,[dlsode],[dlsode([$*])])])
define([b22in],[ifelse([$*],,[db22in],[db22in([$*])])])
define([bs2dr],[ifelse([$*],,[dbs2dr],[dbs2dr([$*])])])
define([bs2vl],[ifelse([$*],,[dbs2vl],[dbs2vl([$*])])])
define([bs2in],[ifelse([$*],,[dbs2in],[dbs2in([$*])])])
define([bs3in],[ifelse([$*],,[dbs3in],[dbs3in([$*])])])
define([bs3vl],[ifelse([$*],,[dbs3vl],[dbs3vl([$*])])])
define([bsnak],[ifelse([$*],,[dbsnak],[dbsnak([$*])])])
define([isamax],[ifelse([$*],,[idamax_u],[idamax_u([$*])])])
define([sasum],[ifelse([$*],,[dasum_u],[dasum_u([$*])])])
define([saxpy],[ifelse([$*],,[daxpy_u],[daxpy_u([$*])])])
define([scopy],[ifelse([$*],,[dcopy_u],[dcopy_u([$*])])])
define([sdot],[ifelse([$*],,[ddot_u],[ddot_u([$*])])])
define([sgbco],[ifelse([$*],,[dgbco_u],[dgbco_u([$*])])])
define([sgbfa],[ifelse([$*],,[dgbfa_u],[dgbfa_u([$*])])])
define([sgbsl],[ifelse([$*],,[dgbsl_u],[dgbsl_u([$*])])])
define([sgefa],[ifelse([$*],,[dgefa_u],[dgefa_u([$*])])])
define([sgesl],[ifelse([$*],,[dgesl_u],[dgesl_u([$*])])])
define([snrm2],[ifelse([$*],,[dnrm2_u],[dnrm2_u([$*])])])
define([sscal],[ifelse([$*],,[dscal_u],[dscal_u([$*])])])
define([ssum],[ifelse([$*],,[dsum],[dsum([$*])])])
define([sswap],[ifelse([$*],,[dswap_u],[dswap_u([$*])])])
define([ISAMAX],[ifelse([$*],,[idamax_u],[idamax_u([$*])])])
define([SASUM],[ifelse([$*],,[dasum_u],[dasum_u([$*])])])
define([SAXPY],[ifelse([$*],,[daxpy_u],[daxpy_u([$*])])])
define([SCOPY],[ifelse([$*],,[dcopy_u],[dcopy_u([$*])])])
define([SDOT],[ifelse([$*],,[ddot_u],[ddot_u([$*])])])
define([SSCAL],[ifelse([$*],,[dscal_u],[dscal_u([$*])])])
define([SSWAP],[ifelse([$*],,[dswap_u],[dswap_u([$*])])])
define([SNRM2],[ifelse([$*],,[dnrm2_u],[dnrm2_u([$*])])])
define([SGBFA],[ifelse([$*],,[dgbfa_u],[dgbfa_u([$*])])])
define([SGBSL],[ifelse([$*],,[dgbsl_u],[dgbsl_u([$*])])])
define([SGEFA],[ifelse([$*],,[dgefa_u],[dgefa_u([$*])])])
define([SGESL],[ifelse([$*],,[dgesl_u],[dgesl_u([$*])])])
define([EWSET],[ifelse([$*],,[dewset_u],[dewset_u([$*])])])
define([XERRWV],[ifelse([$*],,[dxerrwv_u],[dxerrwv_u([$*])])])
define([dfloat],[ifelse([$*],,[real],[real([$*])])])
define([float],[ifelse([$*],,[real],[real([$*])])])