Télécharger la plaquette Cast3M


fr en

Télécharger graco5i.eso

Retour à la liste

Numérotation des lignes : 

graco5i

  1. C GRACO5I   SOURCE    PV090527  23/12/20    21:15:07     11813          
  2.       subroutine graco5i(ithr)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC SMMATRI
  6. -INC CCHOLE
  7. *tmp segment immt(nblig)
  8. *     write (6,*) ' ith dans chole3i ',ith
  9.       do  100 jbib=il2,il1,-nbthr
  10.       jbi=jbib-ithr+1
  11.       if (jbi.gt.il2) goto 100
  12.       if (jbi.lt.il1) goto 100
  13. *tmp  if (immt(jbi).gt.ider) goto 100
  14.       LIGN=ILIGN(JBI)
  15.       if (lign.le.0) return
  16.       IM=immm(1)
  17.       DO JH=2,IMMM(/1)
  18.       IM=MIN(IM,IMMM(JH))
  19.       ENDDO
  20.       do 10 ip=max(im,iper),ider
  21.       lig1=ilign(ip)
  22.       incomp=1
  23.       if (jbi-ip.lt.1) incomp=0
  24.       nc=0
  25.       CALL graco5(IPREL,IDERL,IPPVV(1),lig1.iprel,lig1.iderl,IVPO(1),
  26.      > LIG1.IPPVV(1),VAL(1),LIG1.VAL(1),LIG1.IVPO(1),
  27.      > imasq(1),ittr(1),incomp,nc)
  28.   10  continue
  29.  100  continue
  30.       end
  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.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales