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, 2324 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 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 ...

Batch & Shell

Wieso ist die Catch Ausgabe ohne ausgabe der Variable?

gelöst Frage von pixel0815Batch & Shell10 Kommentare

Hallo zusammen, weshalb wird nicht die Variable $_.Hostname mit dem betreffenden nicht vorhandenen Record angezeigt? Ich erhalte immer Kein ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate
Meine Wissenssammlung zu Bitlocker
Erfahrungsbericht von DerWoWusste vor 19 StundenVerschlüsselung & Zertifikate2 Kommentare

Die Motivation für diesen Beitrag waren die vielen Posts rund um dieses Thema, die deutlich machen, wie viele Einzelaspekte ...

E-Mail
Email-Apps und Verhalten bei Pop3
Erfahrungsbericht von kfranzk vor 2 TagenE-Mail11 Kommentare

Hallo Freunde, da mir mein diesbezüglicher Faden als gelöst markiert wurde, muss ich hier neu aufsetzen. Ich arbeite bewusst ...

Hyper-V

Optimiertes Ubuntu per Microsoft Hyper-V-Schnellerstellung verfügbar

Anleitung von Frank vor 2 TagenHyper-V1 Kommentar

Für Microsofts Virtualisierungssoftware Hyper-V ist ab sofort auch ein optimiertes Ubuntu 18.04.1 LTS verfügbar. In der "Hyper-V-Schnellerstellung" App, die ...

Sicherheits-Tools

Trend Micro WorryFree Business Security (WFBS) 10 - neuer Patch 1470 verfügbar

Tipp von VGem-e vor 3 TagenSicherheits-Tools1 Kommentar

Servus, mal sehen, ob mit Patch 1470, zu finden unter dann die angeblich fehlerhafte Funktion, die unter W10 im ...

Heiß diskutierte Inhalte
Datenschutz
Gilt ein Ransomware-Befall als Datenpanne nach DSGVO?
Frage von MOS6581Datenschutz17 Kommentare

Moin Kollegen, wenn sich jemand Ransomware einfängt und dadurch bspw. Kundendaten verschlüsselt werden; gilt dies dann als meldepflichtige Datenpanne ...

Hardware
Sophos SG135 - Routing
Frage von Xaero1982Hardware15 Kommentare

Moin Zusammen, ich ersetze gerade nen alten Cisco DualWAN Router durch eine SG 135. Ich muss bestimmte Ziele über ...

Netzwerke
Hilfe bei der Planung meines Heimnetzwerks
Frage von DHD082Netzwerke15 Kommentare

Hallo zusammen, wir bauen gerade ein Einfamilienhaus, welches ich mit einem Heimnetzwerk ausstatten möchte. Da ich zwar auch in ...

Tipps & Tricks
Nagstamon und PRTG Monitoring
Frage von Der.ITlerTipps & Tricks13 Kommentare

Hallo Ihr, heute am Sonntag bin ich mal früh aufgestanden um mich mit dem Problem von Gestern zu beschäftigen. ...