FLSG620DA Users' Note
http://www.csar.cfs.ac.uk/test/software/maths/nag/mark20...
6 of 10
18/08/2004 12:11
*******************************************************************
* .. Executable Statements ..
WRITE (NOUT,*) 'S18DEF Example Program Results'
* Skip heading in data file
READ (NIN,*)
WRITE (NOUT,*)
WRITE (NOUT,99999) 'Calling with N =', N
WRITE (NOUT,*)
WRITE (NOUT,*)
+' FNU Z SCALE CY(1) CY(2)
+ NZ IFAIL'
WRITE (NOUT,*)
20 READ (NIN,*,END=40) FNU, Z, SCALE
IFAIL = 0
*
CALL S18DEF(FNU,Z,N,SCALE,CY,NZ,IFAIL)
*
WRITE (NOUT,99998) FNU, Z, SCALE, CY(1), CY(2), NZ, IFAIL
GO TO 20
40 STOP
*
99999 FORMAT (1X,A,I2)
99998 FORMAT (1X,F7.4,' (',F7.3,',',F7.3,') ',A,
+ 2(' (',F7.3,',',F7.3,')'),I4,I4)
END
4. Routine-specific Information
Any further information which applies to one or more routines in this implementation is listed
below, chapter by chapter.
(a) D03
The example programs for D03RAF and D03RBF take much longer to run than other examples.
(b) F06, F07 and F08
In this implementation calls to the Basic Linear Algebra Subprograms (BLAS) and linear
algebra routines (LAPACK) can be resolved by calls to SCSL.
(c) G02
The value of ACC, the machine-dependent constant mentioned in several documents in the
chapter, is 1.0D-13.
(d) P01
On hard failure, P01ABF writes the error message to the error message unit specified by
X04AAF and then stops.
(e) S07 - S21
The constants referred to in the NAG Fortran Library Manual have the following values in this
implementation:
S07AAF F(1) = 1.0D+13
