Télécharger queval.eso

Retour à la liste

Numérotation des lignes :

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

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