Télécharger la plaquette Cast3M


fr en

Télécharger intva5.eso

Retour à la liste

Numérotation des lignes : 

intva5

  1. C INTVA5    SOURCE    JC220346  12/05/16    21:15:04     7372
  2.       SUBROUTINE INTVA5
  3. ************************************************************************
  4. *
  5. *                             I N T V A 5
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     ON A LA PARTITION D'INTERVALLE:
  12. *        ( ... , W2A,      W2B)
  13. *     ON CREE LA PARTITION D'INTERVALLE:
  14. *        ( ... , W2A, W2I)
  15. *
  16. *     "W2I" PREND LE ROLE DE "W2B" ET L'INTERVALLE EST REDUIT.
  17. *
  18. * MODE D'APPEL:
  19. * -------------
  20. *
  21. *     CALL INTVA5
  22. *
  23. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE
  24. * -----------
  25. *
  26. *     VOIR LE COMMUN "CINTVA" DANS LE SOUS-PROGRAMME "INTVA2".
  27. *
  28. * SOUS-PROGRAMMES APPELES:
  29. * ------------------------
  30. *
  31. *     REMPL1, REMPL2.
  32. *
  33. * AUTEUR, DATE DE CREATION:
  34. * -------------------------
  35. *
  36. *     PASCAL MANIGOT     24 DECEMBRE 1984
  37. *
  38. * LANGAGE:
  39. * --------
  40. *
  41. *     FORTRAN77
  42. *
  43. ************************************************************************
  44. *
  45.       IMPLICIT INTEGER(I-N)
  46.       IMPLICIT REAL*8 (A-H,O-Z)
  47.  
  48. -INC PPARAM
  49. -INC CCOPTIO
  50. *
  51. *     REGROUPEMENT DES INFORMATIONS SUR LA SUITE DE PULSATIONS AU CARRE:
  52.       COMMON/CINTVA/IMULTP,IPW2,W2A,W2I,W2B,NBW2,IPNUM,NUMW2A,NUMW2I,
  53.      &     NUMW2B   ,IUN
  54. *
  55.       CALL REMPL1 (IPW2,NBW2,W2I,0,0)
  56.       IF (IERR .NE. 0) RETURN
  57.       W2B = W2I
  58. *
  59.       CALL REMPL2 (IPNUM,NBW2,NUMW2I,0,0)
  60.       IF (IERR .NE. 0) RETURN
  61.       NUMW2B = NUMW2I
  62. *
  63.       END
  64.  
  65.  
  66.  

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