Télécharger la plaquette Cast3M


fr en

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