Télécharger la plaquette Cast3M


fr en

Télécharger intva4.eso

Retour à la liste

Numérotation des lignes : 

intva4

  1. C INTVA4    SOURCE    CHAT      05/01/13    00:41:51     5004
  2.       SUBROUTINE INTVA4
  3. ************************************************************************
  4. *
  5. *                             I N T V A 4
  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, W2B)
  15. *
  16. *     "W2I" PREND LE ROLE DE "W2A".
  17. *
  18. * MODE D'APPEL:
  19. * -------------
  20. *
  21. *     CALL INTVA4
  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. *     INSER1, INSER2.
  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 INSER1 (IPW2,NBW2,W2I)
  56.       IF (IERR .NE. 0) RETURN
  57.       W2A = W2I
  58. *
  59.       CALL INSER2 (IPNUM,NBW2,NUMW2I)
  60.       IF (IERR .NE. 0) RETURN
  61.       NUMW2A = NUMW2I
  62. *
  63.       NBW2 = NBW2 + 1
  64. *
  65.       END
  66.  
  67.  

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