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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
program fortrantest
use, intrinsic :: iso_c_binding
use highs_fortran_api
implicit none
integer ( c_int ), parameter :: n = 2
integer ( c_int ), parameter :: m = 2
integer ( c_int ), parameter :: nz = 4
integer ( c_int ), parameter :: aformat_colwise = 1
integer ( c_int ), parameter :: sense = 1
real ( c_double ), parameter :: offset = 0
real ( c_double ) cc(n)
real ( c_double ) cl(n)
real ( c_double ) cu(n)
real ( c_double ) rl(m)
real ( c_double ) ru(m)
integer ( c_int ) as(n+1)
integer ( c_int ) ai(nz)
real ( c_double ) av(nz)
real ( c_double ) cv(n)
real ( c_double ) cd(n)
real ( c_double ) rv(m)
real ( c_double ) rd(m)
integer ( c_int ) cbs(n)
integer ( c_int ) rbs(m)
integer ms
integer ( c_int ) status
cc(1) = 1
cc(2) = -2
cl(1) = 0
cl(2) = 0
cu(1) = 1000
cu(2) = 1000
rl(1) = 0.0
rl(2) = 0.0
ru(1) = 10.0
ru(2) = 10.0
as(1) = 0
as(2) = 2
as(3) = 4
ai(1) = 0
ai(2) = 1
ai(3) = 0
ai(4) = 1
av(1) = 1
av(2) = -1
av(3) = 3
av(4) = 0.2
status = Highs_lpCall( n, m, nz,&
aformat_colwise, sense, offset,&
cc, cl, cu, rl, ru,&
as, ai, av,&
cv, cd, rv, rd, &
cbs, rbs, ms )
write (*, *) status
write (*, *) ms
end program fortrantest
|
