Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Entwicklung

Mitglied: wolkig

wolkig (Level 1) - Jetzt verbinden

01.09.2011, aktualisiert 13:37 Uhr, 2249 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows Server
gelöst BackupExec 2016 Fehler beim Backup von Windows 2016 (1)

Frage von Looser27 zum Thema Windows Server ...

Switche und Hubs
gelöst Trunk für 2xCisco Switch. Wo liegt der Fehler? (43)

Frage von JayyyH zum Thema Switche und Hubs ...

Vmware
Veeam für VM Ware Backup Fehler (2)

Frage von JoergN1968 zum Thema Vmware ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (18)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...