Thread: IFTYPE set to IXY or IXYZ

Started: 2007-05-16 20:34:17
Last activity: 2007-05-16 21:44:24
Topics: SAC Help
Ray Russo
2007-05-16 20:34:17
I'm trying to use wsac0 with some home-grown fortran code. I get
errors after apparently normal compilation:

ERROR: Illegal enumerated header field value: IXY 4?
ERROR: Illegal enumerated header field value: IXYZ?e?

I have set the IFTYPE several different ways in the call:

ftype = 'IXY' (ftype defined character*4)
call setihv('IFTYPE',ftype,nerr)

or

call setihv('IFTYPE','IXY',nerr)

Nothing works. Looks like there is garbage at the end of the
string, to judge from the error messages above.

Anybody solved this problem?

Thanks!


--
R. M. Russo
Assistant Professor
Dept. of Geological Sciences
University of Florida
P.O. Box 112120
241 Williamson Hall
Gainesville, FL 32611 USA
+1 352 392 6766 office
+1 352 392 9294 fax
rrusso<at>ufl.edu
rayrusso<at>cox.net



  • Arthur Snoke
    2007-05-16 21:44:24
    Hi Ray,

    The sac code for Fortran string handling worked for Sun Fortran, but had
    problems similar to what you describe when using g77 on Linux or Mac OS X.
    Before the release of sac version 101.0, Brian Savage spent time fixing up
    things in the routines in sacio.a.

    What version of sac are you using? What platform? What Fortran
    compiler? If you are using a version earlier than 101.0, I suggest you
    upgrade.

    One trick I have used when I got extra characters in a filename I was
    using in my home-grown sgf-file writer is to add a null character at the
    end of the string:


    nf = lenc(filena)
    write(*,*) 'Opening plotting file named ',filena(1:nf)
    filena(nf+1:nf+1) = char(0)

    where lenc is my own routine for finding out the number of characters in a
    character variable.

    Arthur

    On Wed, 16 May 2007, Ray Russo wrote:

    I'm trying to use wsac0 with some home-grown fortran code. I get errors
    after apparently normal compilation:

    ERROR: Illegal enumerated header field value: IXY 4?
    ERROR: Illegal enumerated header field value: IXYZ?e?

    I have set the IFTYPE several different ways in the call:

    ftype = 'IXY' (ftype defined character*4)
    call setihv('IFTYPE',ftype,nerr)

    or

    call setihv('IFTYPE','IXY',nerr)

    Nothing works. Looks like there is garbage at the end of the string, to
    judge from the error messages above.

    Anybody solved this problem?

    Thanks!


    --
    R. M. Russo
    Assistant Professor
    Dept. of Geological Sciences
    University of Florida
    P.O. Box 112120
    241 Williamson Hall
    Gainesville, FL 32611 USA
    +1 352 392 6766 office
    +1 352 392 9294 fax
    rrusso<at>ufl.edu
    rayrusso<at>cox.net


    _______________________________________________
    sac-help mailing list
    sac-help<at>iris.washington.edu
    http://www.iris.washington.edu/mailman/listinfo/sac-help


19:52:52 v.e73c6799