matheraum.de
Raum für Mathematik
Offene Informations- und Nachhilfegemeinschaft

Für Schüler, Studenten, Lehrer, Mathematik-Interessierte.
Hallo Gast! [ einloggen | registrieren ]
Startseite · Forum · Wissen · Kurse · Mitglieder · Team · Impressum
Forenbaum
^ Forenbaum
Status Hochschulmathe
  Status Uni-Analysis
    Status Reelle Analysis
    Status UKomplx
    Status Uni-Kompl. Analysis
    Status Differentialgl.
    Status Maß/Integrat-Theorie
    Status Funktionalanalysis
    Status Transformationen
    Status UAnaSon
  Status Uni-Lin. Algebra
    Status Abbildungen
    Status ULinAGS
    Status Matrizen
    Status Determinanten
    Status Eigenwerte
    Status Skalarprodukte
    Status Moduln/Vektorraum
    Status Sonstiges
  Status Algebra+Zahlentheo.
    Status Algebra
    Status Zahlentheorie
  Status Diskrete Mathematik
    Status Diskrete Optimierung
    Status Graphentheorie
    Status Operations Research
    Status Relationen
  Status Fachdidaktik
  Status Finanz+Versicherung
    Status Uni-Finanzmathematik
    Status Uni-Versicherungsmat
  Status Logik+Mengenlehre
    Status Logik
    Status Mengenlehre
  Status Numerik
    Status Lin. Gleich.-systeme
    Status Nichtlineare Gleich.
    Status Interpol.+Approx.
    Status Integr.+Differenz.
    Status Eigenwertprobleme
    Status DGL
  Status Uni-Stochastik
    Status Kombinatorik
    Status math. Statistik
    Status Statistik (Anwend.)
    Status stoch. Analysis
    Status stoch. Prozesse
    Status Wahrscheinlichkeitstheorie
  Status Topologie+Geometrie
  Status Uni-Sonstiges

Gezeigt werden alle Foren bis zur Tiefe 2

Navigation
 Startseite...
 Neuerdings beta neu
 Forum...
 vorwissen...
 vorkurse...
 Werkzeuge...
 Nachhilfevermittlung beta...
 Online-Spiele beta
 Suchen
 Verein...
 Impressum
Das Projekt
Server und Internetanbindung werden durch Spenden finanziert.
Organisiert wird das Projekt von unserem Koordinatorenteam.
Hunderte Mitglieder helfen ehrenamtlich in unseren moderierten Foren.
Anbieter der Seite ist der gemeinnützige Verein "Vorhilfe.de e.V.".
Partnerseiten
Weitere Fächer:

Open Source FunktionenplotterFunkyPlot: Kostenloser und quelloffener Funktionenplotter für Linux und andere Betriebssysteme
Startseite > MatheForen > Fortran > Problem mit Ausgabedatei
Foren für weitere Studienfächer findest Du auf www.vorhilfe.de z.B. Astronomie • Medizin • Elektrotechnik • Maschinenbau • Bauingenieurwesen • Jura • Psychologie • Geowissenschaften
Forum "Fortran" - Problem mit Ausgabedatei
Problem mit Ausgabedatei < Fortran < Programmiersprachen < Praxis < Informatik < Vorhilfe
Ansicht: [ geschachtelt ] | ^ Forum "Fortran"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien

Problem mit Ausgabedatei: Frage (beantwortet)
Status: (Frage) beantwortet Status 
Datum: 11:57 Mi 30.06.2010
Autor: Tyskie84

Hallo,

ich habe eben ein Programm geschrieben zum Einlesen von Daten. Fortran tuts bis auf einen Schönheitsfehler. Kann mir da jmd helfen?

Datei sieht wie folgt aus:


023370 99999  20100320    38.2 23    29.4 23  9999.9  0  9999.9  0  999.9  0    1.7 23    7.8  999.9    50.0*   26.8* 99.99  999.9  010000

025180 99999  19730101    33.3  8    29.8  8  1027.3  8  9999.9  0    9.0  8   14.2  8   34.0  999.9    35.6    32.0*  0.00F 999.9  000000

025180 99999  19730102    35.8  8    33.6  8  1025.0  8  9999.9  0    6.0  8   15.7  8   20.0  999.9    39.2    32.0   0.00F 999.9  010000

025180 99999  19730103    39.4  8    37.6  8  1022.8  8  9999.9  0   11.9  8   13.7  8   22.0  999.9    41.0    37.4*  0.04E 999.9  010000

025180 99999  19730104    37.7  7    35.9  7  1029.4  7  9999.9  0   15.5  6    9.9  7   15.9  999.9    41.0    35.6*  0.00E 999.9  100000

Fortranprogram

PROGRAM READ_IN


IMPLICIT NONE

INTEGER i,M
PARAMETER (M=11917)
INTEGER stn(M)
INTEGER wban(M)
INTEGER date(M)
INTEGER counta(M)
INTEGER countb(M)
INTEGER countc(M)
INTEGER countd(M)
INTEGER counte(M)
INTEGER countf(M)
REAL temp(M)
REAL dewp(M)
REAL slp(M)
REAL stp(M)
REAL visib(M)
REAL wdsp(M)
REAL mxspd(M)
REAL gust(M)
CHARACTER*7 maxi(M)
CHARACTER*7 mini(M)
CHARACTER*6 prcp(M)
REAL sndp(M)
INTEGER frshtt(M)


