Esope source files

   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 : -INC CCOPTIO                                                                    
  20 : -INC TMSURFP                                                                    
  21 : *                                                                               
  22 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  23 : * -----------                                                                   
  24 : *                                                                               
  25 : *     U,V     (E)  COORDONNEES PARAMETRIQUES DU POINT.                          
  26 : *     X,Y,Z   (S)  COORDONNEES GEOMETRIQUES DU POINT.                           
  27 : *                  "Z" EST MIS A 0 EN DIMENSION 2 (C'EST PRATIQUE POUR          
  28 : *                  FAIRE DES CALCULS DE DISTANCES SANS TESTER "IDIM").          
  29 : *    +MSURFP  (E)  POINTEUR DE SURFACE PARAMETREE.                              
  30 : *                  CE SEGMENT EST SUPPOSE ACTIF.                                
  31 : *                  LE SEGMENT "MCOFSU" DONT "MSURFP" POSSEDE LE POINTEUR        
  32 : *                  EST EGALEMENT SUPPOSE ACTIF.                                 
  33 : *    +IDIM    (E)  VOIR LE COMMUN "COPTIO".                                     
  34 : *                                                                               
  35 :       REAL*8 U,V,X,Y,Z                                                                                                              
  36 : *                                                                               
  37 : * FONCTIONS:                                                                    
  38 : * -----------                                                                   
  39 : *                                                                               
  40 :       REAL*8 POLYN2                                                             
  41 : *                                                                               
  42 : * AUTEUR, DATE DE CREATION:                                                     
  43 : * -------------------------                                                     
  44 : *                                                                               
  45 : *     PASCAL MANIGOT     26 FEVRIER 1987                                        
  46 : *                                                                               
  47 : * LANGAGE:                                                                      
  48 : * --------                                                                      
  49 : *                                                                               
  50 : *     ESOPE77 FORTRAN77 + EXTENSION: DECLARATION "REAL*8".                      
  51 : *                                                                               
  52 : ************************************************************************        
  53 : *                                                                               
  54 :       MCOFSU = ICOFSU                                                           
  55 :       SEGACT MCOFSU                                                             
  56 : *                                                                               
  57 :       X = POLYN2 (COFSUR(1,1,1),NLISUR,NCOSUR,V,U)                              
  58 :       Y = POLYN2 (COFSUR(1,1,2),NLISUR,NCOSUR,V,U)                              
  59 :       IF (IDIM .EQ. 3) THEN                                                     
  60 :          Z = POLYN2 (COFSUR(1,1,3),NLISUR,NCOSUR,V,U)                           
  61 :       ELSE                                                                      
  62 :          Z = 0.D0                                                               
  63 :       END IF                                                                    
  64 : *                                                                               
  65 :       END                                                                       
  66 :  
  67 :  
  68 :