[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
20050519: 20050517: segmentation fault in sfgram_gf
- Subject: 20050519: 20050517: segmentation fault in sfgram_gf
- Date: Thu, 19 May 2005 15:15:28 -0600
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.