Re: extract of an image (array)

Yes, it is identical because I thought Ken couldn´t read my first
article because of a problem so I just inserted it again... SORRY if I
misunderstood!!!
Since today the program works - almost "perfekt". This is the current
version:
-----------------------------------------------------------------------------
program europa_extrahieren

character(256) :: name_IN =
"C:\MSG-1\Images\HRIT\200407161200-msg-ch01.pgm"
character(256) :: name_OUT =
"C:\MSG-1\Images\Europa\200407161200-msg-ch01.pgm"
integer :: pixels = 3712
integer :: lines = 3712

integer :: x, y

integer :: stat, stato

integer(2), Dimension (:,:), Allocatable :: array_bild, array_europa
character(120) :: header

real :: a

allocate (array_bild(1:pixels,1:lines))
allocate (array_europa(500:2500, 1:800))

open(1, file=name_IN, RECL=120, FORM='BINARY', ACCESS='DIRECT',
CONVERT='BIG_ENDIAN', iostat=stato)
open(2, file=name_OUT, FORM='BINARY', iostat=stato)

read (1,REC=1,iostat=stat) header
read (1,REC=2,iostat=stat) array_bild

array_europa = array_bild(500:2500, 1:800)


write (2) header
write (2) array_europa

close (1)
close (2)

deallocate (array_europa)

deallocate (array_bild)

end program europa_extrahieren
----------------------------------------------------------------------------

Thanks to everyone!!!!

Crissy
.

Relevant Pages

  • conversion from type character to type real
    ... calculations so I have to read them out of the header an convert them ... Crissy ... Prev by Date: ...
    (comp.lang.fortran)
  • Re: WPF TabControl - Hiding tab buttons conditionally
    ... TabItem inherits from HeaderedContentControl. ... You can try to set the header content to null with a style trigger. ... but my trigger caused the entire tab page to disappear. ... I've misunderstood your suggestion or my implementation wasn't correct. ...
    (microsoft.public.dotnet.framework)
  • Re: Question about positioning of styles and headers.
    ... there a way to make a style that occupies the same vertical space of ... than the bottom of the header? ... You can place a graphic in the header that occupies some or all of the ... I have probably misunderstood your question. ...
    (microsoft.public.mac.office.word)
  • Re: Question about positioning of styles and headers.
    ... there a way to make a style that occupies the same vertical space of ... than the bottom of the header? ... You can place a graphic in the header that occupies some or all of the ... I have probably misunderstood your question. ...
    (microsoft.public.mac.office.word)
  • Re: David Letterman Proves Culture War Is Real (says B.OR)
    ... Did you read the header to the page ("The Phil Silvers Show")? ... Silver's character on the show) and other aka's used for the show were ... Prev by Date: ...
    (alt.fan.letterman)