[updated 8.Sep.2008]

Qui appelle prsdas ?

      SUBROUTINE PRSDAS (NVASMB,NUTERM,NIVIMP,IMPFCH)

  Auteur : D.Martin (Novembre 1990)  
  Derniere modification : D.Martin (13 Fevrier 1998)
   
  Impression des termes de la structure d'assemblage simple '$ASMBL'
   
 -- Arguments d'entree -- 
  NVASMB niveau de la structure d'assemblage
  NUTERM numero du terme resultat
  NIVIMP niveau d'impression du terme assemble 
  IMPFCH numero d'unite logique de fichier d'impression

      INTEGER NVASMB,NUTERM,NIVIMP,IMPFCH
  
      INCLUDE 'ALLOC'  
 
      CHARACTER PRFXAF*8,THETR1*16
      INTEGER MCMTRM,MCDTRM,LGETRM,NBTERM,INCTRM,NCHTRM,NCATR1
     &       ,MCASMB,LGEASM,INCASM,NBTASM,NBTASO,NUTASM,NVTERM,NUTRAC
      CHARACTER ERCODE*120
      COMMON/FORMAH/ERCODE 

      CALL TBAR3  (ERCODE,'#OMTRM',1,MCMTRM,'$SDTRM',1,MCDTRM
     &                            ,'$ASMBL',NVASMB,MCASMB)
   
      CALL SDEXDB (IST(MCDTRM),LGETRM,NBTERM,INCTRM,NCHTRM)
      CALL SDEXDB (IST(MCASMB),LGEASM,NBTASM,INCASM,NBTASO)
      CALL GETCHN (AST(MCMTRM),NCHTRM,NUTERM,ERCODE(1:NCHTRM))
 
      NVTERM=IST(MCDTRM+LGETRM+INCTRM*(NUTERM-1))
      CALL PRNTRM (ERCODE(1:NCHTRM),NVTERM,THETR1,NCATR1)
      WRITE (IMPFCH,10000) PRFXAF ( ),THETR1(1:NCATR1),NVASMB
 
      MCASMB=MCASMB+LGEASM

      DO 1 NUTRAC=1,NBTASM
         NUTASM=IST(MCASMB)
         CALL GETCHN (AST(MCMTRM),NCHTRM,NUTASM,ERCODE(1:NCHTRM))
         NVTERM=IST(MCDTRM+LGETRM+INCTRM*(NUTASM-1))
         CALL PRNTRM (ERCODE(1:NCHTRM),NVTERM,THETR1,NCATR1)
         WRITE (IMPFCH,10001) THETR1(1:NCATR1) 
         IF (NIVIMP.GT.5)
     &      CALL PRSDTR (NUTASM,IST(MCDTRM),AST(MCMTRM),IMPFCH)
         MCASMB=MCASMB+INCASM
1     CONTINUE 

10000 FORMAT(/T2,A8,'>*PrsdAs* Structure de l''assemblage'
     &,' du terme ',A
     &,/T20,'Structure d''assemblage de niveau ',I4/)
10001 FORMAT(T9,'Terme ',A)
                                                                    END !PrSdAs

prsdas est appelé dans (3 procédures)