Télécharger la plaquette Cast3M


fr en

Télécharger temblo.eso

Retour à la liste

Numérotation des lignes : 

temblo

  1. C TEMBLO    SOURCE    CB215821  19/07/09    21:15:38     10252          
  2.       SUBROUTINE TEMBLO(IFLAG)
  3.  
  4. C***********************************************************************
  5. C     Temps ecoule dans les blocs : procedures ou boucles
  6. C***********************************************************************
  7. C     IFLAG = 0 : PROCEDURES
  8. C             1 : BOUCLES
  9. C***********************************************************************
  10.  
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17. -INC CCNOYAU
  18. -INC CCPERF
  19.       SEGMENT IVALE(NBBLOC)
  20.       SEGMENT ITRAV(NBBLOC)
  21.  
  22.       CHARACTER*4       MOT1(3)
  23.       CHARACTER*3       CC(1)
  24.       CHARACTER*(LONOM) MO24
  25.  
  26.       DATA CC  /' | '/
  27.       DATA MOT1/'HORL','CPU ','APPE'/
  28.  
  29.       IF    (IFLAG .EQ. 0)THEN
  30.         ITPSBL=ITPSPR
  31.         MOTERR = 'Procedure:'
  32.       ELSEIF(IFLAG .EQ. 1) THEN
  33.         ITPSBL=ITPSBO
  34.         MOTERR = 'Boucle   :'
  35.       ELSE
  36.         CALL ERREUR(5)
  37.       ENDIF
  38.       IF(ITPSBL .EQ. 0) RETURN
  39.       SEGACT,ITPSBL
  40.       NBBLOC=ITPSBL.NBAPRO(/1)
  41.  
  42.       CALL LIRMOT(MOT1,3,I1,0)
  43.       IF    (I1 .EQ. 0)THEN
  44.         ITRAV = 0
  45.       ELSE
  46.         SEGINI,ITRAV,IVALE
  47.         DO II=1,NBBLOC
  48.           ITRAV(II)=II
  49.         ENDDO
  50.         IF   (I1 .EQ. 1)THEN
  51. C         Trie decroissant selon 'HORL'
  52.           DO II=1,NBBLOC
  53.             IVALE(II)=ITPSBL.DURPRO(1,II)
  54.           ENDDO
  55.           CALL ORDO04(IVALE(1),NBBLOC,.TRUE.,ITRAV(1))
  56.         ELSEIF(I1 .EQ. 2)THEN
  57. C         Trie decroissant selon 'CPU '
  58.           DO II=1,NBBLOC
  59.             IVALE(II)=ITPSBL.DURPRO(2,II)
  60.           ENDDO
  61.           CALL ORDO04(IVALE(1),NBBLOC,.TRUE.,ITRAV(1))
  62.         ELSEIF(I1 .EQ. 3)THEN
  63. C         Trie decroissant selon 'APPE'
  64.           DO II=1,NBBLOC
  65.             IVALE(II)=ITPSBL.NBAPRO(II)
  66.           ENDDO
  67.         ELSE
  68.           CALL ERREUR(5)
  69.         ENDIF
  70.  
  71.         CALL ORDO04(IVALE(1),NBBLOC,.TRUE.,ITRAV(1))
  72.       ENDIF
  73.  
  74.  10   FORMAT(3X,A3,A24,A3,I16,A3,I16,A3,I16,A3,I16,A3)
  75.  
  76.       CALL ERREUR(-363)
  77.       CALL ERREUR(-362)
  78.       CALL ERREUR(-363)
  79.  
  80.       DO II=1,NBBLOC
  81.         IF(I1 .EQ. 0)THEN
  82.           JJ=II
  83.         ELSE
  84.           JJ=ITRAV(II)
  85.         ENDIF
  86.         MO24  =ITPSBL.CDPROC(JJ)
  87.         IELAPS=ITPSBL.DURPRO(1,JJ)/10
  88.         ICPU  =ITPSBL.DURPRO(2,JJ)/10
  89.         IAPPEL=ITPSBL.NBAPRO(JJ)
  90.         IF(IELAPS .EQ. 0)THEN
  91.           IEFF = 0
  92.         ELSE
  93.           IEFF =(100*ICPU)/IELAPS
  94.         ENDIF
  95.         WRITE(IOIMP,10) CC,MO24,CC,IELAPS,CC,ICPU,CC,IEFF,CC,IAPPEL,CC
  96.       ENDDO
  97.       CALL ERREUR(-363)
  98.  
  99.       IF(ITRAV .NE. 0)SEGSUP,ITRAV,IVALE
  100.  
  101.       END
  102.  
  103.  
  104.  
  105.  
  106.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales