iraf.net

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
}