Sources Esope | Cast3M

rgco
C RGCO      SOURCE    GF238795  15/04/23    21:16:03     8502
      subroutine RGCO
 
-INC PPARAM
-INC CCOPTIO
-INC COCOLL
      integer col_id
      col_id=0
      if(piComm.le.0) then
         write(ioimp,*) 'Impossible de recuperer les informations
     &voulues sans initialiser la communication auparavant'
         write(ioimp,*) 'Appelez CDEB avant tout appel a des fonctions MPI
     &MPI'
         call erreur(758)
         return
      endif
c Recuperation du numero de rang
      call mpirgc(col_id)
c Envoi du numero de rang (col_id+1) pour etre coherent avec Castem et
c    fortran qui font varier les indices en partant de 1
      call ecrent(col_id+1)
      end