blob: ef9ed01709c9a1b58a88e82bf65091449de8922e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
include <imhdr.h>
#* HISTORY*
#* B.Simon 04-Mar-93 original
# CHECKDIM -- Get the real dimension of an image
int procedure checkdim (im)
pointer im # i: image descriptor
#--
int idim, jdim
begin
# Ignore higher dimesions that only have length one
jdim = 1
do idim = 1, IM_NDIM(im) {
if (IM_LEN(im,idim) > 1)
jdim = idim
}
return (jdim)
end
|
