Fortran: Umgang mit integer-Werten Größe: ~700000000000

Derzeit bin ich Bürsten bis auf meine Fortran95 wissen (frag nicht warum)...

Ich bin mit in zu ein problem sein. Wie geht man mit großen zahlen, zB. Größe: ~700000000000

INTEGER(KIND=3) nicht halten diese Zahl.
Wenn jemand interessiert ist, die compiler, die ich zur Verfügung hab Silverfrost FTN95.

Ich bin mit die ganze Zahl durch eine größere Datenmenge.

Haben Sie irgendwelche Vorschläge?

Wenn man Fragen darf, für was braucht man eine solche Reihe ?

InformationsquelleAutor Daniel | 2010-03-05

16

Den standard-Lösung (seit Fortran 95, also ich nehme an, dein compiler unterstützt), ist die Verwendung der SELECTED_INT_KIND spezifischen Sonde für gültige integer-Arten (deren Werte sind compiler-abhängig) und die RIESIGE immanent.
- SELECTED_INT_KIND (R) gibt die Art Typ-parameter von einem integer-Typ repräsentiert alle ganzzahligen Werte n mit -10^R < n < 10^R (und gibt -1 zurück, wenn kein solcher vorhanden ist).
- HUGE (K) liefert die größte Darstellbare Zahl in integer-Typ der Art K.
Zum Beispiel auf meinem Mac mit einem x86_64-Prozessor (gfortran compiler, 64-bit-Modus) das folgende Programm:
```
  print *, selected_int_kind(1)
  print *, selected_int_kind(4)
  print *, selected_int_kind(8)
  print *, selected_int_kind(16)
  print *, selected_int_kind(32)
  print *, selected_int_kind(64)
  print *, huge(0_1)
  print *, huge(0_2)
  print *, huge(0_4)
  print *, huge(0_8)
  print *, huge(0_16)
  end
```
Ausgänge:
```
           1
           2
           4
           8
          16
          -1
  127
  32767
  2147483647
  9223372036854775807
 170141183460469231731687303715884105727
```
was mir sagt, dass ich verwenden würde, ein integer(kind=8) für Ihren job.
- Art-Nummern sind NICHT tragbar. Insbesondere angesichts der Tatsache, dass der OP verwendet kind=3 - und Fortran, Silverfrost dann kind=8 ist nicht eine gute Sache. Es gibt keine Art 8 in Fortran, Silverfrost. Zumindest nicht in den normalen Einstellungen. Man kann nur direkt verwenden selected_int_kind (12) in eine benannte Konstante, wie gezeigt, in anderen Antworten.
InformationsquelleAutor F'x
7

Portable zu deklarieren integer "index", die mindestens 12 Dezimalstellen ist:
```
integer, parameter :: MyLongIntType = selected_int_kind (12)
integer (kind=MyLongIntType) :: index
```
Die "Art=" weggelassen werden kann.

Mithilfe bestimmter Werte wie 3 ist absolut nicht tragbar und wird nicht empfohlen. Einige Compiler die Typ-Nummern nacheinander ein, andere nutzen die Anzahl der bytes. Die "selected_int_kind" zurück, die Art, die Anzahl der die kleinste ganze Zahl, die Art zur Verfügung, die für den compiler, die darstellen können, dass die angeforderte Anzahl von Ziffern. Wenn kein solcher Typ vorhanden ist, wird -1 zurückgegeben und der Wert wird scheitern, wenn die verwendete Art Wert zu deklarieren Sie eine integer.

Sowohl gfortran und ifort Rückkehr eine Art für decimal digits input zu selected_int_kind bis zum 18. Große Werte wie 18 wird in der Regel wählen Sie eine 8-byte-Ganzzahl mit einem größten positiven Wert 9223372036854775807. Dieser hat 19 stellen, aber wenn ein compiler unterstützt diesen Typ aber nicht mehr ein, selected_int_kind (19) werden mit -1, weil nicht alle 19-stelligen ganzen zahlen darstellbar sind.

InformationsquelleAutor M. S. B.
6

Gibt es eine Reihe von kostenlosen eine beliebige Präzision Bibliotheken verfügbar für Fortran-was würde mit diesem problem umzugehen. FMLIB ist. Fünf oder sechs weitere alternativen sind von dieser Seite aus verlinkt.

InformationsquelleAutor ire_and_curses
2

Wenn Sie es als loop control variable, aber nicht mit den integer-direkt (ich glaube, das können Sie nicht, da Sie nicht können, deklarieren Sie ein array größer als der größte index darstellbar sein, oder?), dann denke ich, dass das, was zu tun ist, teilen Sie die Welpen von so etwas wie 100000 nest und seine Schleife in eine andere Schleife, die durchläuft, dass viele Male.
- Leider bin ich.. Das problem ist tatsächlich das problem zu finden, die grosste wichtigste Faktor, der eine gigantische Zahl.. Die Idee ist Reine bruteforce gefolgt von einem smar Lösung, wenn ich jemals eines finden. Die aktuelle Idee ist, die folgenden aber aus offensichtlichen Gründen, dass isen nicht wirklich möglich: INTEGER :: I=0,J=0,STATUS=0,LARGE_DIV=0 long MAX=7100000000000 DO I=2,MAX STATUS=0 DO J=2,I WENN (MOD(I,J)==0) STATE=STATE+1 IF (STATE>=2) EXIT END DO IF (STATE >=2) ZYKLUS, WENN (MOD(MAX I)==0) LARGE_DIV=I END DO WRITE(,)LARGE_DIV
- Das klingt wie ein job für eine bignum-Bibliothek. Sicherlich gibt es ein um für Fortran...
InformationsquelleAutor T.E.D.
0

Haben Sie versucht, INTEGER(KIND=4)?
- Ja.. soweit ich sehen kann, die höchste Modifikation erlaubt ist, Art=3.. der compiler Fehler wäre: C:\FTN_Projects\xxxxxx.F95(3) : Fehler 217 - INTEGER(KIND=3) constant out of range (Art=3) wird durch den compiler, geliefert argument ist Art=4
InformationsquelleAutor JEK
0

Unsere Antwort darauf war, den Wert in eine double-precision-variable und nicht eine KRAFT auf Sie, um loszuwerden, keine gebrochene Teile.
Die Ergebnisse sind eine ganze Zahl platziert in einer double-precision-variable.
Die Funktion DINT ist nicht immer für alle FORTRANs. Die Funktion ist eine double-precision-integer-Funktion und dies ermöglicht es für sehr große zahlen (bis zu 17-stellig).

InformationsquelleAutor Dave

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.