C************** TOP OF INCLUDE MEMBER - SPVAL ************************** C C NAME- SPVAL C C LANGUAGE- FORTRAN TYPE- INCLUDE C C VERSION- 1.0 DATE- 8/30/88 PROGRAMMER- SOO O. LEE (SMSRC) C VERSION- 2.0 DATE- 7/02/96 PROGRAMMER- A. POZDNYAK (FDC) C C FUNCTION- THIS MEMBER CONTAINS SPECIAL VALUES FOR INTEGER*2, C INTEGER*4, REAL*4, REAL*8, COMPLEX*8, AND COMPLEX*16 C VARIABLES USED IN ANY SUBROUTINE OR FUNCTION. THESE C VALUES ARE USED TO INITIALIZE VARIABLES THAT ARE C MENTIONED AS MISSING VALUES OR BAD VALUES IN THE C PSEUDOCODE. C C C SHARED PARAMETERS- C VARIABLE TYPE DESCRIPTION C -------- ---- ----------- C I2SPV INT MISSING VALUE FLAG C C I4SPV INT MISSING VALUE FLAG C C R4SPV REAL MISSING VALUE FLAG C C R8SPV REAL MISSING VALUE FLAG C C C8SPV CH*8 MISSING VALUE FLAG C C C16SPV CH*16 MISSING VALUE FLAG C C INTEGER I2SPV INTEGER I4SPV REAL R4SPV REAL M_R4SPV REAL R8SPV COMPLEX C8SPV COMPLEX C16SPV DATA I2SPV /-32768/ DATA I4SPV /-2147483648/ DATA R4SPV /-.1401298464E-44/ DATA M_R4SPV/Z'b69fffffffe02460'/ DATA R8SPV /-.494065645841246544E-323/ DATA C8SPV / (-0.1401298464E-44,-0.1401298464E-44)/ DATA C16SPV /(-.494065645841246544E-323, + -.494065645841246544E-323) / C C************** BOTTOM OF INCLUDE MEMBER - SPVAL ***********************