Télécharger la plaquette Cast3M


fr en

Télécharger hselei.eso

Retour à la liste

Numérotation des lignes : 

hselei

  1. C HSELEI    SOURCE    KICH      22/11/21    21:15:03     11505          
  2.       subroutine hselei(ith)
  3. C
  4. C
  5.       implicit integer(i-n)
  6.       implicit real*8(a-h,o-z)
  7. C
  8. -INC CCASSIS
  9.  
  10.       common/CCONNE/iwrk3,ipmodl1,xmultl,icle1,ihgsel
  11.       common/CCONNE/jconl,ihg1,ihg2,ihg,nbthr,ixlong1
  12.       COMMON/CHSELE/imfopa,ishg,ihug,imcord,ihgt
  13.  
  14.       segment hgsele
  15.          real*8 xmult,ymult,zmult
  16.          real*8 hmaxt,xlong2,tmax,tmin,xlong2m
  17.          integer nels,nbpb,ipass
  18.          integer nbzt,indt,khug
  19.       endsegment
  20.  
  21.       hgsele = ihgsel
  22.       nbthr1 = nbthr
  23.       if (ith.gt.nbthr1) goto 9999
  24.       ires = mod(nels,nbthr1)
  25.       if (ires.eq.0) then
  26.          ilon1 = nels / nbthr1
  27.          ideb = (ith - 1) * ilon1 + 1
  28.       else
  29.          if (ith.le.ires) then
  30.             ilon1 = nels / nbthr1 + 1
  31.             ideb = (ith - 1) * ilon1 + 1
  32.          else
  33.             ilon1 = nels / nbthr1
  34.             ideb = (ires * (ilon1 + 1)) + (ith - ires - 1) * ilon1 + 1
  35.          endif
  36.       endif
  37.       ifin = ideb + ilon1 - 1
  38.       if (ifin.ge.ideb) then
  39.          call hsele1(ith,ideb,ifin,imfopa,ihg1,ihg2,iwrk3,ishg
  40.      +        ,ihug,ihgsel,ihg,ipmodl1,icle1,imcord,ihgt,ixlong1) 
  41.       endif
  42.  9999 continue
  43.       return
  44.       end
  45.  
  46.  
  47.  

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