Re: [gembud] Fortran and gempak

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>