blob: ee69d391fc4d3749782f911bbdabc9a8a5fc83f8 (
plain)
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
|
program main
use iso_c_binding
use clp
use clp_constants
implicit none
integer :: ret
type(c_ptr) :: lp
real(8), dimension(0:4) :: obj
real(8), dimension(0:4) :: row1
lp = Clp_newModel()
call Clp_resize(lp,4,4)
! row1(0) = 0; row1(1) = 1; row1(2) = 1; row1(3) = 1; ret = add_constraint(lp,row1,LE,100.0_8);
! write (*,*) Clp_VersionMajor()
! write (*,*) Clp_VersionMinor()
! write (*,*) Clp_VersionRelease()
write (*,*) Clp_numberRows(lp)
write (*,*) Clp_numberColumns(lp)
! call Clp_printModel(lp,"name"//c_null_char) ! seems to be broken when model is not defined
call Clp_deleteModel(lp)
end
|
