C ******************************************************* C * * C * THIS SOFTWARE WAS DEVELOPED WITH SUPPORT * C * FROM THE NATIONAL INSTITUTES OF HEALTH: * C * NIH CA06927 * C * NIH CA22780 * C * * C * DIRECT INQUIRIES TO: * C * COMPUTER CENTER * C * THE INSTITUTE FOR CANCER RESEARCH * C * 7701 BURHOLME AVENUE * C * PHILADELPHIA, PENNSYLVANIA 19111 * C * * C * NO WARRANTY OR REPRESENTATION, EXPRESS OR * C * IMPLIED, IS MADE WITH RESPECT TO THE * C * CORRECTNESS, COMPLETENESS, OR USEFULNESS * C * OF THIS SOFTWARE, NOR THAT USE OF THIS * C * SOFTWARE MIGHT NOT INFRINGE PRIVATELY * C * OWNED RIGHTS. * C * * C * NO LIABILITY IS ASSUMED WITH RESPECT TO * C * THE USE OF, OR FOR DAMAGES RESULTING FROM * C * THE USE OF THIS SOFTWARE * C * * C ******************************************************* C * * C * THIS SOFTWARE WAS DESIGNED FOR USE ON A * C * PDP-11/70 OPERATING UNDER IAS V3.0 USING * C * THE FORTRAN-IV PLUS COMPILER. * C * * C ******************************************************* SUBROUTINE SPWNNL(TASK,IOP,COMLIN,COMLEN,DSW) C ROUTINE TO SPAWN THE SPECIFIED TASK ON DEVICE NL0 AND PASS IT A C COMMAND LINE C C INPUTS C TASK - TASK TO SPAWN C IOP - 4 WORD OPTIONAL PARAMTERES AS PER SPAWN C COMLIN - COMMAND LINE TO PASS TO SPAWNED TASK C COMLEN - LENGTH OF THE COMMAND LINE C C OUTPUTS C DSW - DIRECTIVE STATUS C RETURNS AFTER THE SPAWNED TASK HAS EXITED C IMPLICIT INTEGER (A - Z) PARAMETER RECLEN = 1 REAL SPWTAS BYTE COMLIN(1),SENCOM(80) DIMENSION TASK(2),IOP(4),SENMES(46),RECMES(RECLEN+2) EQUIVALENCE (SENMES(8),SENCOM) DATA SPWTAS/6R.RUNNL/ C C SET UP MESSAGE TO SEND TO NL TASK SPAWNER SENMES(1) = TASK(1) SENMES(2) = TASK(2) DO 10 I = 1,4 SENMES(2+I) = IOP(I) 10 CONTINUE SENMES(7) = COMLEN DO 15 I = 1,COMLEN SENCOM(I) = COMLIN(I) 15 CONTINUE SENLEN = (COMLEN+1)/2+7 C C SEND THE MESSAGE TO THE NL TASK SPAWNER CALL VSNDRR(SPWTAS,,SENMES,,SENLEN,,,DSW) IF(DSW.LT.0)GOTO 100 C C RECEIVE REPLY MESSAGE FROM NL TASK SPAWNER 20 CONTINUE CALL VRECST(SPWTAS,RECMES,RECLEN,,,DSW) IF(DSW-1)100,100,20 C C RETURN DIRECTIVE STATUS 100 CONTINUE RETURN END