Sources Esope | Cast3M

cuparg
C CUPARG    SOURCE    GF238795  15/04/23    21:15:38     8502
      subroutine cuparg(bu,bufPos,argume)
C=======================================================================
C  Sous-programme cuparg (COLlaborateur UnPAQuettage ARgument)
C  Initialisation et lecture de la liste des objets a renvoyer et leur
C  type dans le buffer  bu à la position  bufPos
C=======================================================================
      integer bufPos
      integer lonBuf
      integer nArg
C
-INC PPARAM
-INC CCOPTIO
      segment BUFFER
         character*1 ffer(lonBuf)
      endsegment
      segment LISARG
         character*8 nom(nArg)
         integer     adress(nArg)
      endsegment
      pointeur bu.BUFFER
      pointeur argume.LISARG
C      write(ioimp,*) 'Entree dans CUPARG'
 
      nArg=0
      lonBuf=bu.ffer(/2)
C      write(ioimp,*)'Taille du buffer',lonBuf
C     Paquettage de la taille de la liste des arguments
      call mpiupI(nArg,1,bu,bufPos)
C      write(ioimp,*)'Nombre d arguments lus',nArg
      segini argume
      call mpiupC(argume.nom,nArg*8,bu,bufPos)
C      write(ioimp,*)'Liste des noms lus',(argume.nom(i),i=1,nArg)
      call mpiupI(argume.adress,nArg,bu,bufPos)
C      write(ioimp,*)'Liste des positions lues',(argume.adress(i),i=1,nArg)
C      write(ioimp,*) 'Sortie de CUPARG'
      end