Télécharger listob.eso

Retour à la liste

Numérotation des lignes :

  1. C LISTOB SOURCE CB215821 18/05/23 21:15:04 9825
  2.  
  3. SUBROUTINE LISTOB (ITYP,IA,ILISOB,ICLE)
  4. C
  5. C **** Si ICLE=0
  6. C **** Renvoie dans IA le nombre max possible
  7. C **** Sinon
  8. C **** CREE la liste des OBJETS DE TYPE ITYP
  9. C **** et retourne leur nombre dans IA
  10. C
  11. IMPLICIT INTEGER(I-N)
  12. IMPLICIT REAL*8(A-H,O-Z)
  13.  
  14. -INC CCNOYAU
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19. DIMENSION ILISOB(*)
  20. CHARACTER*(*) ITYP
  21.  
  22. IF(ICLE.EQ.0) THEN
  23. IA = LMNNOM
  24. RETURN
  25. ENDIF
  26.  
  27. IA=0
  28. ILONG=LMNNOM
  29. IF(ILONG.EQ.0) RETURN
  30. DO 1 I=1,ILONG
  31. IF(INOOB1(I) .EQ. 1) GOTO 1
  32. IF(INOOB2(I) .NE. ITYP) GOTO 1
  33. IF(INOOB2(I) .EQ. 'ANNULE ') GOTO 1
  34. IF(IOUEP2(I) .LE. 0 .AND. ITYP .NE. 'ENTIER') THEN
  35. write (6,*) ' incoherence listob ',ITYP,I,IOUEP2(I)
  36. GOTO 1
  37. ENDIF
  38. IA=IA+1
  39. ILISOB(IA)=IOUEP2(I)
  40. 1 CONTINUE
  41. RETURN
  42. END
  43.  
  44.  

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