Text (String) in Zahl konvertieren

Eine Textvariable mit dem Inhalt "123.5" ist immer noch ein Text. Man kann damit nicht rechnen. Dazu muss der Text in eine Zahl konvertiert werden.

C     Text in eine Zahl konvertieren

C     

C     Aufruf:

C     CALL PCO001 (TEXTVAR,RZAHL,IERR,LUWRIT,LUREAD)

C     

C     Folgende Variablen müssen zuvor festgelegt werden:

C     

C     TEXTVAR : Text, der umgewandelt werden soll

C     RZAHL   : Ergebnis als Realwert

C     IERR    : Fehlercode der Funktion

C               0 = die Umwandlung war erfolgreich

C               1 = die Umwandlung war nicht erfolgreich

C     LUWRIT  : wird nicht ausgewertet, muss aber angegeben werden

C     LUREAD  : wird nicht ausgewertet, muss aber angegeben werden

C     

C     HINWEIS: Die Textvariable TEXTVAR muss im Programmkopf deklariert

C              werden!

C     CHARACTER *80 TEXTVAR

C     

C     Beispiel:

C     ------------------------------

C     Text in eine Zahl konvertieren

C     ------------------------------

      TEXTVAR = "123.5"

C     

      CALL PCO001 (TEXTVAR,RZAHL,IERR,LUWRIT,LUREAD)

C     

C     Die Ausgabe mit der Anweisung:

      WRITE(6,*)RZAHL

C     

C     ergibt: 123.5

C     

C     HINWEIS: TEXTVAR darf nur Ziffern und das Dezimalzeichen enthalten.

C              Als Dezimalzeichen ist hier sowohl der Punkt (.) als auch

C              das Komma (,) erlaubt.

C              Wenn die Umwandlung fehlschlägt, ist RZAHL gleich 0 und

C              IERR ist 1.

C