Télécharger intva5.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  48. *
  49. * REGROUPEMENT DES INFORMATIONS SUR LA SUITE DE PULSATIONS AU CARRE:
  50. COMMON/CINTVA/IMULTP,IPW2,W2A,W2I,W2B,NBW2,IPNUM,NUMW2A,NUMW2I,
  51. & NUMW2B ,IUN
  52. *
  53. CALL REMPL1 (IPW2,NBW2,W2I,0,0)
  54. IF (IERR .NE. 0) RETURN
  55. W2B = W2I
  56. *
  57. CALL REMPL2 (IPNUM,NBW2,NUMW2I,0,0)
  58. IF (IERR .NE. 0) RETURN
  59. NUMW2B = NUMW2I
  60. *
  61. END
  62.  
  63.  
  64.  

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