Include source files

*           -INC TMSURFP                                                        
*                                                                               
*     INFORMATIONS NECESSAIRES POUR LA CREATION D'UN OBJET "MAILLAGE"           
*     CORRESPONDANT A UNE SURFACE POLYNOMIALE D'EQUATION:                       
*                                                                               
*                                   | P00 P01 P02 P03 .. |   |   1    |         
*                    2     (M-1)    | P10 P11 P12 P13 .. |   |   U    |         
*     P(U,V) = (1 V V  ...V     ) X | P20 P21 P22 P23 .. | X |   ..   |         
*                                   |         ...        |   |U**(N-1)|         
*                                                                               
      SEGMENT,MSURFP                                                            
         REAL*8 U1SUR,U2SUR,V1SUR,V2SUR,RSUr8(11)                                         
         INTEGER NLISUR,NCOSUR,isur8(4)                                                  
         INTEGER PT1SUR,PT2SUR,PT3SUR,PT4SUR                                    
         LOGICAL REGSUR                                                         
         INTEGER ICOFSU,IUVSUR,IPRSUR                                           
      ENDSEGMENT                                                                
      SEGMENT,MCOFSU                                                            
         REAL*8 COFSUR(M,N,IDIM)                                                
      ENDSEGMENT                                                                
      SEGMENT,MUVSUR                                                            
         REAL*8 USUR(LONG),VSUR(LONG)                                           
         INTEGER NU0SUR                                                         
      ENDSEGMENT                                                                
*                                                                               
*     NLISUR = NOMBRE DE LIGNES DE LA MATRICE.                                  
*              (= DEGRE + 1  DES POLYNOMES EN "V")                              
*     NCOSUR = NOMBRE DE COLONNES DE LA MATRICE.                                
*              (= DEGRE + 1  DES POLYNOMES EN "U")                              
*                                                                               
*     U1SUR  = BORNE INFERIEURE DU PARAMETRE "U" DU POLYNOME DE LA              
*              SURFACE.                                                         
*     U2SUR  = BORNE SUPERIEURE DU PARAMETRE "U" DU POLYNOME DE LA              
*              SURFACE.                                                         
*     V1SUR  = BORNE INFERIEURE DU PARAMETRE "V" DU POLYNOME DE LA              
*              SURFACE.                                                         
*     V2SUR  = BORNE SUPERIEURE DU PARAMETRE "V" DU POLYNOME DE LA              
*              SURFACE.                                                         
*                                                                               
*     PT1SUR = POINT ASSOCIE AU COUPLE (U1SUR,V1SUR).                           
*     PT2SUR = POINT ASSOCIE AU COUPLE (U2SUR,V1SUR).                           
*     PT3SUR = POINT ASSOCIE AU COUPLE (U2SUR,V2SUR).                           
*     PT4SUR = POINT ASSOCIE AU COUPLE (U1SUR,V2SUR).                           
*                                                                               
*     REGSUR = .TRUE. SI DISPOSITION REGULIERE DES POINTS DANS L'ESPACE         
*              GEOMETRIQUE (EU EGARD AUX DENSITES) PLUTOT QUE DANS              
*              L'ESPACE PARAMETRIQUE.                                           
*                                                                               
*     ICOFSU = VALEUR DU POINTEUR DU SEGMENT "MCOFSU".                          
*     IUVSUR = VALEUR DU POINTEUR DU SEGMENT "MUVSUR".                          
*     IPRSUR = VALEUR DU POINTEUR DU SEGMENT "MPRSUR" REPRESENTANT LES          
*              PARAMETRES PROJETES (A VENIR, POUR L'OPERATEUR "SURF").          
*                                                                               
*     COFSUR = MATRICES REELLES PERMETTANT DE CALCULER LES ABSCISSES,           
*              ORDONNEES ET (EVENTUELLEMENT) COTES DES POINTS DE LA             
*              SURFACE.                                                         
*                                                                               
*     USUR() = 1ERE COORDONNEE PARAMETRIQUE DE POINTS DE LA SURFACE             
*              (25/02/87: CONTOUR SEULEMENT).                                   
*     VSUR() = 2EME COORDONNEE PARAMETRIQUE DE POINTS DE LA SURFACE             
*              (25/02/87: CONTOUR SEULEMENT).                                   
*     NU0SUR = LE POINT DE NUMERO "N" A POUR COORDONNEES PARAMETRIQUES:         
*              U = USUR(N-NU0SUR), V = VSUR(N-NU0SUR).                          
*              C'EST UN MOYEN DE GAGNER DE LA PLACE, SANS TROP                  
*              COMPLIQUER LA CORRESPONDANCE:                                    
*              NUMERO-DE-POINT <--> PLACE-DANS-USUR-ET-VSUR                     
*   Rsur8 et isur8 sont pour stocker les save de surfp8 et surf18