SUBROUTINE FATAL( RNAME , ERRTXT ) C*********************************************************************** C C Description : Actuates an fatal error giving reason and optional C errornumber and a whole traceback list C C Arguments : RNAME = BYTE array containing a the routine name C (not used,for RT11 compatability only) C ERRTXT = BYTE array containing reason for fatal error C C Author : T.Pijl C AKZO PHARMA, Oss Holland C dep. SDA C C Version : V1.0 Date : 13-dec-82 C C Module name : FATAL.FTN C C Package : RSX-LIBRARY C C Compilation/ C taskbuilding : FOR/F4P/TR:NONE FATAL C C Updates : name version C C description : C C************************************************************************ BYTE PROGNM(6,10),RNAME(1),ERRTXT(81) DIMENSION ISTMT(10) IERR=0 CALL ERRMSG(ERRTXT,IERR) ! 1st line of fatal error message CALL TRACE(PROGNM,ISTMT) !get traceback list I=2 ! skip FATAL entry in list 10 IF(PROGNM(1,I).EQ.0) GOTO 20 NR=ISTMT(I) !for each entry print message IF(NR.LT.0) TYPE 100,(PROGNM(J,I),J=1,6),-NR IF(NR.GT.0) TYPE 110,(PROGNM(J,I),J=1,6),NR IF(NR.EQ.0) TYPE 120,(PROGNM(J,I),J=1,6) I=I+1 GOTO 10 20 CALL EXIT 100 FORMAT(' from routine ',6A1,' around statementnr',I4) 110 FORMAT(' from routine ',6A1,' at statementnr',I4) 120 FORMAT(' from routine ',6A1) END