Télécharger la plaquette Cast3M


fr en

Télécharger ooothr.eso

Retour à la liste

Numérotation des lignes : 

ooothr

  1. C OOOTHR    SOURCE    PV090527  26/04/24    08:23:24     12524          
  2.       subroutine ooothr(nthr,start)
  3. %INC IOOWCOM
  4. %INC IOOSAF
  5.       SEGMENT SS(0)
  6.       save nthrs
  7.       external start
  8.  
  9.       if (nthr .lt. 1 .or. nthr .gt. 127) then
  10.          call oooerr(nthr,2,' nombre de threads incorrect ')
  11.          stop
  12.       endif
  13.       nthrs=nthr
  14.  
  15. C     creation lock global
  16.       iret=0
  17.       call ooomut(iret)
  18.       if (iret.eq.0) return
  19.       thread=.true.
  20.  
  21. C     enregistrer dans oooddl le nombre de thread
  22.       call ooondl(nthr)
  23.       do 10 i=1,nthr
  24. C        creation thread
  25.          call ooothc(start)
  26.   10  continue
  27.       return
  28.  
  29.       entry oooths
  30.       do 20 i=1,nthrs
  31.          call oootha(i)
  32.   20  continue
  33.  
  34.       entry ooothi(numero)
  35.       oothrd=numero
  36.       oow(1)=0
  37.       lnsf(oothrd)=1
  38.       return
  39.  
  40.       entry ooonsf(isaf)
  41.       lnsf(oothrd)=isaf
  42. C      return
  43.       end
  44.  
  45.  

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