NCEPLIBS-bufr  11.6.0
 All Data Structures Files Functions Variables Pages
ipks.f File Reference

Go to the source code of this file.

Functions/Subroutines

INTEGER function ipks (VAL, NODE)
 THIS FUNCTION PACKS A REAL*8 USER VALUE INTO A BUFR INTEGER BY APPLYING THE PROPER SCALE AND REFERENCE VALUES. More...
 

Detailed Description

Author
J
Date
2012-03-02

Definition in file ipks.f.

Function/Subroutine Documentation

INTEGER function ipks ( real*8  VAL,
  NODE 
)

THIS FUNCTION PACKS A REAL*8 USER VALUE INTO A BUFR INTEGER BY APPLYING THE PROPER SCALE AND REFERENCE VALUES.

NORMALLY THE SCALE AND REFERENCE VALUES ARE OBTAINED FROM INDEX NODE OF THE INTERNAL JUMP/LINK TABLE ARRAYS ISC(*) AND IRF(*); HOWEVER, THE REFERENCE VALUE IN IRF(*) WILL BE OVERRIDDEN IF A 2-03 OPERATOR IS IN EFFECT FOR THIS NODE.

PROGRAM HISTORY LOG: 2012-03-02 J. ATOR – ORIGINAL AUTHOR; ADAPTED FROM INTERNAL STATEMENT FUNCTION IN WRTREE 2014-12-10 J. ATOR – USE MODULES INSTEAD OF COMMON BLOCKS

USAGE: IPKS (VAL,NODE) INPUT ARGUMENT LIST: VAL - REAL*8: USER VALUE NODE - INTEGER: INDEX INTO INTERNAL JUMP/LINK TABLES

OUTPUT ARGUMENT LIST: IPKS - INTEGER: PACKED BUFR VALUE

REMARKS: THIS ROUTINE CALLS: None THIS ROUTINE IS CALLED BY: WRTREE Normally not called by any application programs.

Definition at line 30 of file ipks.f.

Referenced by wrtree().