25 lines
761 B
Text
25 lines
761 B
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
|