W3FS15

The W3FS15 routine updates or backdates a fullword date/time
           word (O.N. 84) by a specified number of hours.

USAGE:    CALL W3FS15 (IDATE, JTAU, NDATE)

   Input argument list:
      IDATE    - PACKED BINARY DATE/TIME AS FOLLOWS:
                 BYTE 1  IS YEAR OF CENTURY  00-99
                 BYTE 2  IS MONTH            01-12
                 BYTE 3  IS DAY OF MONTH     01-31
                 BYTE 4  IS HOUR             00-23
                 SUBROUTINE TAKES ADVANTAGE OF FORTRAN ADDRESS
                 PASSING, IDATE AND NDATE MAY BE
                 A CHARACTER*1 ARRAY OF FOUR, THE LEFT 32
                 BITS OF 64 BIT INTEGER WORD. AN OFFICE NOTE 85
                 LABEL CAN BE STORED IN 4 INTEGER WORDS.
                 IF INTEGER THE 2ND WORD IS USED. OUTPUT
                 IS STORED IN LEFT 32 BITS. FOR A OFFICE NOTE 84
                 LABEL THE 7TH WORD IS IN THE 4TH CRAY 64 BIT
                 INTEGER, THE LEFT 32 BITS.
      JTAU     - INTEGER NUMBER OF HOURS TO UPDATE (IF POSITIVE)
                 OR BACKDATE (IF NEGATIVE)
 
   Output argument list:
      NDATE    - NEW DATE/TIME WORD RETURNED IN THE
                 SAME FORMAT AS 'IDATE'. 'NDATE' AND 'IDATE' MAY
                 BE THE SAME VARIABLE.
 
   NOTES:
         THE FORMAT OF THE DATE/TIME WORD IS THE SAME AS THE
         SEVENTH WORD OF THE PACKED DATA FIELD LABEL (SEE O.N. 84) AND
         THE THIRD WORD OF A BINARY DATA SET LABEL (SEE O.N. 85).

   EXIT STATES:
        AN ERROR FOUND BY OUT OF RANGE TESTS ON THE GIVEN DATE/TIME
        INFORMATION WILL BE INDICATED BY RETURNING A BINARY ZERO WORD
        IN 'NDATE'.

 


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

   Date posted: 2/22/2007