blob: 3733f100f17df7604bbe2b94a45aa1c6cafe635e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
C----------------------------------------------------------------------
subroutine fttbit(bitpix,status)
C test that bitpix has a legal value
integer bitpix,status
character value*20
if (status .gt. 0)return
if (bitpix .ne. 8 .and. bitpix .ne. 16 .and. bitpix .ne. 32
& .and. bitpix .ne. -32 .and. bitpix .ne. -64)then
status=211
write(value,1000)bitpix
1000 format(i20)
call ftpmsg('Illegal BITPIX value: '//value)
end if
end
|
