Instruction manual

37
SX3 = SX3 - SX*SX2/N
SXY = SXY - SX*SY/N
SX2Y= SX2Y- SX2*SY/N
SX2 = SX2 - SX*SX/N
D = SX2*SX4 - SX3**2
A1 = (SX4*SXY - SX3*SX2Y)/D
A2 = (SX2*SX2Y - SX3*SXY)/D
A0 = SY/N - A1*SX/N - A2*SSX2/N
ELSE
A0 = (Y(1)+Y(2))/2.
A1=0.0
A2=0.0
ENDIF
RETURN
END
!==========================================================
SUBROUTINE GRAPHICSMODE(CTITLE)
!==========================================================
USE DFLIB
IMPLICIT NONE
TYPE (WINDOWCONFIG) WINC
TYPE (QWINFO) QW
INTEGER RETI2, CWIN/0/
LOGICAL STATUS, RESULT
CHARACTER*50 CTITLE
COMMON WINC
COMMON QW
!------------------------------------------
! ... set up the size of the frame window
!------------------------------------------
WINC.NUMXPIXELS = -1
WINC.NUMYPIXELS = -1
WINC.NUMTEXTCOLS = -1
WINC.NUMTEXTROWS = -1
WINC.NUMCOLORS = -1
WINC.TITLE = CTITLE
STATUS = SETWINDOWCONFIG(WINC)
IF(.NOT.STATUS) STATUS = SETWINDOWCONFIG(WINC)
STATUS = FOCUSQQ(CWIN)
!----------------------------------------
! ... set the frame window to maximum
!----------------------------------------
QW.TYPE = QWIN$MAX
RETI2 = SETWSIZEQQ(QWIN$FRAMEWINDOW, QW)
RETI2 = SETWSIZEQQ(CWIN, QW)
RETURN
END SUBROUTINE GRAPHICSMODE
!=========================================================
SUBROUTINE NCSTRING(STRING, NCHAR)
!=========================================================
CHARACTER*40 STRING
INTEGER NCHAR, I
I = 2
DO WHILE(STRING(I:I).NE.'')
I=I+1
END DO
NCHAR = I-1
END
!==========================================================
SUBROUTINE INLINE(NUNIT, NLINE, OP)
c ... read nlines from file nunit write to screen in OP is true
!==========================================================
IMPLICIT NONE
INTEGER I,NLINE,NUNIT
CHARACTER*80 LINE
LOGICAL OP