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.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. REAL*8 XVAL
  16. CHARACTER*(*)CHAR,CHARV
  17. LOGICAL LOGI
  18. IF(CHAR.EQ.'ENTIER ') THEN
  19. IRET=IVAL
  20. ELSEIF(CHAR.EQ.'FLOTTANT') THEN
  21. call posree(xval,iret)
  22. RETURN
  23. ELSEIF(CHAR.EQ.'MOT ') THEN
  24. IL=LEN(CHARV)
  25. IF(IVAL.NE.0) IL=IVAL
  26. CALL POSCHA(CHARV(1:IL),IRET)
  27. RETURN
  28. ELSEIF(CHAR.EQ.'LOGIQUE ') THEN
  29. call poslog(logi,iret)
  30. RETURN
  31. ELSE
  32. IRET=IOB
  33. RETURN
  34. ENDIF
  35. END
  36.  
  37.  

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