[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

20050519: 20050517: segmentation fault in sfgram_gf

Clint,

I'll just bet your sfxgst.o in $GEMLIB/sfgram.a didn't get
updated by your system, as would be shown by:
ar tv  $GEMLIB/sfgram.a sfxgst.o

Try:

cd $GEMPAK/source/programs/sf/sfgram
ar dv $GEMLIB/sfgram.a sfxgst.o
make all
make install
make programs_gf
make clean


Chiz




Steve Chiswell
Unidata User Support




>From: Clint Rowe <address@hidden>
>Organization: UCAR/Unidata
>Keywords: 200505191927.j4JJRiP3017825

>Chiz,
>
>I made those changes to sfxgst.f, then did make programs_gf and make install
>in the sfgram directory, but it did not change the results -- I'm still 
>getting a segmentation fault.
>
>Here's the version I'm using -- it's the one I compiled today:
>
>ls -l `which sfgram_gf`
>-rwxr-xr-x    1 nawips   apps       645585 May 19 12:59 /apps/nawips/NAWIPS/bi
> n/linux/sfgram_gf
>
>And here's the modified sfxgst.f
>
>        SUBROUTINE SFXGST  ( parms, icolor, data, ntime, xval, iret )
>C************************************************************************
>C* SFXGST                                                               *
>C*                                                                      *
>C* This subroutine plots character data for SFGRAM.                     *
>C*                                                                      *
>C* SFXGST  ( PARMS, ICOLOR, DATA, NTIME, XVAL, IRET )                   *
>C*                                                                      *
>C* Input parameters:                                                    *
>C*      PARMS           CHAR*           Parm*condition                  *
>C*      ICOLOR          INTEGER         Color                           *
>C*      DATA (NTIME)    REAL            Data                            *
>C*      NTIME           INTEGER         Number of times                 *
>C*      XVAL (NTIME)    REAL            Points on x axis                *
>C*                                                                      *
>C* Output parameters:                                                   *
>C*      IRET            INTEGER         Return code                     *
>C*                                        0 = normal return             *
>C**                                                                     *
>C* Log:                                                                 *
>C* M. desJardins/GSFC    5/90                                           *
>C* S. Jacobs/NCEP        9/97   Changed call to GQTEXT and GSTEXT       *
>C************************************************************************
>        INCLUDE         'GEMPRM.PRM'
>C*
>        CHARACTER*(*)   parms
>        REAL            xval (*), data (*)
>C*
>        CHARACTER       condtn*8, ppp*4, gchar*1
>C*
>        INCLUDE         'ERMISS.FNC'
>C*
>        DATA            gchar / 'G' /
>C------------------------------------------------------------------------
>        iret = 0
>C
>C*      Get the condition and parameter parts.
>C
>        condtn = parms (5: )
>        ppp    = parms
>C
>C*      Set color.
>C
>        CALL GSCOLR  ( icolor, ier )
>C
>C*      Get conditions.
>C
>        CALL SFXCND  ( condtn, size, iwidth, ier )
>C
>C*      Set the character size and width.
>C
>        CALL GQTEXT  ( itxfn, itxhw, sztext, itxwid,
>     +                 ibrdr, irrotn, ijust, ier )
>        CALL GSTEXT  ( 0, 0, size, iwidth, 0, 0, 0, ier )
>C
>C*      Loop through points writing text.
>C
>        DO  i = 1, ntime
>            IF  ( .not. ERMISS ( data (i) ) .and.
>     +            ( data (i) .gt. 0. ) )  THEN
>                CALL GTEXT  ( 'M', xval (i), data (i), gchar, 0., 0, 0,
>     +                                  ier )
>            END IF
>        END DO
>C
>C*      Reset text attributes.
>C
>        CALL GSTEXT  ( 0, 0, sztext, itxwid, 0, 0, 0, ier )
>C*
>        RETURN
>        END
>
>
>I'm working with GEMPAK5.8.1, since I haven't had a chance (yet) to do
>anything but grab the source distribution for GEMPAK5.8.2a.  Any reason
>to switch over now or should this have been the only necessary fix on 
>5.8.1, too?
>
>Clint
>
>====================================================================
>Clinton M. Rowe
>Associate Professor 
>Meteorology/Climatology Program                  phone:(402)472-1946
>Department of Geosciences                          fax:(402)472-4917
>University of Nebraska-Lincoln                        address@hidden
>
--
NOTE: All email exchanges with Unidata User Support are recorded in the
Unidata inquiry tracking system and then made publicly available
through the web.  If you do not want to have your interactions made
available in this way, you must let us know in each email you send to us.