Télécharger la plaquette Cast3M


fr en

Télécharger cupmin.eso

Retour à la liste

Numérotation des lignes : 

cupmin

  1. C CUPMIN    SOURCE    PV        17/12/05    21:15:49     9646           
  2.       subroutine cupmin(bu,bufPos,pMinte)
  3. C=======================================================================
  4. C     COLlaborateur UnPAQuettage MINte
  5. C     Depaquiettage d un segment d integration MINTE
  6. C=======================================================================
  7.       integer nbno,nbpgau
  8.       integer bufPos
  9.       integer lonBuf
  10. -INC SMINTE
  11. C-INC TMCOLAC
  12.       segment BUFFER
  13.          character ffer(lonBuf)
  14.       endsegment
  15.       pointeur pMinte.MINTE
  16.       pointeur bu.BUFFER
  17.  
  18. C      write(ioimp,*) 'Entre dans CUPMIN'
  19. C      write(ioimp,*) 'Position du buffer',bufPos
  20.       lonBuf=bu.ffer(/2)
  21.       call mpiupI(nbno,1,bu,bufPos)
  22.       call mpiupI(nbpgau,1,bu,bufPos)
  23. C         write(ioimp,*) 'nbno, nbpgau',nbno,nbpgau
  24.  
  25.       if (pMinte.ne.0) then
  26.          segact pMinte*mod
  27.          segadj pMinte
  28.       else
  29.          segini pMinte
  30.       endif
  31.  
  32.       if(nbno.ne.0.and.nbpgau.ne.0)then
  33.          call mpiupR( pMinte.poigau,nbpgau,bu,bufPos)
  34.          call mpiupR( pMinte.qsigau,nbpgau,bu,bufPos)
  35.          call mpiupR( pMinte.etagau,nbpgau,bu,bufPos)
  36.          call mpiupR( pMinte.dzegau,nbpgau,bu,bufPos)
  37.          call mpiupR( pMinte.shptot,6*nbno*nbpgau,bu,bufPos)
  38.       else
  39. C         write(ioimp,*) 'segment vide'
  40.       endif
  41.       segdes pMinte
  42. C      write(ioimp,*) 'Position du buffer',bufPos
  43. C      write(ioimp,*) 'Sortie de CUPMIN'
  44.       end
  45.  
  46.  
  47.  
  48.  
  49.  

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