SPWGET
The SPWGET routine gets wave-space constants.
USAGE: CALL SPWGET(IROMB,MAXWV,EPS,EPSTOP,ENN1,ELONN1,EON,EONTOP)
Input arguments:
IROMB - INTEGER SPECTRAL DOMAIN SHAPE
(0 FOR TRIANGULAR, 1 FOR RHOMBOIDAL)
MAXWV - INTEGER SPECTRAL TRUNCATION
Output arguments:
EPS - REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
EPSTOP - REAL (MAXWV+1)
ENN1 - REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
ELONN1 - REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
EON - REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
EONTOP - REAL (MAXWV+1)
SPLIB.tar |
Library contains routines to be
be used for a variety of spectral transform functions. (Fortran90)
Date posted: 2/23/2007 |