hwrf-baseline-20120103-1354/ungrib/src/ngl/w3/w3fi01.f

   1       SUBROUTINE W3FI01(LW)
   2 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   3 C                .      .    .                                       .
   4 C SUBPROGRAM:    W3FI01      DETERMINES MACHINE WORD LENGTH IN BYTES
   5 C   PRGMMR: KEYSER           ORG: W/NMC22    DATE: 06-29-92
   6 C
   7 C ABSTRACT: DETERMINES THE NUMBER OF BYTES IN A FULL WORD FOR THE
   8 C   PARTICULAR MACHINE (IBM OR CRAY).
   9 C
  10 C PROGRAM HISTORY LOG:
  11 C   92-01-10  R. KISTLER (W/NMC23)
  12 C   92-05-22  D. A. KEYSER -- DOCBLOCKED/COMMENTED
  13 C   95-10-31  IREDELL     REMOVED SAVES AND PRINTS
  14 C
  15 C USAGE:    CALL W3FI01(LW)
  16 C   OUTPUT ARGUMENT LIST:      (INCLUDING WORK ARRAYS)
  17 C     LW       - MACHINE WORD LENGTH IN BYTES
  18 C
  19 C REMARKS: SUBPROGRAM CAN BE CALLED FROM A MULTIPROCESSING ENVIRONMENT.
  20 C
  21 C ATTRIBUTES:
  22 C   LANGUAGE: FORTRAN 77
  23 C   MACHINE:  CRAY, WORKSTATIONS
  24 C
  25 C$$$
  26 C
  27       CHARACTER*8  CTEST1,CTEST2
  28       CHARACTER*4  CPRINT(2)
  29 C
  30       INTEGER      ITEST1,ITEST2
  31 C
  32       EQUIVALENCE  (CTEST1,ITEST1),(CTEST2,ITEST2)
  33 C
  34       DATA  CTEST1/'12345678'/
  35 C
  36       ITEST2 = ITEST1
  37       IF (CTEST1 .EQ. CTEST2) THEN
  38         LW = 8
  39       ELSE
  40         LW = 4
  41       END IF
  42       RETURN
  43       END