Télécharger la plaquette Cast3M


fr en

Télécharger mult.eso

Retour à la liste

Numérotation des lignes : 

mult

  1. C MULT      SOURCE    CB215821  15/06/25    21:15:04     8553
  2.       SUBROUTINE MULT
  3.       IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7.  
  8. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  9. C
  10. C  Operateur MULT
  11. C
  12. C  OBJET       : Donne VRAI IP1 est multiple de IP2
  13. C  SYNTAXE     : LOGI1 = MULT ENTI1 ENTI2
  14. C
  15. C  CORRECTIONS :
  16. C    - 2015/06/26 CB215821 : Retourne FAUX si IP2 = 0
  17. C
  18. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  19.       LOGICAL IR
  20.       ICOD=1
  21.       CALL LIRENT (IP1,ICOD,IRETOU)
  22.       IF(IERR.NE.0)  RETURN
  23.       CALL LIRENT (IP2,ICOD,IRETOU)
  24.       IF(IERR.NE.0)  RETURN
  25.  
  26.       IF (IP2 .EQ. 0) THEN
  27.         IR=.FALSE.
  28.       ELSE
  29.         IR1=MOD(IP1,IP2)
  30.         IR=IR1.EQ.0
  31.       ENDIF
  32.  
  33.       CALL ECRLOG(IR)
  34.  
  35.       RETURN
  36.       END
  37.  
  38.  

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