[SAC-HELP] IFTYPE set to IXY or IXYZ

[Arthur Snoke]

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
>