Télécharger la plaquette Cast3M


fr en

Télécharger surf18.eso

Retour à la liste

Numérotation des lignes : 

surf18

  1. C SURF18    SOURCE    PV        07/11/23    21:19:23     5978
  2.       SUBROUTINE SURF18 (K,KMAX,USURC,VSURC,USUR,VSUR,DSUR,CONVRG)
  3. ***! $ usur1,vsur1)
  4. ************************************************************************
  5. *
  6. *                             S U R F 1 8
  7. *                             -----------
  8. *
  9. * FONCTION:
  10. * ---------
  11. *
  12. *     - COMPARE L'ITERATION (N) AVEC LA PRECEDENTE (N-1)
  13. *     - SI APRES LES ITERATIONS, LE TEST N'EST TOUJOURS PAS VERIFIE
  14. *       LA VALEUR DE USUR (OU VSUR) EST LA VALEUR DE LA PREMIERE
  15. *       ITERATION.
  16. *
  17. *
  18. * MODULES UTILISES:
  19. * -----------------
  20. *
  21.       IMPLICIT INTEGER(I-N)
  22.       IMPLICIT real*8 (a-h,o-z)
  23. -INC PPARAM
  24. -INC CCOPTIO
  25. *
  26. *
  27. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  28. * -----------
  29. *
  30. *     K       (E)  NUMERO DE L'ITERATION
  31. *     KMAX    (E)  NOMBRE MAXIMUM D'ITERATION
  32. *     USURC   (E)  VALEUR DE USUR A LA PREMIERE ITERATION
  33. *     VSURC   (E)  VALEUR DE VSUR A LA PREMIERE ITERATION
  34. *     USUR    (E)  VALEUR DE USUR AUX ITERATIONS SUIVANTES
  35. *             (S)  PREND LA VALEUR USURC SI NON CONVERGENCE DU TEST
  36. *     VSUR    (E)  VALEUR DE VSUR AUX ITERATIONS SUIVANTES
  37. *             (S)  PREND LA VALEUR VSURC SI NON CONVERGENCE DU TEST
  38. *     DSUR    (E)  DENSITE APPROXIMATIVE
  39. *     CONVRG  (S)  .TRUE. SI CONVERGENCE
  40. *
  41.       REAL*8 USURC,VSURC,USUR,VSUR,DSUR
  42.       LOGICAL CONVRG
  43. *
  44. *
  45. * VARIABLES:
  46. * ----------
  47. *
  48. *     USUR1 ET VSUR1 : VALEURS DE USUR ET VSUR A L'ITERATION PRECEDENTE
  49. *
  50.       REAL*8 USUR1,VSUR1,TEST
  51. *      SAVE USUR1,VSUR1
  52. *
  53. *
  54. * AUTEUR, DATE DE CREATION:
  55. * -------------------------
  56. *
  57. *     LIONEL VIVAN       10 DECEMBRE 1987
  58. *
  59. * LANGAGE:
  60. * --------
  61. *
  62. *     FORTRAN77
  63. *
  64. ************************************************************************
  65. *
  66.       CONVRG = .FALSE.
  67.       IF (K.LE.1) THEN
  68.          USUR1 = USURC
  69.          VSUR1 = VSURC
  70.       END IF
  71.       TEST = SQRT((USUR1-USUR)**2+(VSUR1-VSUR)**2)
  72.       IF (TEST .LE. (DSUR/20.D0)) THEN
  73.          CONVRG = .TRUE.
  74.       END IF
  75. *
  76.       IF (K.EQ.KMAX .AND. (.NOT.CONVRG)) THEN
  77.          INTERR(1)=KMAX
  78.          CALL ERREUR(151)
  79.          IF (IIMPI.EQ.1805) THEN
  80.             WRITE(IOIMP,*)'TEST,DSUR,USURC,VSURC,USUR,VSUR'
  81.             WRITE(IOIMP,*)TEST,DSUR,USURC,VSURC,USUR,VSUR
  82.          END IF
  83.       END IF
  84. *
  85.       USUR1=USUR
  86.       VSUR1=VSUR
  87. *
  88.       END
  89.  
  90.  
  91.  
  92.  

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