Changeset 17 for XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90
- Timestamp:
- 02/16/09 14:24:05 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90
r8 r17 57 57 ! PRINT *,"Pos in Buffer",Pending_request(Request_pos)%Pos,"pack_pos",pack_pos 58 58 CALL pack(request_id) 59 60 59 END SUBROUTINE create_request 61 60 … … 97 96 IF ( nb_request_pending==1 .AND. (buffer_free < MPI_buffer_size * 0.4) ) THEN 98 97 ok_out=.FALSE. 99 CALL Wait_us(1 0)98 CALL Wait_us(1) 100 99 IF (.NOT. is_buffer_full) THEN 101 100 CALL VTb(VTbuffer_full) … … 119 118 server_rank,tag_iocomm,iocomm,Pending_request(Request_pos)%request,ierr ) 120 119 121 ! PRINT *,"Requete envoy ée !!!!"120 ! PRINT *,"Requete envoyï¿œe !!!!" 122 121 ! PRINT *,"Message : ",MPI_Buffer(Pending_request(Request_pos)%Pos:Pending_request(Request_pos)%Pos+message_size-1) 123 122 IF ( Pack_Pos > MPI_buffer_size*0.6 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.