From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- pkg/tbtables/fitsio/ftplsw.f | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 pkg/tbtables/fitsio/ftplsw.f (limited to 'pkg/tbtables/fitsio/ftplsw.f') diff --git a/pkg/tbtables/fitsio/ftplsw.f b/pkg/tbtables/fitsio/ftplsw.f new file mode 100644 index 00000000..58d3d5d7 --- /dev/null +++ b/pkg/tbtables/fitsio/ftplsw.f @@ -0,0 +1,39 @@ +C-------------------------------------------------------------------------- + subroutine ftplsw(ounit,status) + +C Put Long String Warning: +C write the LONGSTRN keyword and a few COMMENT keywords to the header +C (if they don't already exist) to warn users that this FITS file +C may use the OGIP long string convention. + +C This subroutine should be called whenever FTPKLS is called. + + integer ounit,status,tstat + character value*8,comm*8 + + if (status .gt. 0)return + + tstat=status + call ftgkys(ounit,'LONGSTRN',value,comm,status) + if (status .eq. 0)then +C The keyword already exists so just exit + return + end if + + status=tstat + call ftpkys(ounit,'LONGSTRN','OGIP 1.0', + & 'The OGIP Long String Convention may be used.',status) + + call ftpcom(ounit, + & 'This FITS file may contain long string keyword values that are' + & ,status) + call ftpcom(ounit, + & 'continued over multiple keywords. The OGIP convention uses the' + & //' &',status) + call ftpcom(ounit, + & 'character at the end of each substring which is then continued' + & ,status) + call ftpcom(ounit, + & 'on the next keyword which has the name CONTINUE.' + & ,status) + end -- cgit