Télécharger la plaquette Cast3M


fr en

Télécharger surfp0.eso

Retour à la liste

Numérotation des lignes : 

surfp0

  1. C SURFP0    SOURCE    PV        07/11/23    21:19:25     5978
  2.       SUBROUTINE SURFP0 (U,V,X,Y,Z,msurfp)
  3. ************************************************************************
  4. *
  5. *                             S U R F P 0
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     DONNER LES COORDONNEES REELLES D'UN POINT D'UNE SURFACE
  12. *     PARAMETREE, A PARTIR DES COORDONNEES PARAMETRIQUES.
  13. *
  14. * MODULES UTILISES:
  15. * -----------------
  16. *
  17.       IMPLICIT INTEGER(I-N)
  18.       IMPLICIT real*8 (a-h,o-z)
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC TMSURFP
  23. *
  24. * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
  25. * -----------
  26. *
  27. *     U,V     (E)  COORDONNEES PARAMETRIQUES DU POINT.
  28. *     X,Y,Z   (S)  COORDONNEES GEOMETRIQUES DU POINT.
  29. *                  "Z" EST MIS A 0 EN DIMENSION 2 (C'EST PRATIQUE POUR
  30. *                  FAIRE DES CALCULS DE DISTANCES SANS TESTER "IDIM").
  31. *    +MSURFP  (E)  POINTEUR DE SURFACE PARAMETREE.
  32. *                  CE SEGMENT EST SUPPOSE ACTIF.
  33. *                  LE SEGMENT "MCOFSU" DONT "MSURFP" POSSEDE LE POINTEUR
  34. *                  EST EGALEMENT SUPPOSE ACTIF.
  35. *    +IDIM    (E)  VOIR LE COMMUN "COPTIO".
  36. *
  37.       REAL*8 U,V,X,Y,Z
  38. *
  39. * FONCTIONS:
  40. * -----------
  41. *
  42.       REAL*8 POLYN2
  43. *
  44. * AUTEUR, DATE DE CREATION:
  45. * -------------------------
  46. *
  47. *     PASCAL MANIGOT     26 FEVRIER 1987
  48. *
  49. * LANGAGE:
  50. * --------
  51. *
  52. *     ESOPE77 FORTRAN77 + EXTENSION: DECLARATION "REAL*8".
  53. *
  54. ************************************************************************
  55. *
  56.       MCOFSU = ICOFSU
  57.       SEGACT MCOFSU
  58. *
  59.       X = POLYN2 (COFSUR(1,1,1),NLISUR,NCOSUR,V,U)
  60.       Y = POLYN2 (COFSUR(1,1,2),NLISUR,NCOSUR,V,U)
  61.       IF (IDIM .EQ. 3) THEN
  62.          Z = POLYN2 (COFSUR(1,1,3),NLISUR,NCOSUR,V,U)
  63.       ELSE
  64.          Z = 0.D0
  65.       END IF
  66. *
  67.       END
  68.  
  69.  
  70.  
  71.  

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