FTN4 SUBROUTINE ETMSP(IPAR1,IPAR2),92903-16100 REV.1805 771212 C C C NAME: ETMSP C SOURCE: &ETMSP 92903-18113 C BINARY: %ETMSP ----NONE--- PART OF %TMSLB 92903-16100 C C PRMG: FRANCOIS GAULLIER HPG C C C ************************************************************** C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * C * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * C * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * C ************************************************************** C C C ********************************************* C * CALL ETMSP(IPAR1,IPAR2) * C * * C * IPAR1: BUFFER CONTAINING NAME OF THE * C * APPLICATION TO ABORT. * C * IPAR2: TYPE OF ABORT: SOFT OR HARD. * C * - 98 OR <0 --> SOFT STOP, * C * TIME=5MN IF 98 OR -IPAR2 IF <0 * C * - ANY OTHER VALUE --> HARD STOP * C * * C * THIS CALL WILL STOP THE TMS APPLICATION * C * IF RUNNING. * C * IF NOT RUNNING, NOTHING HAPPENS. * C ********************************************* C C DIMENSION NAME(3) LOGICAL DORMT DATA NAME/2HL ,2H ,2H / C CALL MOVCA(IPAR1,1,NAME,2,4) IF(IDGET(NAME).EQ.0) RETURN IF(IDGET(IPAR1).EQ.0) RETURN J=98 K=5 IF(IPAR2.EQ.98) GOTO 5 K=-IPAR2 IF(K .GT. 0) GOTO 5 J=99 5 CALL EXEC(23,NAME,J,K,0,0,-1) 10 IF( DORMT(IPAR1) ) RETURN CALL EXEC(12,0,1,0,-50) GOTO 10 END END$