Télécharger la plaquette Cast3M


fr en

Télécharger ooomes.eso

Retour à la liste

Numérotation des lignes : 

ooomes

  1. C OOOMES    SOURCE    PV090527  26/04/24    08:23:13     12524          
  2.       SUBROUTINE OOOMES(NN,HMESSA)
  3. C-------------------------------------------------------------------
  4. C
  5. C                   ECRITURE DES MESSAGES
  6. C
  7. C    ->NN      0
  8. C              POINTEUR
  9. C    ->HMESSA  LIBELLE MESSAGE
  10. C
  11. C PROGRAMMEUR : CB215821
  12. C       MODIF : 
  13. C-------------------------------------------------------------------
  14.  
  15. %INC IOODMP
  16. %INC IOOUNIT
  17. %INC IOOWCOM
  18.  
  19.       LOGICAL       OOOVP1
  20.       CHARACTER*(*) HMESSA
  21.       CHARACTER* 8  HPRM
  22.  
  23. C     On met un SEGMENT pour avoir OOTHRD (le traducteur s'en charge)
  24.       SEGMENT ISEG(0)
  25.  
  26.       nth =oothrd
  27.       CALL OOOHO2(IHOCOU)
  28.  
  29.       IF(LDIA.GT.0)THEN
  30.         I1 = INDEX(HDIA(   1:LDIA),' ')
  31.         I2 = INDEX(HDIA(I1+1:LDIA),' ')+I1
  32.         I3 = INDEX(HDIA(I2+1:LDIA),' ')+I2
  33.         WRITE (JLST,'(A,A,A,A,/,A,A,/,A,A,A/,A,I9)')
  34.      1  '0--- ',HMESSA        ,' --- SUBROUTINE  : ', HDIA(   1:I1),
  35.      2  ' ---                        INSTRUCTION : ', HDIA(I1+1:I2),
  36.      3  ' ---                        ',HSEG(KASINS) , HDIA(I2+1:LDIA),
  37.      4  ' ---                        POINTEUR    : ',NN
  38.  
  39.       ELSE
  40.         WRITE (JLST,'(A,A,A,A,/,A,I9)')
  41.      1  '0--- ',HMESSA     ,' ---',HSEG(KASINS),
  42.      2  ' ---                        POINTEUR    : ',NN
  43.       ENDIF
  44.  
  45.       IF(ooovp1(NN))THEN
  46.         CALL OOOHO1(NN,IHOSEG)
  47.         WRITE (JLST,'(A,I9)')
  48.      5  ' ---                        HORO SEGMENT: ',IHOSEG
  49.       ENDIF
  50.  
  51. C     2 Derniere ligne : Horodatage courant & Le numero du THREAD
  52.       WRITE (JLST,'(A,I9,/A,I3,/)')
  53.      6  ' ---                        HORO COURANT: ',IHOCOU,
  54.      7  ' ---                        THREAD      : ',nth
  55.  
  56.       END
  57.  
  58.  
  59.  

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