Télécharger la plaquette Cast3M


fr en

Télécharger intva6.eso

Retour à la liste

Numérotation des lignes : 

intva6

  1. C INTVA6    SOURCE    JC220346  14/12/11    21:15:00     8318
  2.       SUBROUTINE INTVA6 (NONVID)
  3. ************************************************************************
  4. *
  5. *                             I N T V A 6
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     ON A LA PARTITION D'INTERVALLE:
  12. *        ( ... , W(N-2), W2A, W2B)
  13. *     ON CREE LA PARTITION D'INTERVALLE:
  14. *        ( ... , W(N-2), W2A)
  15. *
  16. *     "W(N-2)" PREND LE ROLE DE "W2A", "W2A" CELUI DE "W2B" ET
  17. *     L'INTERVALLE EST REDUIT.
  18. *
  19. * MODE D'APPEL:
  20. * -------------
  21. *
  22. *     CALL INTVA6 (NONVID)
  23. *
  24. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  25. * -----------
  26. *
  27. *     NONVID  LOGIQUE   (S)  = .TRUE. SI L'INTERVALLE RESULTANT EST
  28. *                            NON VIDE,
  29. *                            = .FALSE. SINON.
  30. *
  31. *     VOIR EGALEMENT LE COMMUN "CINTVA" DANS LE SOUS-PROGRAMME "INTVA2".
  32. *
  33. * SOUS-PROGRAMMES APPELES:
  34. * ------------------------
  35. *
  36. *     ENLEV1, ENLEV2, EXTRA1, EXTRA2, DTLENT, DTLREE.
  37. *
  38. * AUTEUR, DATE DE CREATION:
  39. * -------------------------
  40. *
  41. *     PASCAL MANIGOT     24 DECEMBRE 1984
  42. *
  43. * LANGAGE:
  44. * --------
  45. *
  46. *     FORTRAN77
  47. *
  48. ************************************************************************
  49. *
  50.       IMPLICIT INTEGER(I-N)
  51.       IMPLICIT REAL*8 (A-H,O-Z)
  52.  
  53. -INC PPARAM
  54. -INC CCOPTIO
  55. *
  56. *     REGROUPEMENT DES INFORMATIONS SUR LA SUITE DE PULSATIONS AU CARRE:
  57.       COMMON/CINTVA/IMULTP,IPW2,W2A,W2I,W2B,NBW2,IPNUM,NUMW2A,NUMW2I,
  58.      &      NUMW2B  ,IUN
  59. *
  60.       LOGICAL NONVID
  61. *
  62.       CALL ENLEV1 (IPW2,NBW2,IPOINT,0)
  63.       IF (IERR .NE. 0) RETURN
  64.       CALL DTLREE (IPW2)
  65.       IPW2 = IPOINT
  66. *
  67.       CALL ENLEV2 (IPNUM,NBW2,IPOINT,0)
  68.       IF (IERR .NE. 0) RETURN
  69.       CALL DTLENT (IPNUM)
  70.       IPNUM = IPOINT
  71. *
  72.       NBW2 = NBW2 - 1
  73. *
  74.       IF (NBW2 .LT. 2) THEN
  75. *
  76.          NONVID = .FALSE.
  77. *
  78.       ELSE
  79. *
  80.          NONVID = .TRUE.
  81.          W2B = W2A
  82.          NUMW2B = NUMW2A
  83. *
  84.          NBW2M1 = NBW2 - 1
  85.          CALL EXTRA1 (IPW2,NBW2M1,  W2A)
  86.          IF (IERR .NE. 0) RETURN
  87.          CALL EXTRA2 (IPNUM,NBW2M1,  NUMW2A)
  88.          IF (IERR .NE. 0) RETURN
  89. *
  90.       END IF
  91. *
  92.       END
  93.  
  94.  
  95.  

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