source: lmdz_wrf/WRFV3/external/fftpack/fftpack5/xerfft.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 4.5 KB
Line 
1!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
2!                                                                       
3!   FFTPACK 5.0                                                         
4!                                                                       
5!   Authors:  Paul N. Swarztrauber and Richard A. Valent               
6!                                                                       
7!   $Id: xerfft.f,v 1.3 2004/07/06 00:58:41 rodney Exp $               
8!                                                                       
9!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
10                                                                       
11      SUBROUTINE XERFFT( SRNAME, INFO)
12!                                                                       
13!     .. Scalar Arguments ..                                           
14      CHARACTER*6        SRNAME
15      INTEGER            INFO
16!                                                                       
17!     ..                                                               
18!                                                                       
19!  Purpose                                                             
20!  =======                                                             
21!                                                                       
22!  XERFFT  is an error handler for library FFTPACK version 5.0 routines.
23!  It is called by an FFTPACK 5.0 routine if an input parameter has an 
24!  invalid value.  A message is printed and execution stops.           
25!                                                                       
26!  Installers may consider modifying the STOP statement in order to     
27!  call system-specific exception-handling facilities.                 
28!                                                                       
29!  Arguments                                                           
30!  =========                                                           
31!                                                                       
32!  SRNAME  (input) CHARACTER*6                                         
33!          The name of the routine which called XERFFT.                 
34!                                                                       
35!  INFO    (input) INTEGER                                             
36!          When a single  invalid parameter in the parameter list of   
37!          the calling routine has been detected, INFO is the position 
38!          of that parameter.  In the case when an illegal combination 
39!          of LOT, JUMP, N, and INC has been detected, the calling     
40!          subprogram calls XERFFT with INFO = -1.                     
41!                                                                       
42! =====================================================================
43!                                                                       
44!     .. Executable Statements ..                                       
45!                                                                       
46      IF (INFO .GE. 1) THEN
47        WRITE( *, '(A,A,A,I3,A)') ' ** On entry to ', SRNAME,           &
48     &    ' parameter number ', INFO, ' had an illegal value'           
49      ELSEIF (INFO .EQ. -1) THEN
50        WRITE( *, '(A,A,A,A)') ' ** On entry to ', SRNAME,              &
51     &    ' parameters LOT, JUMP, N and INC are inconsistent'           
52      ELSEIF (INFO .EQ. -2) THEN
53        WRITE( *, '(A,A,A,A)') ' ** On entry to ', SRNAME,              &
54     &    ' parameter L is greater than LDIM'                           
55      ELSEIF (INFO .EQ. -3) THEN
56        WRITE( *, '(A,A,A,A)') ' ** On entry to ', SRNAME,              &
57     &    ' parameter M is greater than MDIM'                           
58      ELSEIF (INFO .EQ. -5) THEN
59        WRITE( *, '(A,A,A,A)') ' ** Within ', SRNAME,                   &
60     &    ' input error returned by lower level routine'               
61      ELSEIF (INFO .EQ. -6) THEN
62        WRITE( *, '(A,A,A,A)') ' ** On entry to ', SRNAME,              &
63     &    ' parameter LDIM is less than 2*(L/2+1)'                     
64      ENDIF
65!                                                                       
66      STOP
67!                                                                       
68!     End of XERFFT                                                     
69!                                                                       
70      END                                           
Note: See TracBrowser for help on using the repository browser.