[updated 11.Sep.2008]

Librairie alodyn > Fichier tbajst.f

Qui appelle tbajst ?

line
      SUBROUTINE TBAJST (NOMTB,NIVETB,NWARTI) 
line
  Auteur : O.deBayser (Mars 1988)
  Derniere modification : D.Martin (4 Juillet 1997)
  Version # 1.0.1
   
  Ajustement de la taille d'un tableau
   
  NOMTB  nom du tableau a agrandir 
  NIVETB son niveau
  NWARTI sa nouvelle taille (comptee en articles)  
line
      CHARACTER NOMTB*(*)
      INTEGER   NIVETB,NWARTI
 
      INCLUDE 'ALLOC'
   
      CHARACTER PRFXAS*8
      INTEGER   IPRINT,NIP
line
      IPRINT=TBDCST(16)
      IF (IPRINT.GT.0) WRITE (IPRINT,10000) (PRFXAS(NIP),NIP=1,0,-1)
     &                                     ,NOMTB,NIVETB
   
      CALL AGRAND (NOMTB,NIVETB,NWARTI)  
      IF (IPRINT.GT.0) WRITE (IPRINT,10001) (PRFXAS(NIP),NIP=1,0,-1)
     &                                     ,NOMTB,NIVETB,NWARTI
line
10000 FORMAT(A,A,'>Tbajst ',A,T32,'/',I6)
10001 FORMAT(A,A,'<Tbajst ',A,T32,'/',I6,T48,', Lg',I12,' (articles)')
                                                                    END !Tbajst
line
top

tbajst est appelé dans (41 procédures)

asmomo.f (assembl) asmopl.f (assembl) asmtrm.f (assembl)
asvtrm.f (assembl) bmo2dl.f (sdexplo) cptdom.f (cordom)
ctmost.f (cesse) dskbmo.f (caltrm) dskmco.f (caltrm)
dskmli.f (caltrm) dsmtrm.f (assembl) exduvc.f (sdexplo)
exterm.f (sdexplo) fiprep.f (syslin) gbegin.f (grafxout)
gbodyr.f (grafxout) lcasse.f (lecdire) lcdire.f (lecdire)
lcdonn.f (lecdire) lcgmai.f (lecgeom) lckdom.f (lecdire)
lckspe.f (lecdire) m2ursd.f (grafxout) maco2m.f (momeutil)
mkgril.f (sdexplo) mksdgn.f (sdexplo) mkterm.f (sdexplo)
moc2dl.f (sdexplo) mol2dl.f (sdexplo) nopo2m.f (momeutil)
nuduni.f (sdexplo) numdom.f (caldom) numneu.f (glonum)
putcst.f (sdexplo) relbmo.f (couplag) reldir.f (couplag)
relfri.f (couplag) relmor.f (couplag) sdajst.f (sdexplo)
tbcree.f (alodyn) xeterm.f (sdexplo)  

top