FLSG620DA Users' Note | http://www.csar.cfs.ac.uk/test/software/maths/nag/mark20... |
*******************************************************************
*.. 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,*) | Z | SCALE | CY(1) | CY(2) |
+' FNU |
+NZ IFAIL'
20 | WRITE (NOUT,*) |
| |
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 | |||
| |||
40 | GO TO 20 |
| |
STOP |
| ||
* | FORMAT (1X,A,I2) |
| |
99999 | ',A, | ||
99998 | FORMAT (1X,F7.4,' (',F7.3,',',F7.3,') |
+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
(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
6 of 10 | 18/08/2004 12:11 |