****************************************************************************** BSW Electronic Mail 15-Dec-1997 08:35:02 CET Message Number 0024 ****************************************************************************** AUTHOR: Rolf Dach Subject: BUG in OBSFMT, FMTOBS, and SERVOBS Dear colleagues, we 've found a bug in the Bernese Software Version 4.0: If you have more than 10 satellites per epoch you will get an error message transforming the binary to the ascii observation file. The reason for it is the FORMAT-line in the subroutine WTFMTI.f. If you change the number of satellites there you should also increase the length of the character variable LINE. Exactly the same changes are necessary for the inverse subroutine RDFMTI.f You should change the following lines: C* SUBROUTINE WTFMTI(LFNFMT,INIT, 1 IFRMAT,NFREQ,TIMREF,IDELTT,DTBLNK,OBSTIM, 2 DELTAT,EPOFLG,NSAT,NRSAT,OBSFLG,OBSERV) CC . . . ccc ccc original definition ccc c CHARACTER*255 LINE ccc ccc new definition ccc CHARACTER*512 LINE ccc . . . ccc ccc original FORMAT-line ccc ccc5 FORMAT(I5,2X,A8,1X,A1,I3,10(F14.3,2A1,I1,I3)) ccc ccc new FORMAT-line ccc 5 FORMAT(I5,2X,A8,1X,A1,I3,24(F14.3,2A1,I1,I3)) ccc . . . ccc ccc orignal FORMAT-line ccc ccc8 FORMAT(20X,10(F14.3,2A1,I1,I3)) ccc ccc new Format-line ccc 8 FORMAT(20X,24(F14.3,2A1,I1,I3)) ccc ccc C RETURN END C* SUBROUTINE RDFMTI(LFNFMT,IFRMAT,NFREQ,OBSTIM,DELTAT,EPOFLG, 1 NSAT,NRSAT,OBSFLG,OBSERV,IRETRN) CC . . . ccc ccc original definition ccc c CHARACTER*255 LINE ccc ccc new definition ccc CHARACTER*512 LINE ccc . . . ccc ccc original FORMAT-line ccc ccc5 FORMAT(I5,1X,3(1X,I2),1X,A1,I3,10(F14.3,2A1,I1,I3)) ccc ccc new Format-line ccc 5 FORMAT(I5,1X,3(1X,I2),1X,A1,I3,24(F14.3,2A1,I1,I3)) ccc . . . ccc ccc orignal FORMAT-line ccc ccc8 FORMAT(20X,10(F14.3,2A1,I1,I3)) ccc ccc new FORMAT-line ccc 8 FORMAT(20X,24(F14.3,2A1,I1,I3)) ccc . . . RETURN END After recompiling the subroutines and updating the archiv-file you had to link the following programs: OBSFMT, FMTOBS (both in the MAIN-directory), and SERVOBS (in the menu-directory)! =============================================================================== III PPPPPPP GGGGGGG Rolf Dach III PPP PPP GGG GGG III PPP PPP GGG GGG Technische Universitaet Dresden III PPP PPP GGG Institut fuer Planetare Geodaesie III PPPPPPP GGG GGGG D-01062 Dresden, Germany III PPP GGG GGG III PPP GGG GGG Phone: +49-351-463 2854 III PPP GGGGGGG Fax: +49-351-463 7063 E-mail: dach@ipg.geo.tu-dresden.de =============================================================================== [Mailed from: Rolf Dach ]