Sources Esope | Cast3M

cpaarg
C CPAARG    SOURCE    GF238795  15/04/23    21:15:24     8502
      subroutine cpaarg(argume,bu,bufPos)
C=======================================================================
C  Sous-programme cpaarg (COLlaborateur PAQuettage ARgument)
C  Enregistre la liste d'argument dans le buffer d'envoi
C  Il faut de s'assurer au prealabe que la taille du buffer est
C  suffisante
C=======================================================================
      integer bufPos
      integer lonBuf
      integer nArg
      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 CAPARG'
 
      nArg=argume.adress(/1)
      lonBuf=bu.ffer(/2)
C      write(ioimp,*)'Taille du buffer',lonBuf
C     Paquettage de la taille de la liste des arguments
         call mpipaI(nArg,1,bu,bufPos)
C      write(ioimp,*) 'Enregistrement des noms',nArg
      call mpipaC(argume.nom,nArg*8,bu,bufPos)
C      write(ioimp,*) 'Enregistrement des positions,'
      call mpipaI(argume.adress,nArg,bu,bufPos)
C      write(ioimp,*) 'Sortie de CAPARG'
      end