#include #include #include #include "grb2.h" #include "wgrib2.h" #include "fnlist.h" #include "grid_id.h" /* Ftn_api.c 5/2015 Public Domain Wesley Ebisuzaki * * this routine is called by grb2_inq - returns ofen needed information * */ extern enum output_order_type output_order; extern int npnts, nx, ny; extern int submsg, msg_no, inv_no; long int pos; /* * HEADER:100:ftn_api_fn0:inv:0:n npnts nx ny msg_no submsg i8,5(1x,i8) */ int f_ftn_api_fn0(ARG0) { /* ndata data may be undefined when data is not decoded */ if (mode >= 0) sprintf(inv_out, "%8u %8d %8d %8d %8d %8d",inv_no,npnts,nx,ny,msg_no, submsg); return 0; }