diff options
Diffstat (limited to 'pkg/tbtables/fitsio/ftcrep.f')
| -rw-r--r-- | pkg/tbtables/fitsio/ftcrep.f | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/ftcrep.f b/pkg/tbtables/fitsio/ftcrep.f new file mode 100644 index 00000000..088f2c07 --- /dev/null +++ b/pkg/tbtables/fitsio/ftcrep.f @@ -0,0 +1,29 @@ +C-------------------------------------------------------------------------- + subroutine ftcrep(comm,comm1,repeat) + +C check if the first comment string is to be repeated for all keywords +C (if the last non-blank character is '&', then it is to be repeated) + +C comm c input comment string +C OUTPUT PARAMETERS: +C comm1 c output comment string, = COMM minus the last '&' character +C repeat l true if the last character of COMM was the '&" character +C +C written by Wm Pence, HEASARC/GSFC, June 1991 + + character*(*) comm,comm1 + logical repeat + integer i,j + + repeat=.false. + j=len(comm) + do 10 i=j,1,-1 + if (comm(i:i) .ne. ' ')then + if (comm(i:i) .eq. '&')then + comm1=comm(1:i-1) + repeat=.true. + end if + return + end if +10 continue + end |