Télécharger la plaquette Cast3M


fr en

Télécharger ecresc.eso

Retour à la liste

Numérotation des lignes : 

ecresc

  1. C ECRESC    SOURCE    PV        18/10/17    11:55:00     9965           
  2. C  retourne une position libre dans la pile esclave
  3. C
  4.       SUBROUTINE ECRESC(IPOS)
  5.       IMPLICIT INTEGER(I-N)
  6. -INC CCASSIS
  7.       ith=0
  8.       ith=oothrd
  9.       mescla=imescl(ith)
  10.       do 10 i=1,100
  11.        if (esoplu(i)) goto 10
  12.        goto 11
  13.   10  continue
  14.       i=101
  15.   11  continue
  16.       i=i-1
  17.       if (i.eq.0) then
  18. *  faire un peu de place
  19.        do 20 i=90,1,-1
  20.          esoplu(i+10)=esoplu(i)
  21.          esopty(i+10)=esopty(i)
  22.          esopva(i+10)=esopva(i)
  23.          esopch(i+10)=esopch(i)
  24.          esoplo(i+10)=esoplo(i)
  25.          esopre(i+10)=esopre(i)
  26.   20   continue
  27.        do 30 i=1,10
  28.          esoplu(i)=.true.
  29.   30   continue
  30.        i=10
  31.       endif
  32.       ipos=i
  33.       end
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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