XSTORE

The XSTORE routine stores an 8-byte (fullword) value
           through consecutive storage locations.

USAGE:    CALL XSTORE(COUT,CON,MWORDS)

   Input argument list:
      CON      - CONSTANT TO BE STORED INTO "MWORDS" CONSECUTIVE
                 FULLWORDS BEGINNING WITH "COUT" ARRAY
      MWORDS   - NUMBER OF FULLWORDS IN "COUT" ARRAY TO STORE "CON";
                 MUST BE .GT. ZERO (NOT CHECKED FOR THIS)
 
   Output argument list:      (INCLUDING WORK ARRAYS)
      COUT     - STARTING ADDRESS FOR ARRAY OF "MWORDS" FULLWORDS
                 SET TO THE CONTENTS OF THE VALUE "CON"
 
REMARKS:
    THE VERSION OF THIS SUBROUTINE ON THE HDS COMMON LIBRARY
    IS NAS-SPECIFIC SUBR. WRITTEN IN ASSEMBLY LANG. TO ALLOW FAST
    COMPUTATION TIME.  SUBR. PLACED IN CRAY W3LIB TO ALLOW CODES TO
    COMPILE ON BOTH THE HDS AND CRAY MACHINES.
    SUBPROGRAM CAN BE CALLED FROM A MULTIPROCESSING ENVIRONMENT.

 


  
W3lib.tar
  
Library contains Fortran 90 decoder/encoder
   routines for GRIB edition 1. (Fortran90) 

   Date posted: 2/22/2007