Télécharger la plaquette Cast3M


fr en

Télécharger cupplo.eso

Retour à la liste

Numérotation des lignes : 

cupplo

  1. C CUPPLO    SOURCE    GF238795  15/04/23    21:15:46     8502
  2.       subroutine cupplo(bu,bufPos,pilLoc)
  3. C=======================================================================
  4. C  Sous-programme cupplo (COLlaborateur UnPAQuettage Pile LOcale)
  5. C  Lecture des listes de reels et mots
  6. C  dans le buffer  bu à la position  bufPos
  7. C=======================================================================
  8.       integer bufPos
  9.       integer lonBuf
  10.       integer nArg
  11.       integer nbRee,nbCha,nbMot
  12.       segment BUFFER
  13.          character*1 ffer(lonBuf)
  14.       endsegment
  15.       segment PILOC
  16.              real*8 reel(nbRee)
  17.              character*(nbCha)  chara
  18.              integer motdeb(nbMot+1)
  19.       endsegment
  20.       pointeur pilLoc.PILOC
  21.       pointeur bu.BUFFER
  22. C      write(ioimp,*) 'Entree dans CUPPLO'
  23.  
  24.       nbRee=0
  25.       nbCha=0
  26.       nbMot=0
  27.       lonBuf=bu.ffer(/2)
  28.       call mpiupI(nbRee,1,bu,bufPos)
  29.       call mpiupI(nbCha,1,bu,bufPos)
  30.       call mpiupI(nbMot,1,bu,bufPos)
  31.       segadj pilLoc
  32.       if(nbRee.gt.0) then
  33.          call mpiupR(pilLoc.reel,nbRee,bu,bufPos)
  34.       endif
  35.       if(nbCha.gt.0) then
  36.          call mpiupc(pilLoc.chara,nbCha,bu,bufPos)
  37.       endif
  38.       if(nbMot.gt.0) then
  39.          call mpiupI(pilLoc.motDeb,nbMot+1,bu,bufPos)
  40.       endif
  41. C      write(ioimp,*) 'Sortie de CUPPLO'
  42.       end
  43.  
  44.  
  45.  

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