c remove all waiting request and stop all remote process subroutine rshstoph include "/usr4/vgr/include/rshcom.i" include "/usr4/vgr/include/rshio.i" include "/usr4/vgr/include/rshcmd.i" integer i, kk logical ll c stop all remote processes call rshstop(0,kk) c loop through the waiting que do 900 i=1,rshfnx c if no process skip if (rshstw( i) .eq. 0 ) go to 900 c there is a waiting request rshcomd ='rm ' // rshfilw(i) // '!' c remove waiting file call syscmd( rshcomd, jj) 900 continue return end