Télécharger mopo.eso

Retour à la liste

Numérotation des lignes :

mopo
  1. C MOPO SOURCE CB215821 18/09/13 21:15:49 9917
  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
  12. CALL CHCOUL(7)
  13. C ON MET LES NOMS LA OU ON PEUT
  14. if(nbesc.ne.0) segact ipiloc
  15. DO 50 IOB=1,LMNNOM
  16. IF (INOOB2(IOB).NE.'POINT ') GOTO 50
  17. K=ICPR(IOUEP2(IOB))
  18. IF (K.EQ.0) GOTO 50
  19. IF (IVU(K).NE.1) GOTO 50
  20. XP=XPROJ(1,K)
  21. YP=XPROJ(2,K)
  22. IP= INOOB1(IOB)
  23. IDEBCH=IPCHAR(IP)
  24. IFINCH=IPCHAR(IP+1)-1
  25. TEXX=ICHARA(IDEBCH:IFINCH)
  26. CALL TRLABL(XP,YP,0.,TEXX,8,0.15)
  27. 50 CONTINUE
  28. if(nbesc.ne.0) SEGDES,IPILOC
  29. END
  30.  
  31.  
  32.  
  33.  

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