Subversion Repositories wimsdev

Rev

Rev 8560 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8560 Rev 12676
Line 22... Line 22...
22 
slib_cnt=0
 22 
slib_cnt=0
23 
slib_liste=
 23 
slib_liste=
24 
slib_matrix=
 24 
slib_matrix=
25 
slib_out=
 25 
slib_out=
26 
!for slib_i=1 to $slib_n
 26 
!for slib_i=1 to $slib_n
27 
    !if $slib_i notitemof $slib_liste
 27 
  !if $slib_i notitemof $slib_liste
28 
        !readproc slib/graph/connexcomponent [$slib_G],$slib_i
 28 
    !readproc slib/graph/connexcomponent [$slib_G],$slib_i
29 
        slib_liste=!append item $slib_out to $slib_liste
 29 
    slib_liste=!append item $slib_out to $slib_liste
30 
        !advance slib_cnt
 30 
    !advance slib_cnt
31 
        slib_matrix=!append line $slib_out to $slib_matrix
 31 
    slib_matrix=!append line $slib_out to $slib_matrix
32 
        slib_out=
 32 
    slib_out=
33 
    !endif
 33 
  !endif
34 
!next slib_i
 34 
!next slib_i
35 
 
 35 
 
36 
slib_matrix=!translate internal $\
 36 
slib_matrix=!translate internal $\
37 
$ to ; in $slib_matrix
 37 
$ to ; in $slib_matrix
38 
 
 38 
 
39 
slib_out= $slib_cnt,[$slib_matrix]
 39 
slib_out= $slib_cnt,[$slib_matrix]
40 
 
 - 
 
41 
 
 -