SUBROUTINE MCRSPW ( luntrm, cmdlin, lenlin, ids ) C C Spawns MCR command in CMDLIN to MCR. It also waits for C completion of the MCR command before continuing. C CHARACTER*80 cmdlin C INTEGER*2 lenlin, ids INTEGER*2 efn INTEGER*2 iesb(8) C INTEGER*4 mcr C DATA mcr/6RMCR.../ DATA efn/1/ DATA trmunt/0/ C C Executable begins here. C CALL SPAWN( mcr, , , efn, , iesb, , cmdlin, lenlin, + trmunt, , ids ) IF ( ids .GT. 0 ) THEN CALL WAITFR ( efn, ids ) IF ( iesb(1) .NE. 1 ) THEN ids = -1 WRITE ( luntrm, 10 ) iesb(1) 10 FORMAT ( ' %SBT-F, Failed to copy files to', + ' remote node, NFT error ',I5,'.' ) ELSE ids = 1 END IF ELSE WRITE ( luntrm, 20 ) 20 FORMAT ( ' %SBT-F, Could not spawn command ', + 'to NFT.' ) END IF RETURN END