24.11.2014 Views

Open Watcom FORTRAN 77 Language Reference

Open Watcom FORTRAN 77 Language Reference

Open Watcom FORTRAN 77 Language Reference

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

<strong>Language</strong> <strong>Reference</strong><br />

12.3.13 Remainder<br />

Definition:<br />

Name:<br />

MOD (generic)<br />

MOD<br />

mod(a1,a2) = a1-int(a1/a2)*a2<br />

Usage:<br />

I ←MOD(I,I), I1 ←MOD(I1,I1) †, I2 ←MOD(I2,I2) †, R ←MOD(R,R), D<br />

←MOD(D,D),<br />

I ←MOD(I,I)<br />

I1MOD I1 ←I1MOD(I1,I1) †<br />

I2MOD I2 ←I2MOD(I2,I2) †<br />

AMOD<br />

DMOD<br />

Notes:<br />

R ←AMOD(R,R)<br />

D ←DMOD(D,D)<br />

The value of int(X) is X if X is of type INTEGER. If X is of type REAL or DOUBLE<br />

PRECISION, then int(X) is 0 if |X| 1.<br />

If X is of type COMPLEX or COMPLEX*16, int(X) is int(real part of X).<br />

The value of MOD, I1MOD, I2MOD, AMOD or DMOD is undefined if the value of<br />

a2 is 0.<br />

12.3.14 Transfer of Sign<br />

Definition: sign(a1,a2) = |a1| if a2>=0; -|a1| if a2

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!