$NetBSD: patch-ab,v 1.1.1.1 2008/03/09 17:52:57 tnn Exp $ --- sympro.f.orig Tue Apr 30 16:18:32 2002 +++ sympro.f Tue Apr 30 16:20:24 2002 @@ -170,10 +170,10 @@ 50 CONTINUE IF (ALLINT) THEN WRITE(6,210)ISYMT(1+NENT),(ITEMP(I),I=1,NVALUE-1) - 210 FORMAT(X,A10,I7,8I7) + 210 FORMAT(1X,A10,I7,8I7) ELSE WRITE(6,220)ISYMT(1+NENT),ITEMP(1),(TEMP(I),I=2,NVALUE-1) - 220 FORMAT(X,A10,I7,8F7.3) + 220 FORMAT(1X,A10,I7,8F7.3) ENDIF SIGMA = 1 IF (ITEMP(1) .LE. -3) SIGMA = -1