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. -INC CCOPTIO
  16.  
  17. DIMENSION ILISOB(*)
  18. CHARACTER*(*) ITYP
  19.  
  20. IF(ICLE.EQ.0) THEN
  21. IA = LMNNOM
  22. RETURN
  23. ENDIF
  24.  
  25. IA=0
  26. ILONG=LMNNOM
  27. IF(ILONG.EQ.0) RETURN
  28. DO 1 I=1,ILONG
  29. IF(INOOB1(I) .EQ. 1) GOTO 1
  30. IF(INOOB2(I) .NE. ITYP) GOTO 1
  31. IF(INOOB2(I) .EQ. 'ANNULE ') GOTO 1
  32. IF(IOUEP2(I) .LE. 0 .AND. ITYP .NE. 'ENTIER') THEN
  33. write (6,*) ' incoherence listob ',ITYP,I,IOUEP2(I)
  34. GOTO 1
  35. ENDIF
  36. IA=IA+1
  37. ILISOB(IA)=IOUEP2(I)
  38. 1 CONTINUE
  39. RETURN
  40. END
  41.  
  42.  

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