Esope source files

   1 : C MOPO      SOURCE    CHAT      06/03/16    21:22:14     5336           
   2 : C  MODI ECRITURE DES NOMS DE POINTS                                      
   3 : C                                                                        
   4 :       SUBROUTINE MOPO(XPROJ,ICPR,IVU)                                    
   5 :       IMPLICIT INTEGER(I-N)
   6 :       SEGMENT XPROJ(3,0)                                                 
   7 :       SEGMENT ICPR(0)                                                    
   8 :       SEGMENT IVU(0)                                                     
   9 :       CHARACTER*8 TEXX                                                   
  10 : -INC CCNOYAU
  11 : -INC CCASSIS                                                             
  11 :       CALL CHCOUL(7)                                                     
  12 : C  ON MET LES NOMS LA OU ON PEUT  
  13 :       if(nbesc.ne.0) segact ipiloc                                       
  14 :       DO 50 IOB=1,LMNNOM                                                 
  15 :       IF (INOOB2(IOB).NE.'POINT   ') GOTO 50                             
  16 :       K=ICPR(IOUEP2(IOB))                                                
  17 :       IF (K.EQ.0) GOTO 50                                                
  18 :       IF (IVU(K).NE.1) GOTO 50                                           
  19 :       XP=XPROJ(1,K)                                                      
  20 :       YP=XPROJ(2,K)  
  21 :       IP= INOOB1(IOB)  
  22 :       IDEBCH=IPCHAR(IP)
  23 :       IFINCH=IPCHAR(IP+1)-1                                              
  24 :       TEXX=ICHARA(IDEBCH:IFINCH)                                         
  24 :       CALL TRLABL(XP,YP,0.,TEXX,8,0.15)                                  
  25 :   50  CONTINUE 
  26 :       if(nbesc.ne.0) segdes ipiloc                                       
  27 :       END        
  28 :