NCEPLIBS-bufr 11.7.1
mstabs.h
Go to the documentation of this file.
1
17#ifdef UNDERSCORE
18#define cpmstabs cpmstabs_
19#endif
20
21void cpmstabs( f77int *, f77int *, char (*)[4], char (*)[12], char (*)[4],
22 char (*)[24], char (*)[8], char (*)[120], f77int *, f77int *,
23 char (*)[120], char (*)[8], f77int *, f77int *, f77int * );
24
25#define MSTABS_BASE(var) mstabs_newCarr_ ## var
26
27#ifdef IN_ARALLOCC
28 f77int MSTABS_BASE(nmtb);
29 f77int *MSTABS_BASE(ibfxyn);
30 char (*MSTABS_BASE(cbscl))[4];
31 char (*MSTABS_BASE(cbsref))[12];
32 char (*MSTABS_BASE(cbbw))[4];
33 char (*MSTABS_BASE(cbunit))[24];
34 char (*MSTABS_BASE(cbmnem))[8];
35 char (*MSTABS_BASE(cbelem))[120];
36 f77int MSTABS_BASE(nmtd);
37 f77int *MSTABS_BASE(idfxyn);
38 char (*MSTABS_BASE(cdseq))[120];
39 char (*MSTABS_BASE(cdmnem))[8];
40 f77int *MSTABS_BASE(ndelem);
41 f77int *MSTABS_BASE(idefxy);
42#else
43 extern f77int MSTABS_BASE(nmtb);
44 extern f77int *MSTABS_BASE(ibfxyn);
45 extern char (*MSTABS_BASE(cbscl))[4];
46 extern char (*MSTABS_BASE(cbsref))[12];
47 extern char (*MSTABS_BASE(cbbw))[4];
48 extern char (*MSTABS_BASE(cbunit))[24];
49 extern char (*MSTABS_BASE(cbmnem))[8];
50 extern char (*MSTABS_BASE(cbelem))[120];
51 extern f77int MSTABS_BASE(nmtd);
52 extern f77int *MSTABS_BASE(idfxyn);
53 extern char (*MSTABS_BASE(cdseq))[120];
54 extern char (*MSTABS_BASE(cdmnem))[8];
55 extern f77int *MSTABS_BASE(ndelem);
56 extern f77int *MSTABS_BASE(idefxy);
57#endif
cpmstabs
void cpmstabs(f77int *, f77int *, char(*)[4], char(*)[12], char(*)[4], char(*)[24], char(*)[8], char(*)[120], f77int *, f77int *, char(*)[120], char(*)[8], f77int *, f77int *, f77int *)
This subroutine copies relevant information from the Fortran module MODA_MSTABS arrays to new arrays ...
Definition: cpmstabs.c:47
moda_mstabs::nmtd
integer nmtd
Number of master Table D entries (up to a maximum of MXMTBD).
Definition: moda_mstabs.F:61
moda_mstabs::ndelem
integer, dimension(:), allocatable ndelem
Numbers of child descriptors corresponding to idfxyn.
Definition: moda_mstabs.F:72
moda_mstabs::idfxyn
integer, dimension(:), allocatable idfxyn
Bit-wise representations of FXY numbers for master Table D.
Definition: moda_mstabs.F:69
moda_mstabs::cdseq
character, dimension(:,:), allocatable cdseq
Sequence names corresponding to idfxyn.
Definition: moda_mstabs.F:70
moda_mstabs::idefxy
integer, dimension(:), allocatable idefxy
Bit-wise representations of child descriptors corresponding to idfxyn.
Definition: moda_mstabs.F:73
moda_mstabs::cbscl
character, dimension(:,:), allocatable cbscl
Scale factors corresponding to ibfxyn.
Definition: moda_mstabs.F:63
moda_mstabs::cbmnem
character, dimension(:,:), allocatable cbmnem
Mnemonics corresponding to ibfxyn.
Definition: moda_mstabs.F:67
moda_mstabs::nmtb
integer nmtb
Number of master Table B entries (up to a maximum of MXMTBB).
Definition: moda_mstabs.F:60
moda_mstabs::cbsref
character, dimension(:,:), allocatable cbsref
Reference values corresponding to ibfxyn.
Definition: moda_mstabs.F:64
moda_mstabs::cbelem
character, dimension(:,:), allocatable cbelem
Element names corresponding to ibfxyn.
Definition: moda_mstabs.F:68
moda_mstabs::cbunit
character, dimension(:,:), allocatable cbunit
Units corresponding to ibfxyn.
Definition: moda_mstabs.F:66
moda_mstabs::cdmnem
character, dimension(:,:), allocatable cdmnem
Mnemonics corresponding to idfxyn.
Definition: moda_mstabs.F:71
moda_mstabs::ibfxyn
integer, dimension(:), allocatable ibfxyn
Bit-wise representations of FXY numbers for master Table B.
Definition: moda_mstabs.F:62
moda_mstabs::cbbw
character, dimension(:,:), allocatable cbbw
Bit widths corresponding to ibfxyn.
Definition: moda_mstabs.F:65