Télécharger queval.eso

Retour à la liste

Numérotation des lignes :

  1. C QUEVAL SOURCE CHAT 06/03/16 21:25:10 5336
  2. SUBROUTINE QUEVAL(IRAN,CTYPE,IERT,IVAL,XVAL,CHAVAL,LOGVAL,IOBVAL)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCOPTIO
  5. -INC CCNOYAU
  6. -INC CCASSIS
  7. LOGICAL LOGVAL
  8. CHARACTER*(*) CTYPE,CHAVAL
  9. REAL*8 XVAL
  10. IERT=0
  11. IF(IRAN.LE.0.AND.CTYPE.NE.'ENTIER ') THEN
  12. IERT=1
  13. RETURN
  14. ENDIF
  15. if(nbesc.ne.0) segact ipiloc
  16. IF(CTYPE.EQ.'ENTIER ') THEN
  17. IVAL=IRAN
  18. * RETURN
  19. ELSEIF(CTYPE.EQ.'FLOTTANT') THEN
  20. IF(IRAN.GT.LMNREE) THEN
  21. IERT=1
  22. RETURN
  23. ENDIF
  24. XVAL=XIFLOT(IRAN)
  25. * RETURN
  26. ELSEIF(CTYPE.EQ.'MOT ') THEN
  27. IF(IRAN.GT.LMNCHA) THEN
  28. IERT=1
  29. RETURN
  30. ENDIF
  31. ID=IPCHAR(IRAN)
  32. IFI=IPCHAR(IRAN+1)
  33. IL=MIN(IFI-ID,LEN(CHAVAL))
  34. CHAVAL=' '
  35. IVAL=IL
  36. CHAVAL(1:IL)=ICHARA(ID:IFI-1)
  37. * RETURN
  38. ELSEIF(CTYPE.EQ.'LOGIQUE ') THEN
  39. IF(IRAN.GT.LMNLOG) THEN
  40. IERT=1
  41. RETURN
  42. ENDIF
  43. LOGVAL=IPLOGI(IRAN)
  44. * RETURN
  45. ELSE
  46. IOBVAL=IRAN
  47. * RETURN
  48. ENDIF
  49. if(nbesc.ne.0) segdes ipiloc
  50. return
  51. END
  52.  
  53.  

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