← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to routines/metanet/diam.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/metanet/diam.f
 
1
      subroutine diam(fe,che,head,lngt,n,iropt,ii,idmax,p,q,d)
 
2
      integer fe,che,head,lngt,p,q,d,r
 
3
      dimension fe(n),d(n),p(n),q(*)
 
4
      dimension head(*),lngt(*),che(*)
 
5
      idmax=0
 
6
      do 99 ibou=1,n
 
7
         r=ibou
 
8
         call l2que(r,fe,che,head,lngt,n,d,p,q)
 
9
         id1max=0
 
10
         do 98 imeu=1,n
 
11
            id1max=max(id1max,d(imeu))
 
12
 98      continue
 
13
         if(id1max.le.idmax) goto 99
 
14
         idmax=id1max
 
15
         iropt=r
 
16
 99   continue
 
17
      r=iropt
 
18
      call l2que(r,fe,che,head,lngt,n,d,p,q)
 
19
      ii=1
 
20
      do 97 imeu=1,n
 
21
         if(d(imeu).eq.idmax) ii=imeu
 
22
 97   continue
 
23
      end