Télécharger la plaquette Cast3M


fr en

Télécharger suite1.eso

Retour à la liste

Numérotation des lignes : 

suite1

  1. C SUITE1    SOURCE    CHAT      05/01/13    03:26:29     5004
  2.       SUBROUTINE SUITE1
  3. ************************************************************************
  4. *
  5. *                             S U I T E 1
  6. *                             -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. *     CREER UNE SUITE DE 'CHPOINT' ('LISTCHPO').
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. *     CALL SUITE1
  17. *
  18. * SOUS-PROGRAMMES APPELES:
  19. * ------------------------
  20. *
  21. *     LIRE, ECRIRE.
  22. *
  23. * AUTEUR, DATE DE CREATION:
  24. * -------------------------
  25. *
  26. *     PASCAL MANIGOT     19 FEVRIER 1985
  27. *
  28. * LANGAGE:
  29. * --------
  30. *
  31. *     ESOPE + FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS.
  32. *
  33. ************************************************************************
  34. *
  35.       IMPLICIT INTEGER(I-N)
  36. -INC SMLCHPO
  37. *
  38.       PARAMETER (INFINI = 9999)
  39. *
  40. *
  41. *
  42.       N1 = 0
  43.       SEGINI,MLCHPO
  44.       IPLCHP = MLCHPO
  45. *
  46.       ICODE = 0
  47.       DO 100 IB100=1,INFINI
  48.          CALL LIROBJ ('CHPOINT',IPCHPO,ICODE,IRETOU)
  49.          IF (IRETOU .EQ. 1) THEN
  50.             ICHPOI(**) = IPCHPO
  51.          ELSE
  52. *           --> SORTIE DE BOUCLE N.100
  53.             GOTO 102
  54.          END IF
  55.   100    CONTINUE
  56. *     END DO
  57.   102 CONTINUE
  58. *
  59.       SEGDES,MLCHPO
  60. *
  61.       CALL ECROBJ ('LISTCHPO',IPLCHP)
  62. *
  63.       END
  64.  
  65.  

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