Télécharger queran.eso

Retour à la liste

Numérotation des lignes :

  1. C QUERAN SOURCE CHAT 06/03/16 21:25:05 5336
  2. SUBROUTINE QUERAN (IRET,CHAR,IVAL,XVAL,CHARV,LOGI,IOB)
  3. C
  4. C **** CE SUB CHERCHE DANS LES PILES QUEL RANG A UNE VALEUR
  5. C *** SI CETTE VALEUR N'Y EST PAS IL L'Y MET.
  6. C
  7. C **** DANS LE CAS D'UN MOT SI IVAL EST NON NUL IL INDIQUE LA
  8. C **** LONGUEUR DU MOT A PRENDRE EN COMPTE
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. -INC CCNOYAU
  12. -INC CCOPTIO
  13. REAL*8 XVAL
  14. CHARACTER*(*)CHAR,CHARV
  15. LOGICAL LOGI
  16. IF(CHAR.EQ.'ENTIER ') THEN
  17. IRET=IVAL
  18. ELSEIF(CHAR.EQ.'FLOTTANT') THEN
  19. call posree(xval,iret)
  20. RETURN
  21. ELSEIF(CHAR.EQ.'MOT ') THEN
  22. IL=LEN(CHARV)
  23. IF(IVAL.NE.0) IL=IVAL
  24. CALL POSCHA(CHARV(1:IL),IRET)
  25. RETURN
  26. ELSEIF(CHAR.EQ.'LOGIQUE ') THEN
  27. call poslog(logi,iret)
  28. RETURN
  29. ELSE
  30. IRET=IOB
  31. RETURN
  32. ENDIF
  33. END
  34.  
  35.  

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