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, 2308 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
Batch & Shell
Powershell - Ausgabe des Codes als Text
gelöst Frage von internet2107Batch & Shell9 Kommentare

Hallo zusammen. Ich arbeite mit der Software Powershell Studio. Mit dieser scripte ich viel, am Ende kommt eine .exe-Datei ...

Windows 7
Updates schlagen fehl code 800B0100
Frage von Kili73Windows 79 Kommentare

Halo zusammen, bin mit meinem Latein am ende. Ich kann auf eine neuen Maschine keine Updates mehr installieren. Alle ...

Windows Server
WSUS Server - Fehler Code 80244019
Frage von Axel90Windows Server3 Kommentare

Hallo, ich habe ein Problem mit Windows 7 x64 Clients und einem WSUS Server 3.2.7600.226 auf einem SBS 2008. ...

Windows 7
Fehler LAN-Treiber Code 31
gelöst Frage von AkcentWindows 71 Kommentar

Hallo, bin nun seit vielen Stunden am Suchen, googlen und testen. Wir haben auf einem Rechner den Norman Endpoint ...

Neue Wissensbeiträge
Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 16 StundenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Sicherheit
Microsoft und Skype: Sicherheit
Information von kgborn vor 16 StundenSicherheit

Die Tage gab es ja einige Berichte zur Sicherheit des Skype-Updaters. Der Updater von Skype läuft unter dem Konto ...

Datenschutz

Behörden ignorieren Sicherheitsbedenken gegenüber Windows 10

Information von Penny.Cilin vor 1 TagDatenschutz8 Kommentare

Hallo, passend zum Thema Ablösung LIMUX in München ein Beitrag bei Heise (siehe Link folgend). Behörden ignorieren Sicherheitsbedenken gegenüber ...

Sicherheit
Information Security Hub Munich airport
Information von brammer vor 1 TagSicherheit

Hallo, Neues Center für Cyber Kriminalität am Münchener Flughafen brammer

Heiß diskutierte Inhalte
Exchange Server
Exchange Postfach Einbindung Betriebs-rat -Arzt, Bewerbung .
gelöst Frage von YellowcakeExchange Server23 Kommentare

Hey ich habe da mal eine Denksport Aufgabe bekommen Genutzt wird ein Exchange Server 2010. hier gibt es den ...

Windows Server
Downgrade von Windows Server 2016 auf 2012 - Wie vorgehen?
Frage von EstefaniaWindows Server13 Kommentare

Guten Ich habe eine Frage an Erfahrene unter euch. Durch einen InPlace Upgrade wurde Windows Server 2012 auf die ...

Datenschutz
Telematikinfrastruktur Erfahrungsaustausch
Frage von MOS6581Datenschutz12 Kommentare

Moin, unter meinen Kunden befinden sich auch einige Ärzte, welche sich künftig mit der Telematikinfrastruktur-Geschichte der Gematik herumärgern dürfen. ...

Windows Server
Delgegierte OU via RDP verwalten - Objektverwaltung zuweisen
gelöst Frage von TOAOICEWindows Server12 Kommentare

Hallo, ich habe folgendes Problem. Ich möchte in meiner Domäne (Server2016), einer Gruppe (OUAdmin) Berechtigungen auf die OU Test ...