1
2
3
4
5
6
7
8
9
10
11
12
|
C----------------------------------------------------------------------
subroutine ftpprh(ounit,simple,bitpix,naxis,naxes,
& pcount,gcount,extend,status)
C OBSOLETE routine: should call ftphpr instead
integer ounit,bitpix,naxis,naxes(*),pcount,gcount,status
logical simple,extend
call ftphpr(ounit,simple,bitpix,naxis,naxes,
& pcount,gcount,extend,status)
end
|
