Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Fortran Code - Fehler trotz richtiger Ausgabe

Mitglied: wolkig

wolkig (Level 1) - Jetzt verbinden

01.09.2011, aktualisiert 13:37 Uhr, 2339 Aufrufe, 1 Kommentar

Kompiliertes Fortran Programm gibt richtige Ausgabe, aber erzeugt einen Fehler durch Windows

Hi,

derzeit sitze ich an einem Fortran Code, welchen ich für eine Formatierung von Werten nutzen möchte. Nachdem die model2grid.f mit gfortran fehlerfrei kompiliert wurde und die erzeugte EXE DAtei aufrufe, wird das Skript ordnungsgemäß ausgeführt, aber stoppt mit einer Windows-Fehlermeldung: model2grid.exe funktioniert nicht mehr. Leider bekomme ich es selbst nicht gelöst, da ich mit Fortran noch nicht programmiert habe. Habt ihr die Lösung, wo sich der Fehler versteckt hat? Es ruft die folgende Datei auf:

01.
2007  12  01  00      0  53.547831  7.667337     12.0 
02.
2007  12  01  00      1  52.7233  7.3264     10.0 
03.
2007  12  01  00      2  52.291170  7.386997     11.0 
04.
2007  12  01  00      3  52.5903  8.3464     12.0 
05.
2007  12  01  00      4  53.7647  8.6575     12.0 
06.
2007  12  01  00      5  53.128594  6.586841     12.0 
07.
2007  12  01  00      6  53.5322  7.8806     12.0 
08.
2007  12  01  00      7  53.388004  7.228682     13.0 
09.
2007  12  01  00      8  53.712246  7.152294     14.4 
10.
2007  12  01  00      9  53.049312  8.788577     12.3 
11.
2007  12  01  00      10  52.1353  7.7000     12.0 
Der Text soll formatiert ausgegeben werden und zusätzlich eine ctl Datei ausgeben, in der das Datum aus der Textdatei entnommen wird. Die beiden Ausgaben sehen folgendermaßen aus:

Die formatierte station2modelgrid.txt
01.
2007  12  01  00      0             53.548       7.667      12.000
02.
2007  12  01  00      1             52.723       7.326      10.000
03.
2007  12  01  00      2             52.291       7.387      11.000
04.
2007  12  01  00      3             52.590       8.346      12.000
05.
2007  12  01  00      4             53.765       8.658      12.000
06.
2007  12  01  00      5             53.129       6.587      12.000
07.
2007  12  01  00      6             53.532       7.881      12.000
08.
2007  12  01  00      7             53.388       7.229      13.000
09.
2007  12  01  00      8             53.712       7.152      14.400
10.
2007  12  01  00      9             53.049       8.789      12.300
11.
2007  12  01  00     10             52.135       7.700      12.000
12.
2007  12  01  00     11              0.000       0.000       0.000
und die ctl-Datei:
01.
 DSET   ^station2modelgrid.bin
02.
 DTYPE  station 
03.
 STNMAP station2modelgrid.map
04.
 ZDEF 1 1
05.
 UNDEF   -9.99e33
06.
 TITLE  Station Data
07.
TDEF   1 linear 00z01dec2007 12hr
08.
 VARS 1
09.
 var     0  99   **
10.
 ENDVARS
Das Fortran Skript:

01.
! INPUT FILE LOOKS LIKE (separeted by any number of spaces):
02.
!
03.
! (...)
04.
! yearwith4digits    monthwith2digits    daywith2digits    hourwith2digits    stationname    latitude       longitude            value
05.
! (...)
06.
!
07.
 
08.
	program CreateStation2ModelGrid
09.
 
10.
	parameter (nl=9999) ! nl: MAXIMUM NUMBER OF STATIONS
11.
 
12.
	real lat(nl),lon(nl),var(nl)
13.
	integer m2,y4,status
14.
        character (LEN=3) m2name(12)
15.
        character (LEN=2) d2,h2
16.
        character sid
17.
	open(unit=1,file='stationdata.txt')
18.
	open(unit=2,file='station2modelgrid.txt')
19.
	open(unit=10,file='station2modelgrid.ctl')
20.
 
21.
	i=0
22.
	do
23.
         read(1,*,END=21)y4,m2,d2,h2,sid,lat(i),lon(i),var(i)
24.
         if((lat(i).eq.lon(i)).and.(lon(i).eq.0))exit
25.
         i=i+1
26.
 20	end do
27.
 
28.
 21     if(d2(1:1).eq." ") then
29.
          d2(1:1)="0"
30.
        endif
31.
        if(d2(2:2).eq." ") then
32.
          d2(2:2)=d2(1:1); d2(1:1)="0"
33.
        endif
34.
        if(h2(1:1).eq." ") then
35.
          h2(1:1)="0"
36.
        endif
37.
        if(h2(2:2).eq." ") then
38.
          h2(2:2)=h2(1:1); h2(1:1)="0"
39.
        endif
40.
 
41.
        do 30 j=0,i
42.
!   Transforms the station name (sid) in an index number (i)
43.
        if(m2.lt.10) then
44.
         write(*,15)y4,"0",m2,d2,h2,j,lat(j),lon(j),var(j) !Dient nur zur Ausgaben im Terminal
