Ignore:
Timestamp:
02/16/09 14:24:05 (15 years ago)
Author:
ymipsl
Message:

Correction de bugs pour portage sur Mercure

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_server.f90

    r8 r17  
    178178      IF (Buffers(n)%request_free==0) THEN 
    179179        PRINT *,'Plus de requete disponible !!!!' 
    180         CALL MPI_ABORT(MPI_COMM_WORLD,ierr) 
     180        CALL MPI_ABORT(MPI_COMM_WORLD,-1,ierr) 
    181181      ENDIF 
    182182       
    … …  
    197197      IF (total_size>message_size) THEN 
    198198        PRINT *,"Probleme : la taille du message ne coincide pas avec la taille de l'enveloppe" 
    199         CALL MPI_ABORT(MPI_COMM_WORLD,ierr) 
     199        CALL MPI_ABORT(MPI_COMM_WORLD,-1,ierr) 
    200200      ENDIF 
    201201       
    … …  
    255255      ENDIF 
    256256    ELSE 
    257       CALL Wait_us(50) 
     257      CALL Wait_us(5) 
    258258    ENDIF      
    259259  END SUBROUTINE process_request   
Note: See TracChangeset for help on using the changeset viewer.