trace_back.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"
#include "warn_c.inc"

Go to the source code of this file.

Macros
#define	NIVEAU_MAX   50
#define	NSUB_MAX   127

Functions/Subroutines
subroutine	trace_in1 (my_char, ilen)
subroutine	trace_in (nsub, itab, atab)
subroutine	trace_out (nsub)
subroutine	trace_out1 ()
integer function	trace_pile (val)
subroutine	trace_cf (signal, iw)
subroutine	trace_print (line1, ns_signal, iw)

Macro Definition Documentation

NIVEAU_MAX

#define NIVEAU_MAX   50

NSUB_MAX

#define NSUB_MAX   127

Function/Subroutine Documentation

trace_cf()

subroutine trace_cf	(	integer	signal,
		integer	iw )

Definition at line 439 of file trace_back.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE names_and_titles_mod , ONLY : ncharline
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER SIGNAL,IW
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      CHARACTER(LEN=NCHARLINE):: LINE1
      INTEGER I
C-----------------------------------------------
      DO i=1,ncharline
        line1(i:i)=' '
      END DO
      CALL trace_print(line1,signal,iw)
      RETURN

trace_in()

subroutine trace_in	(	integer	nsub,
		integer, dimension(*)	itab,
			atab )

Definition at line 97 of file trace_back.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE names_and_titles_mod , ONLY : ncharline
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "warn_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NSUB,ITAB(*)
      my_real atab(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      CHARACTER(LEN=NCHARLINE):: LINE1
      CHARACTER(LEN=NCHARLINE):: LINES( NSUB_MAX )
      INTEGER TRACE_PILE,LL( NSUB_MAX ) ,TYP( NSUB_MAX )
      EXTERNAL trace_pile
      INTEGER NIVEAU_PILE
      SAVE lines,ll,typ
      DATA lines /
     .'RADIOSS STARTER','GLOBAL UNITS',
     .'HEADER','BEGIN','TRANSLATOR',
     .'ALTDOCTAG','CARD COUNTER',
     .'DECK READING','MODIF DECK',
     1'BEGINNING','UNITS','FUNCTIONS','TABLES',
     .'MATERIALS','NODES','SKEWS',
     .'PROPERTIES','PARTS','MULTIDOMAINS','ELEMENTS',
     .'ADAPTIVE MESHING','XFEM',
     2'CONNECTIVITY',
     .'SPH GROUPS',
     .'SUBMODELS',
     .'SUBSETS','BOXES',
     .'GROUPS',
     .'TRANSFORMATIONS',
     .'MERGING CNODES',
     .'REINIT CONNECTIVITY',
     .'RANDOM NOISE',
     .'BCS','ADAPTIVE MESHING BCS',
     3'SOLIDS SORT',
     .'DAMPING',
     .'MPCS 1',
     .'DYNAMIC STORAGE',
     .'GJOINTS',
     .'ALE NEIGHBOURS',
     .'XFEM CRACK',
     .'CFD BOUNDARY ELEMENTS',
     .'MULTI-PURPOSE ELEMENTS',
     .'SPH',
     4'SPH SYM',
     .'SPH I/O',
     .'FLUID NODAL MASSES',
     .'CONCENTRED LOADS',
     .'PRESSURE LOADS',
     .'IMPOSED VELOCITIES',
     .'INITIAL VELOCITIES',
     .'INITIAL TEMPERATURES',
     .'DETONATION POINTS',
     .'LASER IMPACTS',
     5'EXTERNAL SKIN FOR ANIMATION',
     .'ACCELEROMETERS',
     .'SENSORS',
     .'RIGID LINKS',
     .'USER WINDOW',
     .'RIGID BODIES ON','RBE2 ON',
     .'FLEXIBLE BODIES ON','XFEM ELEMENTS ON/OFF',
     .'CONTAINERS','INITIAL VOLUME FRACTION',
     .'IMPLICIT DOMAIN DECOMPOSITION',
     .'SMS INITIALIZATION',
     .'DOMAIN DECOMPOSITION',
     6'ELEMENTS GROUPS',
     .'REFERENCE METRICS',
     .'DOMAIN DECOMPOSITION ARRAYS',
     .'ELEMENT BUFFER ALLOCATION',
     .'GRAVITY',
     .'EXTERNAL COUPLING',
     .'SECONDARY VELOCITIES',
     .'RBE2',
     .'RBE3',
     .'ELEMENTS DEACTIVATION',
     7'SOLID ELEMENTS FACES',
     .'MPCS 2',
     .'OPTIMIZATION',
     .'INTERFACES',
     .'RIGID WALLS',
     .'RIGID WALLS ALE',
     .'ADDED MASSES',
     .'MADYMO LINKS',
     .'MADYMO EXFEM',
     .'RIGID ENTITES',
     8'EIGEN MODES',
     .'MULTI-LEVEL DIRECT SOLVER',
     .'COMPOSITE SHELLS',
     .'USER TO SYSTEM RENUMBERING',
     .'ELEMENT BUFFER INITIALIZATION',
     .'RIGID MATERIALS',
     .'DEALLOCATION',
     .'XFEM FOR COMPOSITE',
     .'RIGID BODY ELEMENT DEACTIVATION',
     .'STAMPING INITIALIZATION',
     9'INTERFACES STIFFNESS',
     .'LASER IMPACT PHASE 2',
     .'RIVETS',
     .'SECTIONS',
     .'JOINTS',
     .'BLOCK BOUNDARY MATERIAL NODES',
     .'POROUS NODES',
     .'MONITORED VOLUMES',
     .'MESHING',
     .'BEM FLOW',
     *'EULERIAN BOUNDARY CONDITIONS',
     .'LAGRANGE MULTIPLIERS',
     .'GRAVITY NODAL FORCES',
     .'XFEM DEACTIVATION',
     .'TIME HISTORY PARTS',
     .'TIME HISTORY GROUPS',
     .'DYNAMIC STORAGE MADYMO LINK',
     .'INTERFACE INITIALIZATION PHASE 2',
     .'RBE3 INITIALIZATION',
     .'KINEMATIC CONDITIONS CHECK',
     1'MASS ARRAY ALLOCATION',
     .'DOMAIN DECOMPOSITION PHASE 2',
     .'PROCESS BEM FOR SPMD',
     .'CLOSING TMP INPUT FILE',
     .'ANIMATION FILE WRITING',
     .'RESTART FILE(S) WRITING',
     .'CLOSING STARTER',
     .'    ',
     .'    '/
      DATA ll /
     .     15,12, 6, 5,
     .  10, 9,12,12,10,
     1   9, 5, 9, 6, 9, 5, 5,
     .  10, 5,12, 8,16, 4,
     2  12,10, 9, 7, 5, 6,
     .  15,14,19,12, 3,20,
     3  11, 7, 6,15, 7,
     .  14,10,21,22, 3,
     4   7, 7,18,16,14,
     .  18,18,20,17,13,
     5  27,14, 7,11,11,
     .  15, 7,18,20,10,22,29,18,20,
     6  15,17,27,25, 7,
     .  17,16, 4, 4,21,
     7  20, 6,12,10,11,
     .  15,12,12,12,13,
     8  11,25,16,26,29,
     .  15,12,18,31,23,
     9  20,20, 6, 8, 6,
     .  29,12,17, 7, 8,
     *  28,20,20,17,18,
     .  19,27,32,19,26,
     1  21,28,20,22,22,
     .  23,15, 4, 4/
      DATA typ /
     .      1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     1   8, 1, 1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1, 1,
     2   1, 1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1, 1,
     3   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     4   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     5   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1, 1, 1, 1, 1,
     6   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     7   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     8   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     9   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     *   1, 1, 1, 1, 1,
     .   1, 1, 1, 1, 1,
     1   1, 1, 1, 1, 1,
     .   1, 1, 1, 1/
C-----------------------------------------------
      IF(itrace/=1)RETURN
      niveau_pile = trace_pile(1)
      IF(niveau_pile>=niveau_max-1)THEN
         CALL trace_print(line1,-2,1)
         RETURN
      ENDIF
C-----------------------------------------------
      IF(nsub<=0.OR.nsub> nsub_max )THEN
          line1=' ?????? '  
      ELSE
        GOTO(1,2,3)typ(nsub)
 1      CONTINUE
          WRITE(line1,'(A)')lines(nsub)(1:ll(nsub))
          GOTO 999
 2      CONTINUE
          WRITE(line1,'(A,I5,A1,I5)')lines(nsub)(1:ll(nsub)),itab(1)
          GOTO 999
 3      CONTINUE
          WRITE(line1,'(A,I5,A1,I5)')lines(nsub)(1:ll(nsub)),
     .                              itab(1)+1,'/',itab(2)
          GOTO 999
C
 999    CONTINUE
      ENDIF
C-----------------------------------------------
      CALL trace_print(line1,nsub,0)
C-----------------------------------------------
      RETURN
C

trace_in1()

subroutine trace_in1	(	character(len=ncharline)	my_char,
		integer	ilen )

Definition at line 36 of file trace_back.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE names_and_titles_mod , ONLY : ncharline
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
#include      "warn_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      CHARACTER(LEN=NCHARLINE) :: MY_CHAR
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER ILEN
      CHARACTER(LEN=NCHARLINE):: LINE1
      INTEGER TRACE_PILE
      EXTERNAL trace_pile
      INTEGER NIVEAU_PILE
C-----------------------------------------------
      IF(itrace/=1)RETURN
      WRITE(line1,'(A)')my_char(1:min(ilen,ncharline))
      niveau_pile = trace_pile(1)
      IF(niveau_pile>=niveau_max)THEN
        WRITE(iout,'(A)')
     .' +=============================================================+'
        WRITE(iout,'(A,A)')
     .' ',line1
        WRITE(iout,'(A)')
     .' +=============================================================+'
        WRITE(iout,'(A)')
     .' |          Trace back error (pile level > max)                |'
        WRITE(iout,'(A)')
     .' +=============================================================+'
        niveau_pile = trace_pile(-1)
        CALL trace_print(line1,-2,1)
        CALL my_exit(3)
      END IF
C-----------------------------------------------
      CALL trace_print(line1,niveau_pile,0)
C-----------------------------------------------
      RETURN
C

trace_out()

subroutine trace_out

(

integer

nsub

)

Definition at line 323 of file trace_back.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
        USE names_and_titles_mod , ONLY : ncharline
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "warn_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NSUB
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER TRACE_PILE
      CHARACTER(LEN=ncharline) :: LINE1
      EXTERNAL trace_pile
      INTEGER NIVEAU_PILE
C-----------------------------------------------
      IF(itrace/=1)RETURN
      line1(1:ncharline)=' '
      CALL trace_print(line1,nsub,-1)
      niveau_pile = trace_pile(-1)
C-----------------------------------------------
      RETURN

trace_out1()

subroutine trace_out1

Definition at line 363 of file trace_back.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE names_and_titles_mod , ONLY : ncharline
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "warn_c.inc"
#include      "units_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER TRACE_PILE
      EXTERNAL trace_pile
      INTEGER NIVEAU_PILE
      INTEGER NSUB,IW
      CHARACTER(LEN=ncharline) :: LINE1
C-----------------------------------------------
      line1(1:ncharline)=' '
      IF(itrace/=1)RETURN
      niveau_pile = trace_pile(-1)
      nsub=trace_pile(0)
      IF (niveau_pile<0) THEN
        WRITE(iout,'(A)')
     .' +=============================================================+'
        WRITE(iout,'(A)')
     .' |          Trace back error (pile level < 0)                  |'
        WRITE(iout,'(A)')
     .' +=============================================================+'
        niveau_pile = trace_pile(1-trace_pile(0))
        CALL trace_print(line1,-2,1)
        CALL my_exit(3)
      END IF
      iw = -1
      CALL trace_print(line1,nsub,iw)
C-----------------------------------------------
      RETURN

trace_pile()

integer function trace_pile

(

integer

val

)

Definition at line 412 of file trace_back.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER VAL
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NIVEAU_PILE,IT
      DATA niveau_pile/0/
      SAVE niveau_pile
C-----------------------------------------------
      niveau_pile = niveau_pile + val
      trace_pile = niveau_pile
C-----------------------------------------------
      RETURN

trace_print()

subroutine trace_print	(	character(len=ncharline)	line1,
		integer	ns_signal,
		integer	iw )

Definition at line 479 of file trace_back.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE names_and_titles_mod , ONLY : ncharline
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      CHARACTER(LEN=NCHARLINE):: LINE1
      INTEGER NS_SIGNAL,IW
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER TRACE_PILE
      EXTERNAL trace_pile
      INTEGER NIVEAU_PILE
      INTEGER CHECK_PILE(0:NIVEAU_MAX) 
      CHARACTER(LEN=NCHARLINE):: BLANC
      CHARACTER(LEN=NCHARLINE):: TEXT(0:NIVEAU_MAX)
      INTEGER I,IP,IL,NLIGNES,IT
      DATA check_pile/0,niveau_max*0/
      SAVE text,check_pile
C-----------------------------------------------
      DO i=1,ncharline
        blanc(i:i)=' '
      END DO
      niveau_pile = trace_pile(0)
C
      IF(iw==0) THEN
C------------------------------------------------------------------------
C       Ajout d'une ligne a TEXT (1 ou plusieurs X par descente de pile)
C------------------------------------------------------------------------
        text(niveau_pile)(1:niveau_pile)=blanc(1:niveau_pile)
        text(niveau_pile)(niveau_pile+1:ncharline)=
     .            line1(1:ncharline-niveau_pile)
        check_pile(niveau_pile) = ns_signal
      ELSEIF(iw==-1) THEN
C------------------------------------------
C       remonte de pile 
C------------------------------------------
        IF(ns_signal==check_pile(niveau_pile))THEN
          text(niveau_pile+1)=blanc
        ELSE
          ns_signal = -1
          iw=1
        ENDIF
      ENDIF
C
      IF(iw>0) THEN
C------------------------------------------
C       Ecriture du Trace Back et Arret
C------------------------------------------
        IF(niveau_pile<=0)CALL my_exit(3)
C
        WRITE(iout,'(A)')
     .' +=============================================================+'
        WRITE(iout,'(A)')
     .' |     ABNORMAL END                                            |'
        IF(ns_signal==-1)THEN
          WRITE(iout,'(A)')
     .' |          Trace back error (pile)                            |'
        ELSEIF(ns_signal==-2)THEN
          WRITE(iout,'(A)')
     .' |          Trace back error (pile level)                      |'
        ELSEIF(ns_signal==1)THEN
          WRITE(iout,'(A)')
     .' |          Bus Error                                          |'
        ELSEIF(ns_signal==2)THEN
          WRITE(iout,'(A)')
     .' |          floating point exception                           |'
        ELSEIF(NS_SIGNAL==3)THEN
          WRITE(IOUT,'(a)')
     .' |          segmentation violation                             |'
        ENDIF
        WRITE(IOUT,'(a)')
     .' |     trace back :                                            |'
        WRITE(IOUT,'(a)')
     .' +=============================================================+'
C
        DO I=MAX(1,NIVEAU_PILE),MIN(NIVEAU_PILE,NIVEAU_MAX)
          WRITE(IOUT,'(a)')TEXT(I)
        ENDDO
C
        WRITE(IOUT,'(a)')
     .' +=============================================================+'
        WRITE(ISTDO,'(a)')
     .' ** error trapped : report to listing file'
        CALL ANCMSG(MSGID=760,
     .              MSGTYPE=MSGERROR,
     .              ANMODE=ANSTOP)
        CALL MY_EXIT(3)
      ENDIF
C
      RETURN