****************************************************************************** BSW Electronic Mail 07-May-1997 20:35:02 CET Message Number 0010 ****************************************************************************** Author: James Johnson, UNAVCO Subject: IERS format fix The format for the Bulletin B files has changed slightly. Here is a fix that will work for the 5-day values: In the source file $LG/RDPOL.f find the lines: C C READ FORMAT OF BULLETIN B (5 DAY VALUES)= 1 C --------------------------------------------- IF (IFORM.EQ.1.AND.IERB1D.EQ.5) THEN DO 50 I1=1,1000 READ(LFN,11,END=920)POLINE IF (LENGTH(POLINE).GT.50.AND.POLINE(20:20).EQ.'.'.AND. 1 POLINE(28:28).EQ.'.'.AND.POLINE(36:36).EQ.'.')THEN READ(POLINE,51,ERR=910) MJD,POLCOO(1),POLCOO(2),POLCOO(3), 1 UTAT,POLCOO(5),POLCOO(4) 51 FORMAT(9X,I7,2F8.4,F9.5,F12.5,2F9.1) POLTIM=MJD*1.D0 GPSUTC=DNINT(POLCOO(3)-UTAT-19) CALL UT1RED(POLTIM,AKORR) POLCOO(1)=POLCOO(1)+POLOFF(POLTIM,1) POLCOO(2)=POLCOO(2)+POLOFF(POLTIM,2) POLCOO(3)=POLCOO(3)+AKORR/1000.D0+POLOFF(POLTIM,3) POLCOO(4)=POLCOO(4)/1000.D0+POLOFF(POLTIM,5) POLCOO(5)=POLCOO(5)/1000.D0+POLOFF(POLTIM,4) REM=BBREM GOTO 999 ELSE IF (POLINE(1:22).EQ.' Preliminary extension'.OR. Just before the last line in the above code snipette, add the follwing: ELSE IF (LENGTH(POLINE).GT.50.AND.POLINE(20:20).EQ.'.'.AND. 1 POLINE(28:28).EQ.'.'.AND.POLINE(37:37).EQ.'.')THEN READ(POLINE,52,ERR=910) MJD,POLCOO(1),POLCOO(2),POLCOO(3), 1 UTAT,POLCOO(5),POLCOO(4) 52 FORMAT(9X,I7,F9.5,F8.5,F10.6,F12.6,F8.1,F8.1) POLTIM=MJD*1.D0 GPSUTC=DNINT(POLCOO(3)-UTAT-19) CALL UT1RED(POLTIM,AKORR) POLCOO(1)=POLCOO(1)+POLOFF(POLTIM,1) POLCOO(2)=POLCOO(2)+POLOFF(POLTIM,2) POLCOO(3)=POLCOO(3)+AKORR/1000.D0+POLOFF(POLTIM,3) POLCOO(4)=POLCOO(4)/1000.D0+POLOFF(POLTIM,5) POLCOO(5)=POLCOO(5)/1000.D0+POLOFF(POLTIM,4) REM=BBREM GOTO 999 I hope this helps. Regards, -Jim Johnson > > ****************************************************************************** > BSW Electronic Mail 07-May-1997 16:56:22 CET Message Number 0009 > ****************************************************************************** > > Author: Nestor Zarraoa, DLR, Germany > Subject: IERS formats > > > Dear colleagues, > > After trying to run Bernese GPS software 4.0 with data from the last week > of March, using as Earth Orientation Parameters source the latest > Bulletin B (109), I found that the format in the Bulletin B is changed, and > that the POLE UPDATE option (5.5.1) of the software can not cope with the > new format. > > Do you have similar experiences ? Is there any standard solution already > available ? > [Mailed from: jjohnson@unavco.ucar.edu (James Johnson)]