Esope source files

   1 : C MONO      SOURCE    PV        05/09/22    21:21:31     5181           
   2 : C   NOMMER UN POINT                                                             
   3 : C                                                                               
   4 :       SUBROUTINE MONO(XPROJ,IVU,IDCP)                                           
   5 :       IMPLICIT INTEGER(I-N)
   6 :       COMMON /CMODI/LIGMAX,XPREC,YPREC                                          
   7 :       CHARACTER*8 ZONE                                                          
   8 :       SEGMENT XPROJ(3,ITE)                                                      
   9 :       SEGMENT IVU(0)                                                            
  10 :       SEGMENT IDCP(0)                                                           
  10 :       CALL TRMESS('POINTEZ LE POINT A NOMMER')                                  
  11 :   30  CONTINUE                                                                  
  11 :       CALL mopf3                                                                
  11 :       CALL TRDIG(X,Y,INCLE)                                                     
  12 :       IF (INCLE.EQ.3) RETURN                                                    
  13 : *  CHERCHER LE POINT DU MAILLAGE                                                
  14 :       NBP=XPROJ(/2)                                                             
  15 :       CRIT=XPREC**2                                                             
  16 :       DO 10 IP=1,NBP                                                            
  17 :       IF (IVU(IP).NE.1) GOTO 10                                                 
  18 :       DIST=(XPROJ(1,IP)-X)**2+(XPROJ(2,IP)-Y)**2                                
  19 :       IF (DIST.LT.CRIT) GOTO 20                                                 
  20 :   10  CONTINUE                                                                  
  21 :       GOTO 30                                                                   
  22 :   20  CONTINUE                                                                  
  22 :       CALL TRGET('DONNEZ LE NOM DU POINT : ',ZONE)                              
  23 :       INUM=IDCP(IP)                                                             
  23 :       CALL NOMOBJ('POINT',ZONE,INUM)                                            
  23 :       CALL CHCOUL(6)
  23 :       call insegt(4,iresu)                                                            
  23 :       CALL TRLABL(XPROJ(1,IP),XPROJ(2,IP),0.,ZONE,8,0.15)                          
  24 :       END                                                                       
  25 :  
  26 :