Télécharger mult.eso

Retour à la liste

Numérotation des lignes :

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

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