head	1.2;
access;
symbols
	RELEASE_6_1_0:1.1
	RELEASE_5_5_0:1.1
	RELEASE_6_0_0:1.1
	RELEASE_5_4_0:1.1
	RELEASE_4_11_0:1.1
	RELEASE_5_3_0:1.1
	RELEASE_4_10_0:1.1
	RELEASE_5_2_1:1.1
	RELEASE_5_2_0:1.1
	RELEASE_4_9_0:1.1
	RELEASE_5_1_0:1.1
	RELEASE_4_8_0:1.1
	RELEASE_5_0_0:1.1
	RELEASE_4_7_0:1.1
	RELEASE_4_6_2:1.1
	RELEASE_4_6_1:1.1
	RELEASE_4_6_0:1.1
	RELEASE_5_0_DP1:1.1
	RELEASE_4_5_0:1.1
	RELEASE_4_4_0:1.1
	RELEASE_4_3_0:1.1
	RELEASE_4_2_0:1.1
	RELEASE_4_1_1:1.1
	RELEASE_4_1_0:1.1
	RELEASE_3_5_0:1.1
	RELEASE_4_0_0:1.1
	RELEASE_3_4_0:1.1
	RELEASE_3_3_0:1.1
	RELEASE_3_2_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2006.07.03.04.41.35;	author maho;	state dead;
branches;
next	1.1;

1.1
date	99.05.07.05.12.18;	author taoka;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Update to 1.10 (maintained by others) and unbreak.
@
text
@*** sympro.f2	Sun Apr 18 21:32:48 1999
--- sympro.f	Sun Apr 18 21:42:30 1999
***************
*** 170,179 ****
     50 CONTINUE
        IF (ALLINT) THEN
          WRITE(6,210)ISYMT(1+NENT),(ITEMP(I),I=1,NVALUE-1)
!  210  FORMAT(X,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)
        ENDIF
        SIGMA = 1
        IF (ITEMP(1) .LE. -3) SIGMA = -1
--- 170,179 ----
     50 CONTINUE
        IF (ALLINT) THEN
          WRITE(6,210)ISYMT(1+NENT),(ITEMP(I),I=1,NVALUE-1)
!  210  FORMAT(1X,A10,I7,8I7)
        ELSE
          WRITE(6,220)ISYMT(1+NENT),ITEMP(1),(TEMP(I),I=2,NVALUE-1)
!  220  FORMAT(1X,A10,I7,8F7.3)
        ENDIF
        SIGMA = 1
        IF (ITEMP(1) .LE. -3) SIGMA = -1
@


1.1
log
@Be able to use ${PREFIX}

Submitted by:	maintainer
@
text
@@

