fitsutil fix

Stephen Walton wrote on Mar 16, 2006

Hi, all,

I just downloaded the fitsutil package and tried to build it. It contains an error: there is a DO loop in imputextf.x where the DO control variable is modified within the loop, which violates the Fortran standard (and this is rejected by the Absoft compiler which I use). Here's a unified diff of the fix I used.

--- imputextf.x.bck 2006-03-16 11:27:22.000000000 -0800
+++ imputextf.x 2006-03-16 11:27:22.000000000 -0800
@@ -123,7 +123,8 @@
# Copy the string to the output buffer, marking the
# last blank found.

- do op = 1, LEN_HISTSTR {
+ op = 1
+ while (op <= LEN_HISTSTR) {
if (Memc[ln+ip-1] == lf) {
ip=ip+1
}

---

Last post on Mar 16, 2006