Wie Fortran konvertieren eine reelle Zahl

Question

Zum Beispiel auf Integer,

SUBROUTINE DoSomething (Z,L)        
    IMPLICIT DOUBLE PRECISION (A-H,O-Z)        

    D=Z*77.1234567D0           
    L=D              

    RETURN               
END  

Und für Zwecke sprechen, wollen wir annehmen, D zu -1,5, wäre in diesem Fall L gleich zu -1 gleich oder -2. Mit anderen Worten, wird abgerundet oder abgerundet?

Vielen Dank im Voraus.

Answer 1

Die Konvertierung in einen Integer-Typ für die Zuweisung folgt der Verwendung der intrinsischen Funktion int. Der Effekt ist definiert als (F2008 13.7.81)

Wenn A vom Typ real ist, gibt es zwei Fälle: wenn | A | < 1, INT (A) hat den Wert 0; wenn | A | ≥1, INT (A) ist die ganze Zahl, deren Betrag die größte ganze Zahl, die nicht die Größe eines nicht überschreitet und dessen Vorzeichen ist das gleiche wie das Vorzeichen von A.

In diesem Fall wird dann, L wird Nimm den Wert -1.

Answer 2

Verwenden Sie entweder NINT(), die die nächste ganze Zahl ist, oder INT(). INT() gibt nur den vorzeichenbehafteten ganzzahligen Teil einer Zahl zurück. NINT() funktioniert wie folgt:

Wenn a größer als Null ist, hat NINT (a) den Wert INT (a + 0,5); Wenn a kleiner oder gleich Null ist, hat NINT (a) den Wert INT (a - 0,5).

Insbesondere NINT(0.5d0) = 1