OPEN(10,FILE="/home/*******/Desktop/025180.txt")
DO i=1,M
   READ(10,'(I6,1X,I5,2X,I8,3X,F5.1,1X,I2,2X,F6.1,1X,I2,2X,F6.1,1X,I2,2X,F6.1,1X,I2,2X,F5.1,1X,I2,2X,F5.1,1X,I2,2X,F5.1,2X,F5.1,2X,A7,1X,A7,1X,A6,1X,F5.1,2X,I6)') stn(i),wban(i),date(i),temp(i),counta(i),dewp(i),countb(i),slp(i),countc(i),stp(i),countd(i),visib(i),counte(i),wdsp(i),countf(i),mxspd(i),gust(i),maxi(i),mini(i),prcp(i),sndp(i),frshtt(i)



ENDDO
PRINT*, stn(1),wban(1),date(1),temp(1),counta(1),dewp(1),countb(1),slp(1),countc(1),stp(1),countd(1),visib(1),counte(1),wdsp(1),countf(1),mxspd(1),gust(1),maxi(1),mini(1),prcp(1),sndp(1),frshtt(i)


OPEN(20,FILE="/home/******/Desktop/test.txt")
DO i=1,M
   WRITE(20,'(I6,1X,I5,2X,I8,3X,F5.1,1X,I2,2X,F6.1,1X,I2,2X,F6.1,1X,I2,2X,F6.1,1X,I2,2X,F5.1,1X,I2,2X,F5.1,1X,I2,2X,F5.1,2X,F5.1,2X,A7,1X,A7,1X,A6,1X,F5.1,2X,I6)') stn(i),wban(i),date(i),temp(i),counta(i),dewp(i),countb(i),slp(i),countc(i),stp(i),countd(i),visib(i),counte(i),wdsp(i),countf(i),mxspd(i),gust(i),maxi(i),mini(i),prcp(i),sndp(i),frshtt(i)

ENDDO
CLOSE(20)
CLOSE(10)

        END

Ausgabedatei

23370 99999  20100320    38.2 23    29.4 23  9999.9  0  9999.9  0  999.9  0    1.7 23    7.8  999.9    50.0*   26.8* 99.99  999.9   10000
25180 99999  19730101    33.3  8    29.8  8  1027.3  8  9999.9  0    9.0  8   14.2  8   34.0  999.9    35.6    32.0*  0.00F 999.9       0
25180 99999  19730102    35.8  8    33.6  8  1025.0  8  9999.9  0    6.0  8   15.7  8   20.0  999.9    39.2    32.0   0.00F 999.9   10000
25180 99999  19730103    39.4  8    37.6  8  1022.8  8  9999.9  0   11.9  8   13.7  8   22.0  999.9    41.0    37.4*  0.04E 999.9   10000
25180 99999  19730104    37.7  7    35.9  7  1029.4  7  9999.9  0   15.5  6    9.9  7   15.9  999.9    41.0    35.6*  0.00E 999.9  100000


Es fehlt die "0" vor 25180 usw. Das Ende der Augabedatei stimmt auch nicht ganz. Woran kann das liegen?

[hut] Gruß
        
Bezug
Problem mit Ausgabedatei: Frage (beantwortet)
Status: (Frage) beantwortet Status 
Datum: 20:47 Mi 30.06.2010
Autor: rainerS

Hallo!

> Es fehlt die "0" vor 25180 usw. Das Ende der Augabedatei
> stimmt auch nicht ganz. Woran kann das liegen?

In gibt eine Integer in einem Feld der Breite n aus und unterdrückt führende Nullen.

In.m gibt eine Integer in einem Feld der Breite n mit mindestens m Ziffern und führenden Nullen aus.

[guckstduhier][]http://www.fortran.com/F77_std/rjcnf0001-sh-13.html#sh-13.5.9.1

Viele Grüße
   Rainer
Bezug
                
Bezug
Problem mit Ausgabedatei: Frage (beantwortet)
Status: (Frage) beantwortet Status 
Datum: 21:49 Mi 30.06.2010
Autor: Tyskie84

Hallo Rainer,

danke für den Link! Ich habe mir diesen Abschnitt durchgelesen doch leider weiß ich nich so recht wie ich das umsetzen soll. Liegt der Fehler jetzt bei der Auführung des Programms oder im Programm selbst. Und wenn ja was genau muss ich da ändern?

[hut] Gruß
Bezug
                        
Bezug
Problem mit Ausgabedatei: Antwort
Status: (Antwort) fertig Status 
Datum: 07:53 Do 01.07.2010
Autor: rainerS

Hallo!

> danke für den Link! Ich habe mir diesen Abschnitt
> durchgelesen doch leider weiß ich nich so recht wie ich
> das umsetzen soll. Liegt der Fehler jetzt bei der
> Auführung des Programms oder im Programm selbst. Und wenn
> ja was genau muss ich da ändern?

Die Frage ist eher: was soll dein Programm machen? Du liest ganze Zahlen ein und gibst sie wieder aus. Dabei werden ie führenden Nullen weggelassen, aber die machen bei Zahlen nunmal keinen Unterscheid im Wert.

Ich vermute eher, dass es nicht wirklich Zahlen sind, sondern Strings, die nur aus Ziffern bestehen. Dann solltest du sie auch mit A und nicht mit I einlesen und ausgeben.

Viele Grüße
   Rainer
Bezug
Ansicht: [ geschachtelt ] | ^ Forum "Fortran"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien


^ Seitenanfang ^
www.unimatheforum.de
[ Startseite | Forum | Wissen | Kurse | Mitglieder | Team | Impressum ]