Esope source files

   1 : C NOEPR2I   SOURCE    PV        13/11/21    21:15:21     7868           
   2 :       subroutine noepr2i(ith)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       common/cnumop/fcout2c(64),fcoutc(64),iadjc,jadjcc,nrelongc,
   6 :      >   noelonc,isensc(64),dimlonc(64),masqc,nodesc,iposc,nbtotc,
   7 :      >   lfrontc(64),londimc,lpivc(64),ipointc,noel2c,
   8 :      >   boolc(64),ldim2c(64),nbthrc,pivotc(50,64),npointc(64),
   9 :      >   npoint2c(64),imaxc,lfronc(64)
  10 :       integer dimlon,dimlonc,pivotc,boolc,pivot(50)
  11 :       segment iadj(0)
  12 :       segment jadjc(0)
  13 :       segment nrelong(0)
  14 :       segment noelon(0)
  15 :       segment londim(0)
  16 :       segment masque
  17 :          logical masq(nodes)
  18 :       endsegment
  19 :       segment ipos(0)
  20 :       segment noel2(0)
  21 : **    write (6,*) ' noepr2i ith ',ith
  22 :       iadj=iadjc
  23 :       jadjc=jadjcc
  24 :       nrelong=nrelongc
  25 :       noelon=noelonc
  26 :       noel2=noel2c
  27 :       isens=isensc(ith)
  28 :       dimlon=dimlonc(ith)
  29 :       masque=masqc
  30 :       nodes=nodesc
  31 :       ipos=iposc
  32 :       nbtot=nbtotc
  33 :       londim=londimc
  34 :       ipoint=ipointc
  35 :       nbthr=nbthrc
  36 :       lfron=lfronc(ith)
  36 :       call noepr2e(iadj(1),jadjc(1),pivotc(1,ith),
  37 :      >  nrelong(1+(ith-1)*nodes),
  38 :      >  noelon(1+(ith-1)*nodes),isensc(ith),dimlonc(ith),masq(1),
  39 :      >  nodes,ipos(1),nbtot,lfrontc(ith),lfronc(ith),
  40 :      >  londim(1+(ith-1)*nodes),fcout2c(ith),lpivc(ith),ipoint,
  41 :      >  noel2(1),boolc(ith),fcoutc(ith),ldim2c(ith),
  42 :      >  ith,nbthr,npointc(ith),npoint2c(ith),imaxc)
  43 :        oov(1)=0
  44 :       end
  45 : 
  46 : 
  47 : 
  48 : 
  49 : 
  50 : 
  51 : 
  52 :  
  53 :  
  54 :  
  55 :  
  56 :