Searched refs:MyNAME_length (Results 1 – 1 of 1) sorted by relevance
746 INTEGER :: ierr,MyNAME_length,MyNAME_length_RCV,i,j local750 call MPI_GET_PROCESSOR_NAME(MyNAME, MyNAME_length, ierr)751 allocate(MyName_TAB(MyNAME_length), STAT=ALLOCOK)756 DO i=1, MyNAME_length762 MyNAME_length_RCV = MyNAME_length779 IF(MyNAME_length .EQ. MyNAME_length_RCV) THEN780 DO J=1, MyNAME_length