Télécharger reper.eso

Retour à la liste

Numérotation des lignes :

  1. C REPER SOURCE CHAT 06/03/16 21:25:35 5336
  2. SUBROUTINE REPER(IRR)
  3. IMPLICIT INTEGER(I-N)
  4. SEGMENT MTOT
  5. CHARACTER*(8) MTY(0)
  6. ENDSEGMENT
  7. -INC CCNOYAU
  8. -INC CCOPTIO
  9. -INC TMLCHA8
  10. CHARACTER*(*) IRR
  11. CHARACTER*(8) CTYP
  12. SEGINI MTOT
  13. IF(IRR.NE.' ') THEN
  14. MTY(**)=IRR
  15. DO 11 I=1,LMNNOM
  16. IF(INOOB2(I).EQ.IRR) GOTO 10
  17. 11 CONTINUE
  18. MOTERR(1:8)=MTY(1)
  19. CALL ERREUR(-14)
  20. SEGSUP MTOT
  21. RETURN
  22. ENDIF
  23. DO 1 I=1,LMNNOM
  24. DO 2 J=1,MTY(/2)
  25. IF(INOOB2(I).EQ.MTY(J)) GO TO 1
  26. 2 CONTINUE
  27. IF(INOOB2(I).EQ.' ') GO TO 1
  28. MTY(**)=INOOB2(I)
  29. 1 CONTINUE
  30. IF(MTY(/2).EQ.0) THEN
  31. CALL ERREUR (26)
  32. SEGSUP MTOT
  33. RETURN
  34. ENDIF
  35. 10 CONTINUE
  36. DO 3 II=1,MTY(/2)
  37. CTYP=MTY(II)
  38. CALL REPLIS(CTYP,MLCHA8)
  39. SEGACT MLCHA8
  40. IF(MLCHAR(/2).EQ.0) GO TO 4
  41. MOTERR(1:8)= CTYP
  42. CALL ERREUR(-15)
  43. ILO=MLCHAR(/2)
  44. WRITE(IOIMP,102) (MLCHAR(I),I=1,ILO)
  45. 102 FORMAT(8(1X,A8))
  46. 4 CONTINUE
  47. SEGSUP MLCHA8
  48. 3 CONTINUE
  49. SEGSUP MTOT
  50. RETURN
  51. END
  52.  
  53.  

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