Télécharger prcote.eso

Retour à la liste

Numérotation des lignes :

  1. C PRCOTE SOURCE BP208322 16/11/18 21:20:04 9177
  2. C INTERFACE ENTRE PILOT ET EXTRLI
  3. C SI PAS DE NOMBRE EN ARGUMENT REND TOUS LES COTES CONNUS DIRECTEMENT
  4. SUBROUTINE PRCOTE
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCOPTIO
  7. -INC SMELEME
  8. -INC CCGEOME
  9. CALL LIRENT(INUM,0,IRETOU)
  10. IF (IRETOU.EQ.1.AND.(INUM.GT.4.OR.INUM.LT.1)) CALL ERREUR(24)
  11. CALL LIROBJ('MAILLAGE',IPT1,1,IRETO)
  12. IF (IERR.NE.0) RETURN
  13. SEGACT IPT1
  14. IF (IPT1.LISOUS(/1).NE.0) CALL ERREUR(25)
  15. IF (KSURF(IPT1.ITYPEL).EQ.0) CALL ERREUR(24)
  16. IF (IERR.NE.0) RETURN
  17. IF (IRETOU.EQ.0) GOTO 10
  18. CALL EXTRLI(IPT1,INUM,IRET,1)
  19. IF (IERR.NE.0) RETURN
  20. CALL ECROBJ('MAILLAGE',IRET)
  21. SEGDES IPT1
  22. RETURN
  23. 10 CONTINUE
  24. IF (IPT1.LISREF(/1).EQ.0) CALL ERREUR(24)
  25. IF (IERR.NE.0) RETURN
  26. NBCT=IPT1.LISREF(/1)
  27. DO 11 I=1,NBCT
  28. II=NBCT+1-I
  29. ICOT=IPT1.LISREF(II)
  30. CALL ECROBJ('MAILLAGE',ICOT)
  31. 11 CONTINUE
  32. SEGDES IPT1
  33. RETURN
  34. END
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  

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