Jamie,
An acadamian not able to divulge a process . . . ouch.
I would follow Evan's advice, then, and wrap your nex2img call in a
shell script with heredoc.
Stonie
Jamie Lahowetz wrote:
> Here is my test program:
> PROGRAM gempak_test
> IMPLICIT NONE
>
> !##################################################
> CHARACTER(200) :: command
> !##################################################
> command = "nex2img"
> CALL system(command)
>
> It seems that it gets stuck here.
>
> command = "GRDAREA = 28.5;-105.28;49;-88.78"
> CALL system(command)
>
> command = "PROJ = MER"
> CALL system(command)
>
> command = "RADDUR = 20"
> CALL system(command)
>
> command = "GFUNC = ncr"
> CALL system(command)
>
> command = "KXKY = 1612;2280"
> CALL system(command)
>
> command = "CPYFIL ="
> CALL system(command)
>
> command = "RADTIM = 20011121/2346"
> CALL system(command)
>
> command = "RADFRQ ="
> CALL system(command)
>
> command = "STNFIL = nexrad.tbl"
> CALL system(command)
>
> command = "RADMODE = PC"
> CALL system(command)
>
> command = "RADFIL = /home/thor/20011121/2346.gif"
> CALL system(command)
>
> command = "LUTFIL = upc_rad24.tbl"
> CALL system(command)
>
> command = "list"
> CALL system(command)
>
> command = "run"
> CALL system(command)
>
> command = "exit"
> CALL system(command)
>
> END PROGRAM gempak_test
>
> I'm sorry to say that I cant divulge about what the main program does to
> much but it requires gif images created from raw radar data received
> from NCDC. Hope this helps.
>
> On Thu, Sep 3, 2009 at 8:32 PM, Stonie R. Cooper
> <stonewall@xxxxxxxxxxxxx <mailto:stonewall@xxxxxxxxxxxxx>> wrote:
>
> Jamie - you may have to be more specific. What does this "fortran"
> program do to the gif images created from nex2img? What is your desired
> result?
>
> Your CALL statement is probably getting stuck because the neximg has
> been set for continuous loop. If RADFRQ is set to anything other than 0
> or nothing, it will attempt to repeat after the numerical value of the
> assignment.
>
> Stonie Cooper,
> Planetary Data, Inc.
> Prague, NE
> 402-663-6599
>
> Jamie Lahowetz wrote:
> > I am curious. I run nex2img to create gif images of radar scans. These
> > are then ingested into a Fortran program. Does anyone know a way to do
> > this directly from fortran? If I use CALL system statements the script
> > gets stuck as soon as you start nex2img.
> >
> > --
> > Jamie Ryan Lahowetz
> > University of Nebraska - Lincoln
> > Graduate Student - Geosciences
> > 402.304.0766
> > jlahowetz@xxxxxxxxx <mailto:jlahowetz@xxxxxxxxx>
> <mailto:jlahowetz@xxxxxxxxx <mailto:jlahowetz@xxxxxxxxx>>
> >
> >
> >
> ------------------------------------------------------------------------
> >
> > _______________________________________________
> > gembud mailing list
> > gembud@xxxxxxxxxxxxxxxx <mailto:gembud@xxxxxxxxxxxxxxxx>
> > For list information or to unsubscribe, visit:
> http://www.unidata.ucar.edu/mailing_lists/
>
>
>
>
> --
> Jamie Ryan Lahowetz
> University of Nebraska - Lincoln
> Graduate Student - Geosciences
> 402.304.0766
> jlahowetz@xxxxxxxxx <mailto:jlahowetz@xxxxxxxxx>
