[Seisunix] Problem in code of vzestf.f

Adelson Oliveira adelson.oliveira at gmail.com
Wed Feb 17 02:24:50 CET 2021


Proposed changes solved the compilation problem with make finstall here too

Thanks

Em seg., 15 de fev. de 2021 às 18:05, Fernando M. Roxo da Motta <
petro at roxo.org> escreveu:

>
>   A problem showed up when trying to recompile SU during "make fremake"
> in cwp-44R19.
>
>   In file 'vzestf.f' there is an inconsistency between the "subroutine
> vzest"  and "subroutine readgrids_vzest", that is called by "vzvest".
>
> The "subroutine vzest" describes this dummy argument as:
> (about line 61)
> .....
>      +  isort,                   !isort(2)
>      +  fnames,                  !integer*120 fnames(2) misfit file
> names
>      +  topcmigfile,             !top c0
> .....
>
>
> and defines it as:
>
> (about line 143)
>         character*120 fnames(2)
>
>   The "subroutine readgrids_vzest" defines fnames as:
>
> (about line 1119)
>         character*120 fnames(3)
>
> This definition contradicts the comment at the dummy argument list of
> "subroutine vzest" and the definition of the parameter in it:
>
>   Most recent Gfortran can be very picky about this kind of
> inconsistency and abort compilation with an error message.   Changing
> the definition of of the variable in "subroutine readgrids_vzest" to:
>
> (about line 1119)
>         character*120 fnames(2)
>
>   Solves this problem.
>
>   HTH
>
>
>   Roxo
> P.S.- The 'segdread' has a problem as well with conflicting definition
> of "__FILE" as defined in a GCC header file.   Didn't look at it.
>  --
> ---------------- Non luctari, ludare -------------------+ WYSIWYG
> Fernando M. Roxo da Motta <petro at roxo.org>              | Editor?
> Except where explicitly stated I speak on my own behalf.|  VI !!
>                 PU5RXO | PX5Q6048                       | I see text,
> ------------ Quis custodiet ipsos custodes?-------------+ I get text!
>
> _______________________________________________
> Seisunix mailing list
> Seisunix at mailman.seismic-unix.org
> https://mailman.seismic-unix.org/listinfo/seisunix
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.seismic-unix.org//archives/seisunix/attachments/20210216/2b26b590/attachment.htm>


More information about the Seisunix mailing list