Télécharger la plaquette Cast3M


fr en

Télécharger prcote.eso

Retour à la liste

Numérotation des lignes : 

prcote

  1. C PRCOTE    SOURCE    CB215821  19/08/20    21:20:29     10287          
  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.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC SMELEME
  10. -INC CCGEOME
  11.       CALL LIRENT(INUM,0,IRETOU)
  12.       IF (IRETOU.EQ.1.AND.(INUM.GT.4.OR.INUM.LT.1)) CALL ERREUR(24)
  13.       CALL LIROBJ('MAILLAGE',IPT1,1,IRETO)
  14.       CALL ACTOBJ('MAILLAGE',IPT1,1)
  15.       IF (IERR.NE.0) RETURN
  16.       SEGACT IPT1
  17.       IF (IPT1.LISOUS(/1).NE.0) CALL ERREUR(25)
  18.       IF (KSURF(IPT1.ITYPEL).EQ.0) CALL ERREUR(24)
  19.       IF (IERR.NE.0) RETURN
  20.       IF (IRETOU.EQ.0) GOTO 10
  21.       CALL EXTRLI(IPT1,INUM,IRET,1)
  22.       IF (IERR.NE.0) RETURN
  23.       CALL ACTOBJ('MAILLAGE',IRET,1)
  24.       CALL ECROBJ('MAILLAGE',IRET)
  25.       RETURN
  26.   10  CONTINUE
  27.       IF (IPT1.LISREF(/1).EQ.0) CALL ERREUR(24)
  28.       IF (IERR.NE.0) RETURN
  29.       NBCT=IPT1.LISREF(/1)
  30.       DO 11 I=1,NBCT
  31.       II=NBCT+1-I
  32.       ICOT=IPT1.LISREF(II)
  33.       CALL ACTOBJ('MAILLAGE',ICOT,1)
  34.       CALL ECROBJ('MAILLAGE',ICOT)
  35.   11  CONTINUE
  36.       END
  37.  
  38.  
  39.  

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