diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /pkg/tbtables/fitsio/fitsspp.com | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'pkg/tbtables/fitsio/fitsspp.com')
| -rw-r--r-- | pkg/tbtables/fitsio/fitsspp.com | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitsspp.com b/pkg/tbtables/fitsio/fitsspp.com new file mode 100644 index 00000000..04e4ad79 --- /dev/null +++ b/pkg/tbtables/fitsio/fitsspp.com @@ -0,0 +1,23 @@ +# FITSSPP.COM -- Common block definitions used in fitsspp.x. + +define NB 20 # number of file buffers +define NE 200 # maximun allowed number of extensions + # in the FITS files +define MAXFILES 199 # more than needed + +# The following common is used throughout the fitsio code. +int bufnum, chdu, hdutyp, maxhdu, hdstrt, hdend, nxthdr, dtstrt +int nxtfld +bool wrmode + +common /ft0001/ bufnum[MAXFILES],chdu[NB],hdutyp[NB],maxhdu[NB], + wrmode[NB],hdstrt[NB,NE],hdend[NB],nxthdr[NB],dtstrt[NB],nxtfld + +int compid +common /ftcpid/compid + +int buflun, reclen, bytnum, filesize, recnum, bufid + +common /ftsbuf/buflun[NB],reclen[NB], + bytnum[NB],filesize[NB],recnum[NB],bufid[MAXFILES] + |