NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
mstabs.h
Go to the documentation of this file.
1 
18 #ifdef UNDERSCORE
19 #define cpmstabs cpmstabs_
20 #endif
21 
22 void cpmstabs( f77int *, f77int *, char (*)[4], char (*)[12], char (*)[4],
23  char (*)[14], char (*)[8], char (*)[120], f77int *, f77int *,
24  char (*)[120], char (*)[8], f77int *, f77int *, f77int * );
25 
26 #ifdef STATIC_ALLOCATION
27 
28 # define MSTABS_BASE(var) var
29 
30  extern f77int MSTABS_BASE(nmtb);
31  extern f77int MSTABS_BASE(ibfxyn)[];
32  extern char MSTABS_BASE(cbscl)[][4];
33  extern char MSTABS_BASE(cbsref)[][12];
34  extern char MSTABS_BASE(cbbw)[][4];
35  extern char MSTABS_BASE(cbunit)[][14];
36  extern char MSTABS_BASE(cbmnem)[][8];
37  extern char MSTABS_BASE(cbelem)[][120];
38  extern f77int MSTABS_BASE(nmtd);
39  extern f77int MSTABS_BASE(idfxyn)[];
40  extern char MSTABS_BASE(cdseq)[][120];
41  extern char MSTABS_BASE(cdmnem)[][8];
42  extern f77int MSTABS_BASE(ndelem)[];
43  extern f77int MSTABS_BASE(idefxy)[];
44 
45 #else
46 
47 # define MSTABS_BASE(var) mstabs_newCarr_ ## var
48 
49 # ifdef IN_ARALLOCC
50  f77int MSTABS_BASE(nmtb);
51  f77int *MSTABS_BASE(ibfxyn);
52  char (*MSTABS_BASE(cbscl))[4];
53  char (*MSTABS_BASE(cbsref))[12];
54  char (*MSTABS_BASE(cbbw))[4];
55  char (*MSTABS_BASE(cbunit))[14];
56  char (*MSTABS_BASE(cbmnem))[8];
57  char (*MSTABS_BASE(cbelem))[120];
58  f77int MSTABS_BASE(nmtd);
59  f77int *MSTABS_BASE(idfxyn);
60  char (*MSTABS_BASE(cdseq))[120];
61  char (*MSTABS_BASE(cdmnem))[8];
62  f77int *MSTABS_BASE(ndelem);
63  f77int *MSTABS_BASE(idefxy);
64 # else
65  extern f77int MSTABS_BASE(nmtb);
66  extern f77int *MSTABS_BASE(ibfxyn);
67  extern char (*MSTABS_BASE(cbscl))[4];
68  extern char (*MSTABS_BASE(cbsref))[12];
69  extern char (*MSTABS_BASE(cbbw))[4];
70  extern char (*MSTABS_BASE(cbunit))[14];
71  extern char (*MSTABS_BASE(cbmnem))[8];
72  extern char (*MSTABS_BASE(cbelem))[120];
73  extern f77int MSTABS_BASE(nmtd);
74  extern f77int *MSTABS_BASE(idfxyn);
75  extern char (*MSTABS_BASE(cdseq))[120];
76  extern char (*MSTABS_BASE(cdmnem))[8];
77  extern f77int *MSTABS_BASE(ndelem);
78  extern f77int *MSTABS_BASE(idefxy);
79 # endif
80 
81 #endif
cpmstabs
void cpmstabs(f77int *pnmtb, f77int *pibfxyn, char(*pcbscl)[4], char(*pcbsref)[12], char(*pcbbw)[4], char(*pcbunit)[14], char(*pcbmnem)[8], char(*pcbelem)[120], f77int *pnmtd, f77int *pidfxyn, char(*pcdseq)[120], char(*pcdmnem)[8], f77int *pndelem, f77int *pidefxy, f77int *maxcd)
This subroutine copies relevant information from the Fortran module MODA_MSTABS arrays to new arrays ...
Definition: cpmstabs.c:44