45.
         write(2,15)y4,"0",m2,d2,h2,j,lat(j),lon(j),var(j)
46.
        else
47.
         write(*,14)y4,m2,d2,h2,j,lat(j),lon(j),var(j) !Dient nur zur Ausgaben im Terminal
48.
         write(2,14)y4,m2,d2,h2,j,lat(j),lon(j),var(j)
49.
        endif
50.
 30	continue
51.
 
52.
 14     format(i4,2x,i2,2x,a2,2x,a2,2x,i5,9x,f10.3,2x,f10.3,2x,f10.3)
53.
 15     format(i4,2x,a1,i1,2x,a2,2x,a2,2x,i5,9x,f10.3,2x,f10.3,2x,f10.3)
54.
 
55.
!!!!! Generating CTL
56.
 
57.
!! Picking the right m2 name
58.
        m2name=(/'jan','feb','mar','apr','may','jun','jul',
59.
     *'aug','sep','oct','nov','dec'/)
60.
 
61.
	write(10,*) "DSET   ^station2modelgrid.bin"
62.
	write(10,*) "DTYPE  station "
63.
	write(10,*) "STNMAP station2modelgrid.map"
64.
	write(10,*) "ZDEF 1 1"
65.
	write(10,*) "UNDEF   -9.99e33"
66.
	write(10,*) "TITLE  Station Data"
67.
	write(10,'(a16,a2,a1,a2,a3,i4,a5)') "TDEF   1 linear ",h2,
68.
     *"z",d2,m2name(m2),y4," 12hr"
69.
 	write(10,*) "VARS 1"
70.
	write(10,*) "var     0  99   **"
71.
	write(10,*) "ENDVARS"
72.
 
73.
	stop
74.
	end	program CreateStation2ModelGrid
Mitglied: Skyemugen
01.09.2011 um 18:44 Uhr
Aloha,

welches OS nutzt du? Windows XP? 7? x86? x64?

Ich frage deshalb, weil mir bei Windows 7 x64 z.B. sehr oft passiert, dass Windows der Meinung ist, ein Programm wurde nicht richtig ausgeführt oder die Installation war fehlerhaft, obwohl alles reibungslos ablief / funktionierte und Windows XP z.B. nie auch nur einmal rummuckt bei denselben Programmen / .exe-Dateien.

greetz André

P.S.: Das war auch das einzige, was ich diesbezüglich beitragen kann - Aber jede Information kann hilfreich sein, daher die Nachfrage.
Bitte warten ..
Ähnliche Inhalte
Windows Server
Richtig lizensiert?
gelöst Frage von MiStWindows Server25 Kommentare

Guten Morgen, ich hoffe, dass das keine FR-Frage ist, aber ich habe hier einen virtuellen Windows Server R2 2008 ...

Windows Systemdateien
Sysprep schlägt fehl
gelöst Frage von next01deWindows Systemdateien10 Kommentare

Hallo, wir möchten von unseren Computern ein neues Image machen (neuer Typ von PC). Allerdings schlägt der Sysprep ständig ...

Vmware

Richtig Templates erstellen, wie wäre es richtig?

Frage von DeathNoteVmware11 Kommentare

Hallo. Ich würde mir gerne für 2012R2 Win10 und Win7 Templates erstellen. Also Maschinen, die ich mal jederzeit mit ...

Verschlüsselung & Zertifikate

VPN richtig eingerichtet?

Frage von billy01Verschlüsselung & Zertifikate3 Kommentare

Hallo Leute, ich habe an meinem Windows Server ein VPN eingerichtet (nach folgendem Video:). Ich habe dann noch in ...

Neue Wissensbeiträge
Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 3 StundenInternet1 Kommentar

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 7 StundenWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 1 TagWindows 102 Kommentare

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Sicherheit

Heise Beitrag Passwort-Sammlung mit 773 Millionen Online-Konten im Netz aufgetaucht

Information von Penny.Cilin vor 1 TagSicherheit6 Kommentare

Auf Heise Online ist folgender Beitrag veröffentlicht worden: Heise Beitrag passwörter geleakt Ich bin mir jetzt nicht ganz sicher, ...

Heiß diskutierte Inhalte
Windows Server
Uhren gehen immer wieder falsch
Frage von killtecWindows Server23 Kommentare

Hallo, ich habe folgende Konstellation: 1. Physischer DC Div. Virtuelle DC's auf Hyper-V Servern Die Hyper-V-Server, der Physische DC ...

Switche und Hubs
Medienkonverter mit 12 oder 24 Ports gesucht
Frage von wmuellerSwitche und Hubs23 Kommentare

Guten Morgen, ich bin auf der Suche nach einem größeren Medienkonverter, der "stumpf" 1:1 die Ports auf über ein ...

Batch & Shell
Mit findstr batch doppelte zeilen einer txt löschen
Frage von Burningx2Batch & Shell21 Kommentare

Hi Vor einer weile habe ich im netzt einen windows shell befehl gefunden mit welchem man über die konsole ...

Windows Server
Client in die Domäne einbinden - Allgemeine Frage dazu
gelöst Frage von RalphTWindows Server19 Kommentare

Moin, ich habe 2 DCs in einer Hauptstelle und 2 DCs in einer Nebenstelle. Ich bringe in der Hauptstelle ...