Computing desk | ||
---|---|---|
< August 4 | << Jul | August | Sep >> | August 6 > |
Welcome to the Wikipedia Computing Reference Desk Archives |
---|
The page you are currently viewing is an archive page. While you can leave answers for any questions shown below, please ask new questions on one of the current reference desk pages. |
hi. how do I convert a jpg file to a numeric matrix? Actually I want three numeric matrices, one for red, one for green, and one for blue. Googling didn't help. I want an open source solution if possible. thanks, Robinh ( talk) 08:54, 5 August 2011 (UTC)
convert -compress none test.jpg test.ppm
P3 1920 1200 255 206 200 226 222 196 221 237 196 214 245 214 212 211 205 183 211 218 184 211 215 182 204 198 172 211 212 194 190 215 196 192 226 212 191 206 203 . . .
I'm trying to set up a dual-monitor system, and hitting a weird roadblock.
I have an LG W2053TX. It has a DVI port in the back of it. I've hooked the DVI port to a DVI cable, which then goes to a DVI-to-HDMI adapter, which then goes into the back of the graphics card (an AMD Radeon HD 6570).
What's irritating is that the monitor does not seem to detect or know what to do with the signal it's getting. It stays black. If I cycle through the input sources, it eventually says "DIGITAL POWER SAVING MODE" and then kind of turns itself off.
Now what I find perplexing is that the computer (running Windows 7) can detect that a monitor is plugged in. It doesn't know what kind of monitor and doesn't know its correct resolution, but it thinks there is an extra monitor there.
I've tried installing all of the drivers and monitor managers and other junk from the LG website, but nothing seems to help. What am I overlooking? It's been awhile since I've messed with Windows drivers and I've not used Windows 7 much — am I forgetting something? What's the step-by-step way to get this stupid monitor to work correctly with this converter? It works fine with a raw DVI signal, but the setup requires using this DVI-to-HDMI converter (the DVI port on the graphics card is taken up by the other monitor I'm using, which can only use VGA, so a DVI-to-VGA is necessary).
Everything I've read online says that a DVI monitor should have no problem parsing an HDMI signal. The converter may be an "active" one, I don't really know how to tell them from a passive one other than the appearance, and it looks more like an active one than a passive one. But I don't know. Would that affect anything? I'm totally befuddled. -- Mr.98 ( talk) 14:35, 5 August 2011 (UTC)
I've been usign a Tiddlywiki successfully for a few years until today. All of a sudden I can't save my changes; I get the error message "Failed to save main Tiddlywiki file. Changes have not been saved." A separate Tiddlywiki that I use does not display this problem.
The details:
The only possibly relevant recent change - I use Outlook for my work e- mail; this morning an IT staff migrated my mail from servers owned by my employer, to some Microsoft could servers. I don't know any details of what was involved in this.
ike9898 ( talk) 16:48, 5 August 2011 (UTC)
I'm very confused. Do any of them mean the same thing as the other? Are any of them related? -- Melab±1 ☎ 19:55, 5 August 2011 (UTC)
So I have some code that I downloaded written in FORTRAN to process some data. Working on a Ubuntu 11.04 machine, I tried g95, f77, and f95 compilers and they all tell me there are errors in the code (they give me different errors). For example, one of the errors from f95 is that "ACCESS specifier in OPEN statement has invalid value 'TRANSPARENT'". f77 prints out a bunch of warnings about inconsistent called sequences and aborts compilation. g95 complains about other syntax errors. The site is ancient and the code is at least ten years old. My question is, is there anyway to find out exactly which version of FORTRAN it is written in? Are these compilers backwards compatible? Any other compilers you guys recommend I should try? Or could it be some obscure spin-off of FORTRAN? I am pretty sure the code itself is fine (whatever it is written in) because others in the past have used it to do research. I am brand new to both LINUX and FORTRAN and don't know much about them. If it would help I can also upload the source code. Its only 330 lines including a LOT of comments. Thanks! 128.138.138.122 ( talk) 20:14, 5 August 2011 (UTC)
OP here. Here is the source code in FORTRAN. If you'd like a pair of sample input files, I can provide those too. Thanks! 174.29.65.10 ( talk) 03:24, 6 August 2011 (UTC)
Extended content
|
---|
PROGRAM EPHEMER
C THIS PROGRAM STRIPS OUT AND DISPLAYS DATA FROM THE CRRES HEADER
C AND EPHEMERIS FILES
C LAST UPDATE 10-8-92
INTEGER*2 ICONV,PRSCR,PRFLE,JPAUZ,NHED,NEPH,IOPEN1,IOPEN3,IOPEN4
INTEGER*4 KTIM1,KTIM2,IHDR(60)
DIMENSION EPHM(60),DATHED(28)
C IHDR HOLDS THE HEADER RECORD FROM ONE ORBIT OF DATA, EPHM HOLDS
C ONE SET OF PACKED EPHEMERIS DATA (1 OR 5 MINUTE INTERVALS)
C WE DON'T REALLY NEED THESE FOR THE DPU57 STRIPOUT
CHARACTER*30 EPHFIL,HEDFIL,DATFIL,FILNAM
CHARACTER*1 ANS
CHARACTER*3 CSV,EPH,HED,BIN
DATA CSV,EPH,HED,BIN/'CSV','EPH','HED','BIN'/
C FILE CONVENTIONS:
C UNIT 1 EPHEMERIS
C UNIT 3 OUTPUT DATA FILE
C UNIT 4 HEADER FILE
DATA NEPH,NHED/1,4/
CALL TIMER(KTIM1) !FOR TIMING PURPOSES
VER=1.01
WRITE(*,1000)VER
1000 FORMAT(///,25X,'CRRES EPHEMERIS PROGRAM VER. ',F4.2,///)
print*,' This version of ephemer requires EORs in th .EPH file'
C OPEN THE FILES
C GET THE INPUT DATA FILE NAME
IOPEN1=0
IOPEN3=0
IOPEN4=0
PRINT*,' INPUT FILE NAME? '
READ(*,1004)FILNAM
1004 FORMAT(A)
C GET THE HEADER FILE
HEDFIL=FILNAM
CALL SUFIX(HEDFIL,HED)
CALLOPENOLD(HEDFIL,NHED,IOPEN4)
IF(IOPEN4.EQ.1)CALL READHED(NHED,DATHED,IOPEN4)
C GET THE EPHEMERIS FILE
EPHFIL=FILNAM
CALL SUFIX(EPHFIL,EPH)
CALLOPENOLD(EPHFIL,NEPH,IOPEN1)
ATIME=-1.
BTIME=150000.
C GET THE OUTPUT DATA FILE NAME
150 PRINT*,' WRITE OUTPUT TO THE SCREEN (1), FILE (2), OR BOTH (3) '
READ(*,1011)ICONV
PRSCR=0
PRFLE=0
JPAUZ=1
IF(ICONV.LT.1.OR.ICONV.GT.3.)GO TO 150
IF(ICONV.EQ.1)PRSCR=1
IF(ICONV.GE.2)PRFLE=1
IF(ICONV.EQ.2)JPAUZ=2
IF(ICONV.EQ.3)PRSCR=1
IF(PRSCR.EQ.1)PRINT,' PAUSE DISPLAY BETWEEN FRAMES? (YES=1,NO=2) '
1011 FORMAT(I1)
IF(PRSCR.EQ.1)READ(*,1011)JPAUZ
IF(PRFLE.EQ.0)GO TO 1029
PRINT*,' DO YOU WANT THE PLOT FORMAT FILE? (Y,N) '
CALL PAUZ(ANS)
IF(ANS.EQ.'Y'.OR.ANS.EQ.'y')PRFLE=2
PRINT*,' OUTPUT FILE NAME? '
READ(*,1004)DATFIL
IF(PRFLE.EQ.2)THEN
CALLSUFIX(DATFIL,CSV)
OPEN(UNIT=3,FILE=DATFIL,STATUS='NEW',FORM='FORMATTED')
ELSE
CALL SUFIX(DATFIL,BIN)
OPEN(UNIT=3,FILE=DATFIL,STATUS='NEW',FORM='UNFORMATTED')
ENDIF
IOPEN3=1
1029 IPAUSE=0
IF(PRSCR.EQ.0)WRITE(*,1988)
1988 FORMAT(3X,'UT ALT LAT LONG B L B0',/)
1 CALL READEPH(IHDR,ATIME,BTIME,EPHM,IFLG)
IF(IFLG.EQ.1)GO TO 50
IF(EPHM(12).LT.0.)EPHM(12)=EPHM(12)+360.
IF(PRSCR.EQ.1)WRITE(*,2)EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(24),EPHM(35),EPHM(36)
IF(PRSCR.EQ.0)WRITE(*,222)EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(24),EPHM(35),EPHM(36)
2 FORMAT(1X,F7.0,1X,F6.0,1X,F6.2,1X,F6.2,1X,F7.1,1X,F5.2,1X,F7.1)
222 FORMAT('+',F7.0,1X,F6.0,1X,F6.2,1X,F6.2,1X,F7.1,1X,F5.2,1X,F7.1)
IF(JPAUZ.EQ.2)GO TO 17
IPAUSE=IPAUSE+1
IF (IPAUSE.LT.20)GO TO 17
CALL PAUZ(ANS)
IPAUSE=0
17 IF(PRFLE.EQ.2)WRITE(3,3)EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(24),EPHM(35),EPHM(36)
3 FORMAT(F7.0,',',F6.0,',',F6.2,',',F6.2,',',F7.1,',',F5.2,',',F7.1)
IF(PRFLE.EQ.1)WRITE(3)EPHM(1),EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(14),EPHM(24),EPHM(28),EPHM(30),EPHM(35),EPHM(36)
GO TO 1
50 WRITE(*,1012)
1012 FORMAT(' JOB COMPLETED')
70 CALL TIMER(KTIM2)
TME=.01*FLOAT(KTIM2-KTIM1)
PRINT*,' ELAPSED TIME = ',TME
IF(IOPEN1.EQ.1)CLOSE(UNIT=1)
IF(IOPEN3.EQ.1)CLOSE(UNIT=3)
IF(IOPEN4.EQ.1)CLOSE(UNIT=4)
STOP
END
SUBROUTINE SWAP4(IN,IOUT)
LOGICAL*1 IN(4),IOUT(4)
IOUT(1)=IN(4)
IOUT(2)=IN(3)
IOUT(3)=IN(2)
IOUT(4)=IN(1)
RETURN
ENTRY SWAP2
IOUT(1)=IN(2)
IOUT(2)=IN(1)
RETURN
END
SUBROUTINE PAUZ(ANS)
CHARACTER*1 ANS
READ(*,1)ANS
1 FORMAT(A)
RETURN
END
SUBROUTINE SUFIX(NAME,INC)
CHARACTER*1 NAME(51),INC(3),INC1
DATA INC1/'.'/
DO 1 I=1,51
IF(NAME(I).EQ.'.')GOTO4
1 IF(NAME(I).EQ.' ')GOTO3
WRITE(*,2)NAME
2 FORMAT(' ***** ERROR ***** ERROR ***** ERROR *****',//,
1 A,//,' exceeds the limit on file names (50 characters)')
STOP
3 NAME(I)=INC1
4 NAME(I+1)=INC(1)
NAME(I+2)=INC(2)
NAME(I+3)=INC(3)
RETURN
END
SUBROUTINE READEPH(JATA,T1,T2,DATA,IFLAG)
INTEGER*4 JATA(60),ICON,ITMP
INTEGER*2 IFLAG,INDFYL,IEOR
DIMENSION DATA(60),FACTOR(60)
DATA INDFYL/0/
DATA FACTOR/1.,.001,3*.0001,3*1.E-7,2*.0001,2*1.0E-6,
1 3*1.E-7,2*1.E-6,1.E-7,1.E-6,2*1.E-7,1.E-6,1.E-7,4*.0001,
2 1.E-7,6*1.E-6,1.E-7,.0001,2*1.E-6,.0001,2*1.E-6,.0001,6*1.,
3 1.E-6,8*.0001,3*1./
C 1 JULIAN DATE (DAYS)
C 2 UT, Milliseconds
C 3 X, ECI, km
C 4 Y, ECI, km
C 5 Z, ECI, km
C 6 VX, ECI, km/SEC
C 7 VY, ECI, km/SEC
C 8 VZ, ECI, km/SEC
C 9 RADIUS, EARTH CENTER TO SATELLITE, km
C 10 Altitude, km
C 11 Latitude, Deg
C 12 Longitude, Deg
C 13 Velocity, km/sec
C 14 Local Time, hr
C 15 Radius, Mag, EMR (6371.2 km)
C 16 Latitude. Mag, Deg
C 17 Longitude, Mag, Deg
C 18 Radius, SM, EMR
C 19 Latitude, SM, Deg
C 20 Local Time, SM, hr
C 21 Radius, GSM, EMR
C 22 Latitude, GSM, Deg
C 23 Local Time, GSM, hr
C 24 B, nT
C 25 BX, ECI, nT
C 26 BY, ECI, nT
C 27 BZ, ECI, nT
C 28 Mag Local Time, hr
C 29 Solar Zenith Angle, Deg
C 30 Invariant Latitude, Deg
C 31 B100N latitude, Deg
C 32 B100N longitude, Deg
C 33 B100S latitude, Deg
C 34 B100S longitude, Deg
C 35 L-shell, EMR
C 36 Bmin, nT
C 37 Bmin Latitude, Deg
C 38 Bmin Longitude, Deg
C 39 Bmin Altitude, km
C 40 Bconj Latitude, Deg
C 41 Bconj Longitude, Deg
C 42 Bconj Altitude, km
C 43 X Sun Position, ECI, km
C 44 Y Sun Position, ECI, km
C 45 Z Sun Position, ECI, km
C 46 X Moon Position, ECI, km
C 47 Y Moon Position, ECI, km
C 48 Z Moon Position, ECI, km
C 49 Right Ascension of Greenwich
C 50 B100N, nT
C 51 B100S, nT
C 52 Mx dipole moment, ECI, nT
C 53 My dipole moment, ECI, nT
C 54 Mz dipole moment, ECI, nT
C 55 Dx dipole offset, ECI, nT
C 56 Dy dipole offset, ECI, nT
C 57 Dz dipole offset, ECI, nT
C 58 Vacant
C 59 Vacant
C 60 Vacant
C
IF(INDFYL.EQ.1.AND.IFLAG.EQ.1)RETURN
ICON=2**30
IFLAG=0
1 READ(UNIT=1,END=1000)JATA
READ(UNIT=1,END=1000)IEOR
CALL SWAP4(JATA(2),ITMP)
TIME=.001*FLOAT(ITMP-ICON)
IF(TIME.LT.(T1-60.))GO TO 1
IF(TIME.GT.(T2+300.))RETURN
DO 2 I=1,57
CALL SWAP4(JATA(I),ITMP)
2 DATA(I)=FLOAT(ITMP-ICON)*FACTOR(I)
RETURN
1000 WRITE(*,1001)
1001 FORMAT(' HIT THE END OF THE EPHEMERIS FILE',/,
1 ' PROCESSING OF EPHEMERIS STOPPED')
IFLAG=1
INDFYL=1
RETURN
END
SUBROUTINE OPENOLD(FILNAM,NUNIT,NOPEN)
CHARACTER*30 FILNAM
CHARACTER*1 ANS
INTEGER*2 NUNIT,NOPEN
INTEGER*4 LEN,NLEN
LOGICAL OPEND,EXST
1 INQUIRE(FILE=FILNAM,EXIST=EXST,OPENED=OPEND)
IF(EXST)GOTO5
NOPEN=0
WRITE(*,2)CHARNB(FILNAM)
2 FORMAT(' FILE ',A,' DOES NOT EXIST',/,' DO YOU NEED IT? (Y,N)')
CALL PAUZ(ANS)
IF(ANS.EQ.'N'.OR.ANS.EQ.'n')RETURN
WRITE(*,3)
3 FORMAT(' ENTER FILE NAME, INCLUDING FULL PATH',/)
READ(*,4)FILNAM
4 FORMAT(A)
GO TO 1
5 IF(OPEND)GO TO 6
OPEN (UNIT=NUNIT,FILE=FILNAM,STATUS='OLD',ACCESS='TRANSPARENT',
1 FORM='UNFORMATTED')
NOPEN=1
C GET THE FILE LENGTH IN BYTES
6 INQUIRE(FILE=FILNAM,FLEN=LEN)
NLEN=LEN/512
WRITE(*,7)CHARNB(FILNAM),LEN,NLEN
7 FORMAT(' FILE ',A,' IS ',I8,' BYTES (',I5,'+ SECTORS) LONG')
RETURN
END
SUBROUTINE READHED(NHED,DATHED,IOPEN)
INTEGER*2 IOPEN,NHED
INTEGER*4 JATA(30)
LOGICAL*1 KATA(120)
DIMENSION DATHED(28)
IF(IOPEN.EQ.0)RETURN
5 READ(UNIT=NHED,END=1000)KATA
IGG=1
DO 20 IG=1,30
CALL SWAP4(KATA(IGG),JATA(IG))
20 IGG=IGG+4
DO 21 I=1,28
21 DATHED(I)=FLOAT(JATA(I))
DATHED(7)=.001*DATHED(7)
DATHED(8)=.001*DATHED(8)
DATHED(9)=.001*DATHED(9)
DATHED(15)=.001*DATHED(15)
DATHED(16)=.001*DATHED(16)
DATHED(17)=.001*DATHED(17)
DATHED(18)=.001*DATHED(18)
DATHED(19)=.001*DATHED(19)
DATHED(20)=.001*DATHED(20)
DATHED(21)=.001*DATHED(21)
DATHED(22)=.001*DATHED(22)
DATHED(24)=.001*DATHED(24)
DATHED(26)=.001*DATHED(26)
DATHED(28)=.001*DATHED(28)
C
WRITE(*,100)(JATA(I),I=1,6),(DATHED(J),J=7,9),(JATA(K),K=10,14)
100 FORMAT(' Vehicle ID = ',I9,20X,'Experiment ID = ',I9,/,
1 ' Orbit Number = ',I9,20X,'Julian Date = ',I9,/,
2 ' Year = ',I9,20X,'Day of Year = ',I9,/,
3 ' UT Start of Data = ',F9.3,20X,'UT End of Data = ',F9.3,/,
4 ' UT First Perigee = ',F9.3,20X,'VTCW at Start = ',Z8,/,
5 ' VTCW at End = ',Z8,20X,'Agency Tape Date = ',I9,/,
6 ' Missing Maj Frames ',I9,20X,'Filled Minor Frms ',I9,/)
WRITE(*,101)(DATHED(J),J=15,22),JATA(23),DATHED(24),JATA(25),
1 DATHED(26),JATA(27),DATHED(28)
101 FORMAT(' Penumbra Start = ',F9.3,20X,
1 'Penumbra Stop = ',F9.3,/,
2 ' Umbra Start = ',F9.3,20X,'Umbra Stop = ',F9.3,/,
3 ' Penumbra Start = ',F9.3,20X,'Penumbra Stop = ',F9.3,/,
4 ' Umbra Start = ',F9.3,20X,'Umbra Stop = ',F9.3,/,
5 ' VTCW',10X,'= ',Z8,20X,'UT',12X,'= ',F9.3,/,
6 ' VTCW',10X,'= ',Z8,20X,'UT',12X,'= ',F9.3,/,
7 ' VTCW',10X,'= ',Z8,20X,'UT',12X,'= ',F9.3,/)
GO TO 1001
1000 PRINT*,' ERROR IN READING THE HEADER FILE'
1001 IOPEN=0
CLOSE(UNIT=NHED)
RETURN
END
|
Converting unformatted files with LF90 or LF95 usually involves opening the file using the specifier ACCESS="TRANSPARENT" (a nonstandard Lahey extension), which allows the file to be read a byte at a time with no assumptions about headers or record delimiters. This allows one to have the same degree of control as when handling files in the C language.
Here is the link to the input files. There are two of them in there. One is the header file and the other is the ephemeris file to which the code refers. They are both in binary and I don't know if it matters but I have good reason to believe that the developer was working on a little endian system. 174.29.65.10 ( talk) 06:03, 6 August 2011 (UTC)
This is the cr0006.hed header file and this is the cr0006.eph ephemeris file. The extensions are just a label because both files are just binaries. 174.29.65.10 ( talk) 07:39, 6 August 2011 (UTC)
Extended content
|
---|
CRRES EPHEMERIS PROGRAM VER. 1.01
This version of ephemer requires EORs in th .EPH file INPUT FILE NAME? cr0006.eph FILE cr0006.HED IS 53241 BYTES ( 103+ SECTORS) LONG Vehicle ID = 0 Experiment ID = 0 Orbit Number = 0 Julian Date = 0 Year = 0 Day of Year = 50856192 UT Start of Data = 0.000 UT End of Data = 0.000 UT First Perigee = 0.000 VTCW at Start = 0 VTCW at End = 0 Agency Tape Date = 0 Missing Maj Frames 0 Filled Minor Frms 0 Penumbra Start = ********* Penumbra Stop = ********* Umbra Start = 0.000 Umbra Stop = 0.000 Penumbra Start = 0.000 Penumbra Stop = 0.000 Umbra Start = 0.000 Umbra Stop = 0.000 VTCW = 0 UT = 0.000 VTCW = 0 UT = 0.000 VTCW = 0 UT = 0.000 FILE cr0006.EPH IS 53241 BYTES ( 103+ SECTORS) LONG WRITE OUTPUT TO THE SCREEN (1), FILE (2), OR BOTH (3) 3 PAUSE DISPLAY BETWEEN FRAMES? (YES=1,NO=2) 1 DO YOU WANT THE PLOT FORMAT FILE? (Y,N) y OUTPUT FILE NAME? cr0006.out At line 231 of file wikiref.f (unit = 1, file = 'cr0006.EPH') Fortran runtime error: Read past ENDFILE record |
Well I have no idea what the input should look like. Its just binary data (probably raw data from the satellite) but I don't know the format. You can probably deduce that from the FORTRAN code. The output I think should be tables of single precision numbers (probably with 60 rows or something like how it says in the comments). The output should be various magnetic field and particle measurements along with longitude, latitude, and altitude where the measurements were taken. 174.29.65.10 ( talk) 21:39, 6 August 2011 (UTC)
My laptop was running very slow, so I did a system restore, deleted some programs I rarely use from add/remove programs, and updated my symantic virus protection...in that exact order. Everything works great, except now there is no audio. I've checked all the volume controls, system tools and anything else related to audio. Nothing. What could I have possibly done to disable the audio? Any idea how I can fix this? Quinn ❀ BEAUTIFUL DAY 20:37, 5 August 2011 (UTC)
Yeah, sounds great, but how? Quinn ❀ BEAUTIFUL DAY 00:02, 6 August 2011 (UTC)
Computing desk | ||
---|---|---|
< August 4 | << Jul | August | Sep >> | August 6 > |
Welcome to the Wikipedia Computing Reference Desk Archives |
---|
The page you are currently viewing is an archive page. While you can leave answers for any questions shown below, please ask new questions on one of the current reference desk pages. |
hi. how do I convert a jpg file to a numeric matrix? Actually I want three numeric matrices, one for red, one for green, and one for blue. Googling didn't help. I want an open source solution if possible. thanks, Robinh ( talk) 08:54, 5 August 2011 (UTC)
convert -compress none test.jpg test.ppm
P3 1920 1200 255 206 200 226 222 196 221 237 196 214 245 214 212 211 205 183 211 218 184 211 215 182 204 198 172 211 212 194 190 215 196 192 226 212 191 206 203 . . .
I'm trying to set up a dual-monitor system, and hitting a weird roadblock.
I have an LG W2053TX. It has a DVI port in the back of it. I've hooked the DVI port to a DVI cable, which then goes to a DVI-to-HDMI adapter, which then goes into the back of the graphics card (an AMD Radeon HD 6570).
What's irritating is that the monitor does not seem to detect or know what to do with the signal it's getting. It stays black. If I cycle through the input sources, it eventually says "DIGITAL POWER SAVING MODE" and then kind of turns itself off.
Now what I find perplexing is that the computer (running Windows 7) can detect that a monitor is plugged in. It doesn't know what kind of monitor and doesn't know its correct resolution, but it thinks there is an extra monitor there.
I've tried installing all of the drivers and monitor managers and other junk from the LG website, but nothing seems to help. What am I overlooking? It's been awhile since I've messed with Windows drivers and I've not used Windows 7 much — am I forgetting something? What's the step-by-step way to get this stupid monitor to work correctly with this converter? It works fine with a raw DVI signal, but the setup requires using this DVI-to-HDMI converter (the DVI port on the graphics card is taken up by the other monitor I'm using, which can only use VGA, so a DVI-to-VGA is necessary).
Everything I've read online says that a DVI monitor should have no problem parsing an HDMI signal. The converter may be an "active" one, I don't really know how to tell them from a passive one other than the appearance, and it looks more like an active one than a passive one. But I don't know. Would that affect anything? I'm totally befuddled. -- Mr.98 ( talk) 14:35, 5 August 2011 (UTC)
I've been usign a Tiddlywiki successfully for a few years until today. All of a sudden I can't save my changes; I get the error message "Failed to save main Tiddlywiki file. Changes have not been saved." A separate Tiddlywiki that I use does not display this problem.
The details:
The only possibly relevant recent change - I use Outlook for my work e- mail; this morning an IT staff migrated my mail from servers owned by my employer, to some Microsoft could servers. I don't know any details of what was involved in this.
ike9898 ( talk) 16:48, 5 August 2011 (UTC)
I'm very confused. Do any of them mean the same thing as the other? Are any of them related? -- Melab±1 ☎ 19:55, 5 August 2011 (UTC)
So I have some code that I downloaded written in FORTRAN to process some data. Working on a Ubuntu 11.04 machine, I tried g95, f77, and f95 compilers and they all tell me there are errors in the code (they give me different errors). For example, one of the errors from f95 is that "ACCESS specifier in OPEN statement has invalid value 'TRANSPARENT'". f77 prints out a bunch of warnings about inconsistent called sequences and aborts compilation. g95 complains about other syntax errors. The site is ancient and the code is at least ten years old. My question is, is there anyway to find out exactly which version of FORTRAN it is written in? Are these compilers backwards compatible? Any other compilers you guys recommend I should try? Or could it be some obscure spin-off of FORTRAN? I am pretty sure the code itself is fine (whatever it is written in) because others in the past have used it to do research. I am brand new to both LINUX and FORTRAN and don't know much about them. If it would help I can also upload the source code. Its only 330 lines including a LOT of comments. Thanks! 128.138.138.122 ( talk) 20:14, 5 August 2011 (UTC)
OP here. Here is the source code in FORTRAN. If you'd like a pair of sample input files, I can provide those too. Thanks! 174.29.65.10 ( talk) 03:24, 6 August 2011 (UTC)
Extended content
|
---|
PROGRAM EPHEMER
C THIS PROGRAM STRIPS OUT AND DISPLAYS DATA FROM THE CRRES HEADER
C AND EPHEMERIS FILES
C LAST UPDATE 10-8-92
INTEGER*2 ICONV,PRSCR,PRFLE,JPAUZ,NHED,NEPH,IOPEN1,IOPEN3,IOPEN4
INTEGER*4 KTIM1,KTIM2,IHDR(60)
DIMENSION EPHM(60),DATHED(28)
C IHDR HOLDS THE HEADER RECORD FROM ONE ORBIT OF DATA, EPHM HOLDS
C ONE SET OF PACKED EPHEMERIS DATA (1 OR 5 MINUTE INTERVALS)
C WE DON'T REALLY NEED THESE FOR THE DPU57 STRIPOUT
CHARACTER*30 EPHFIL,HEDFIL,DATFIL,FILNAM
CHARACTER*1 ANS
CHARACTER*3 CSV,EPH,HED,BIN
DATA CSV,EPH,HED,BIN/'CSV','EPH','HED','BIN'/
C FILE CONVENTIONS:
C UNIT 1 EPHEMERIS
C UNIT 3 OUTPUT DATA FILE
C UNIT 4 HEADER FILE
DATA NEPH,NHED/1,4/
CALL TIMER(KTIM1) !FOR TIMING PURPOSES
VER=1.01
WRITE(*,1000)VER
1000 FORMAT(///,25X,'CRRES EPHEMERIS PROGRAM VER. ',F4.2,///)
print*,' This version of ephemer requires EORs in th .EPH file'
C OPEN THE FILES
C GET THE INPUT DATA FILE NAME
IOPEN1=0
IOPEN3=0
IOPEN4=0
PRINT*,' INPUT FILE NAME? '
READ(*,1004)FILNAM
1004 FORMAT(A)
C GET THE HEADER FILE
HEDFIL=FILNAM
CALL SUFIX(HEDFIL,HED)
CALLOPENOLD(HEDFIL,NHED,IOPEN4)
IF(IOPEN4.EQ.1)CALL READHED(NHED,DATHED,IOPEN4)
C GET THE EPHEMERIS FILE
EPHFIL=FILNAM
CALL SUFIX(EPHFIL,EPH)
CALLOPENOLD(EPHFIL,NEPH,IOPEN1)
ATIME=-1.
BTIME=150000.
C GET THE OUTPUT DATA FILE NAME
150 PRINT*,' WRITE OUTPUT TO THE SCREEN (1), FILE (2), OR BOTH (3) '
READ(*,1011)ICONV
PRSCR=0
PRFLE=0
JPAUZ=1
IF(ICONV.LT.1.OR.ICONV.GT.3.)GO TO 150
IF(ICONV.EQ.1)PRSCR=1
IF(ICONV.GE.2)PRFLE=1
IF(ICONV.EQ.2)JPAUZ=2
IF(ICONV.EQ.3)PRSCR=1
IF(PRSCR.EQ.1)PRINT,' PAUSE DISPLAY BETWEEN FRAMES? (YES=1,NO=2) '
1011 FORMAT(I1)
IF(PRSCR.EQ.1)READ(*,1011)JPAUZ
IF(PRFLE.EQ.0)GO TO 1029
PRINT*,' DO YOU WANT THE PLOT FORMAT FILE? (Y,N) '
CALL PAUZ(ANS)
IF(ANS.EQ.'Y'.OR.ANS.EQ.'y')PRFLE=2
PRINT*,' OUTPUT FILE NAME? '
READ(*,1004)DATFIL
IF(PRFLE.EQ.2)THEN
CALLSUFIX(DATFIL,CSV)
OPEN(UNIT=3,FILE=DATFIL,STATUS='NEW',FORM='FORMATTED')
ELSE
CALL SUFIX(DATFIL,BIN)
OPEN(UNIT=3,FILE=DATFIL,STATUS='NEW',FORM='UNFORMATTED')
ENDIF
IOPEN3=1
1029 IPAUSE=0
IF(PRSCR.EQ.0)WRITE(*,1988)
1988 FORMAT(3X,'UT ALT LAT LONG B L B0',/)
1 CALL READEPH(IHDR,ATIME,BTIME,EPHM,IFLG)
IF(IFLG.EQ.1)GO TO 50
IF(EPHM(12).LT.0.)EPHM(12)=EPHM(12)+360.
IF(PRSCR.EQ.1)WRITE(*,2)EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(24),EPHM(35),EPHM(36)
IF(PRSCR.EQ.0)WRITE(*,222)EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(24),EPHM(35),EPHM(36)
2 FORMAT(1X,F7.0,1X,F6.0,1X,F6.2,1X,F6.2,1X,F7.1,1X,F5.2,1X,F7.1)
222 FORMAT('+',F7.0,1X,F6.0,1X,F6.2,1X,F6.2,1X,F7.1,1X,F5.2,1X,F7.1)
IF(JPAUZ.EQ.2)GO TO 17
IPAUSE=IPAUSE+1
IF (IPAUSE.LT.20)GO TO 17
CALL PAUZ(ANS)
IPAUSE=0
17 IF(PRFLE.EQ.2)WRITE(3,3)EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(24),EPHM(35),EPHM(36)
3 FORMAT(F7.0,',',F6.0,',',F6.2,',',F6.2,',',F7.1,',',F5.2,',',F7.1)
IF(PRFLE.EQ.1)WRITE(3)EPHM(1),EPHM(2),EPHM(10),EPHM(11),EPHM(12),
1 EPHM(14),EPHM(24),EPHM(28),EPHM(30),EPHM(35),EPHM(36)
GO TO 1
50 WRITE(*,1012)
1012 FORMAT(' JOB COMPLETED')
70 CALL TIMER(KTIM2)
TME=.01*FLOAT(KTIM2-KTIM1)
PRINT*,' ELAPSED TIME = ',TME
IF(IOPEN1.EQ.1)CLOSE(UNIT=1)
IF(IOPEN3.EQ.1)CLOSE(UNIT=3)
IF(IOPEN4.EQ.1)CLOSE(UNIT=4)
STOP
END
SUBROUTINE SWAP4(IN,IOUT)
LOGICAL*1 IN(4),IOUT(4)
IOUT(1)=IN(4)
IOUT(2)=IN(3)
IOUT(3)=IN(2)
IOUT(4)=IN(1)
RETURN
ENTRY SWAP2
IOUT(1)=IN(2)
IOUT(2)=IN(1)
RETURN
END
SUBROUTINE PAUZ(ANS)
CHARACTER*1 ANS
READ(*,1)ANS
1 FORMAT(A)
RETURN
END
SUBROUTINE SUFIX(NAME,INC)
CHARACTER*1 NAME(51),INC(3),INC1
DATA INC1/'.'/
DO 1 I=1,51
IF(NAME(I).EQ.'.')GOTO4
1 IF(NAME(I).EQ.' ')GOTO3
WRITE(*,2)NAME
2 FORMAT(' ***** ERROR ***** ERROR ***** ERROR *****',//,
1 A,//,' exceeds the limit on file names (50 characters)')
STOP
3 NAME(I)=INC1
4 NAME(I+1)=INC(1)
NAME(I+2)=INC(2)
NAME(I+3)=INC(3)
RETURN
END
SUBROUTINE READEPH(JATA,T1,T2,DATA,IFLAG)
INTEGER*4 JATA(60),ICON,ITMP
INTEGER*2 IFLAG,INDFYL,IEOR
DIMENSION DATA(60),FACTOR(60)
DATA INDFYL/0/
DATA FACTOR/1.,.001,3*.0001,3*1.E-7,2*.0001,2*1.0E-6,
1 3*1.E-7,2*1.E-6,1.E-7,1.E-6,2*1.E-7,1.E-6,1.E-7,4*.0001,
2 1.E-7,6*1.E-6,1.E-7,.0001,2*1.E-6,.0001,2*1.E-6,.0001,6*1.,
3 1.E-6,8*.0001,3*1./
C 1 JULIAN DATE (DAYS)
C 2 UT, Milliseconds
C 3 X, ECI, km
C 4 Y, ECI, km
C 5 Z, ECI, km
C 6 VX, ECI, km/SEC
C 7 VY, ECI, km/SEC
C 8 VZ, ECI, km/SEC
C 9 RADIUS, EARTH CENTER TO SATELLITE, km
C 10 Altitude, km
C 11 Latitude, Deg
C 12 Longitude, Deg
C 13 Velocity, km/sec
C 14 Local Time, hr
C 15 Radius, Mag, EMR (6371.2 km)
C 16 Latitude. Mag, Deg
C 17 Longitude, Mag, Deg
C 18 Radius, SM, EMR
C 19 Latitude, SM, Deg
C 20 Local Time, SM, hr
C 21 Radius, GSM, EMR
C 22 Latitude, GSM, Deg
C 23 Local Time, GSM, hr
C 24 B, nT
C 25 BX, ECI, nT
C 26 BY, ECI, nT
C 27 BZ, ECI, nT
C 28 Mag Local Time, hr
C 29 Solar Zenith Angle, Deg
C 30 Invariant Latitude, Deg
C 31 B100N latitude, Deg
C 32 B100N longitude, Deg
C 33 B100S latitude, Deg
C 34 B100S longitude, Deg
C 35 L-shell, EMR
C 36 Bmin, nT
C 37 Bmin Latitude, Deg
C 38 Bmin Longitude, Deg
C 39 Bmin Altitude, km
C 40 Bconj Latitude, Deg
C 41 Bconj Longitude, Deg
C 42 Bconj Altitude, km
C 43 X Sun Position, ECI, km
C 44 Y Sun Position, ECI, km
C 45 Z Sun Position, ECI, km
C 46 X Moon Position, ECI, km
C 47 Y Moon Position, ECI, km
C 48 Z Moon Position, ECI, km
C 49 Right Ascension of Greenwich
C 50 B100N, nT
C 51 B100S, nT
C 52 Mx dipole moment, ECI, nT
C 53 My dipole moment, ECI, nT
C 54 Mz dipole moment, ECI, nT
C 55 Dx dipole offset, ECI, nT
C 56 Dy dipole offset, ECI, nT
C 57 Dz dipole offset, ECI, nT
C 58 Vacant
C 59 Vacant
C 60 Vacant
C
IF(INDFYL.EQ.1.AND.IFLAG.EQ.1)RETURN
ICON=2**30
IFLAG=0
1 READ(UNIT=1,END=1000)JATA
READ(UNIT=1,END=1000)IEOR
CALL SWAP4(JATA(2),ITMP)
TIME=.001*FLOAT(ITMP-ICON)
IF(TIME.LT.(T1-60.))GO TO 1
IF(TIME.GT.(T2+300.))RETURN
DO 2 I=1,57
CALL SWAP4(JATA(I),ITMP)
2 DATA(I)=FLOAT(ITMP-ICON)*FACTOR(I)
RETURN
1000 WRITE(*,1001)
1001 FORMAT(' HIT THE END OF THE EPHEMERIS FILE',/,
1 ' PROCESSING OF EPHEMERIS STOPPED')
IFLAG=1
INDFYL=1
RETURN
END
SUBROUTINE OPENOLD(FILNAM,NUNIT,NOPEN)
CHARACTER*30 FILNAM
CHARACTER*1 ANS
INTEGER*2 NUNIT,NOPEN
INTEGER*4 LEN,NLEN
LOGICAL OPEND,EXST
1 INQUIRE(FILE=FILNAM,EXIST=EXST,OPENED=OPEND)
IF(EXST)GOTO5
NOPEN=0
WRITE(*,2)CHARNB(FILNAM)
2 FORMAT(' FILE ',A,' DOES NOT EXIST',/,' DO YOU NEED IT? (Y,N)')
CALL PAUZ(ANS)
IF(ANS.EQ.'N'.OR.ANS.EQ.'n')RETURN
WRITE(*,3)
3 FORMAT(' ENTER FILE NAME, INCLUDING FULL PATH',/)
READ(*,4)FILNAM
4 FORMAT(A)
GO TO 1
5 IF(OPEND)GO TO 6
OPEN (UNIT=NUNIT,FILE=FILNAM,STATUS='OLD',ACCESS='TRANSPARENT',
1 FORM='UNFORMATTED')
NOPEN=1
C GET THE FILE LENGTH IN BYTES
6 INQUIRE(FILE=FILNAM,FLEN=LEN)
NLEN=LEN/512
WRITE(*,7)CHARNB(FILNAM),LEN,NLEN
7 FORMAT(' FILE ',A,' IS ',I8,' BYTES (',I5,'+ SECTORS) LONG')
RETURN
END
SUBROUTINE READHED(NHED,DATHED,IOPEN)
INTEGER*2 IOPEN,NHED
INTEGER*4 JATA(30)
LOGICAL*1 KATA(120)
DIMENSION DATHED(28)
IF(IOPEN.EQ.0)RETURN
5 READ(UNIT=NHED,END=1000)KATA
IGG=1
DO 20 IG=1,30
CALL SWAP4(KATA(IGG),JATA(IG))
20 IGG=IGG+4
DO 21 I=1,28
21 DATHED(I)=FLOAT(JATA(I))
DATHED(7)=.001*DATHED(7)
DATHED(8)=.001*DATHED(8)
DATHED(9)=.001*DATHED(9)
DATHED(15)=.001*DATHED(15)
DATHED(16)=.001*DATHED(16)
DATHED(17)=.001*DATHED(17)
DATHED(18)=.001*DATHED(18)
DATHED(19)=.001*DATHED(19)
DATHED(20)=.001*DATHED(20)
DATHED(21)=.001*DATHED(21)
DATHED(22)=.001*DATHED(22)
DATHED(24)=.001*DATHED(24)
DATHED(26)=.001*DATHED(26)
DATHED(28)=.001*DATHED(28)
C
WRITE(*,100)(JATA(I),I=1,6),(DATHED(J),J=7,9),(JATA(K),K=10,14)
100 FORMAT(' Vehicle ID = ',I9,20X,'Experiment ID = ',I9,/,
1 ' Orbit Number = ',I9,20X,'Julian Date = ',I9,/,
2 ' Year = ',I9,20X,'Day of Year = ',I9,/,
3 ' UT Start of Data = ',F9.3,20X,'UT End of Data = ',F9.3,/,
4 ' UT First Perigee = ',F9.3,20X,'VTCW at Start = ',Z8,/,
5 ' VTCW at End = ',Z8,20X,'Agency Tape Date = ',I9,/,
6 ' Missing Maj Frames ',I9,20X,'Filled Minor Frms ',I9,/)
WRITE(*,101)(DATHED(J),J=15,22),JATA(23),DATHED(24),JATA(25),
1 DATHED(26),JATA(27),DATHED(28)
101 FORMAT(' Penumbra Start = ',F9.3,20X,
1 'Penumbra Stop = ',F9.3,/,
2 ' Umbra Start = ',F9.3,20X,'Umbra Stop = ',F9.3,/,
3 ' Penumbra Start = ',F9.3,20X,'Penumbra Stop = ',F9.3,/,
4 ' Umbra Start = ',F9.3,20X,'Umbra Stop = ',F9.3,/,
5 ' VTCW',10X,'= ',Z8,20X,'UT',12X,'= ',F9.3,/,
6 ' VTCW',10X,'= ',Z8,20X,'UT',12X,'= ',F9.3,/,
7 ' VTCW',10X,'= ',Z8,20X,'UT',12X,'= ',F9.3,/)
GO TO 1001
1000 PRINT*,' ERROR IN READING THE HEADER FILE'
1001 IOPEN=0
CLOSE(UNIT=NHED)
RETURN
END
|
Converting unformatted files with LF90 or LF95 usually involves opening the file using the specifier ACCESS="TRANSPARENT" (a nonstandard Lahey extension), which allows the file to be read a byte at a time with no assumptions about headers or record delimiters. This allows one to have the same degree of control as when handling files in the C language.
Here is the link to the input files. There are two of them in there. One is the header file and the other is the ephemeris file to which the code refers. They are both in binary and I don't know if it matters but I have good reason to believe that the developer was working on a little endian system. 174.29.65.10 ( talk) 06:03, 6 August 2011 (UTC)
This is the cr0006.hed header file and this is the cr0006.eph ephemeris file. The extensions are just a label because both files are just binaries. 174.29.65.10 ( talk) 07:39, 6 August 2011 (UTC)
Extended content
|
---|
CRRES EPHEMERIS PROGRAM VER. 1.01
This version of ephemer requires EORs in th .EPH file INPUT FILE NAME? cr0006.eph FILE cr0006.HED IS 53241 BYTES ( 103+ SECTORS) LONG Vehicle ID = 0 Experiment ID = 0 Orbit Number = 0 Julian Date = 0 Year = 0 Day of Year = 50856192 UT Start of Data = 0.000 UT End of Data = 0.000 UT First Perigee = 0.000 VTCW at Start = 0 VTCW at End = 0 Agency Tape Date = 0 Missing Maj Frames 0 Filled Minor Frms 0 Penumbra Start = ********* Penumbra Stop = ********* Umbra Start = 0.000 Umbra Stop = 0.000 Penumbra Start = 0.000 Penumbra Stop = 0.000 Umbra Start = 0.000 Umbra Stop = 0.000 VTCW = 0 UT = 0.000 VTCW = 0 UT = 0.000 VTCW = 0 UT = 0.000 FILE cr0006.EPH IS 53241 BYTES ( 103+ SECTORS) LONG WRITE OUTPUT TO THE SCREEN (1), FILE (2), OR BOTH (3) 3 PAUSE DISPLAY BETWEEN FRAMES? (YES=1,NO=2) 1 DO YOU WANT THE PLOT FORMAT FILE? (Y,N) y OUTPUT FILE NAME? cr0006.out At line 231 of file wikiref.f (unit = 1, file = 'cr0006.EPH') Fortran runtime error: Read past ENDFILE record |
Well I have no idea what the input should look like. Its just binary data (probably raw data from the satellite) but I don't know the format. You can probably deduce that from the FORTRAN code. The output I think should be tables of single precision numbers (probably with 60 rows or something like how it says in the comments). The output should be various magnetic field and particle measurements along with longitude, latitude, and altitude where the measurements were taken. 174.29.65.10 ( talk) 21:39, 6 August 2011 (UTC)
My laptop was running very slow, so I did a system restore, deleted some programs I rarely use from add/remove programs, and updated my symantic virus protection...in that exact order. Everything works great, except now there is no audio. I've checked all the volume controls, system tools and anything else related to audio. Nothing. What could I have possibly done to disable the audio? Any idea how I can fix this? Quinn ❀ BEAUTIFUL DAY 20:37, 5 August 2011 (UTC)
Yeah, sounds great, but how? Quinn ❀ BEAUTIFUL DAY 00:02, 6 August 2011 (UTC)