NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
mstabs.h
Go to the documentation of this file.
1 
17 #ifdef UNDERSCORE
18 #define cpmstabs cpmstabs_
19 #endif
20 
21 void 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 *pnmtb, f77int *pibfxyn, char(*pcbscl)[4], char(*pcbsref)[12], char(*pcbbw)[4], char(*pcbunit)[24], 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:47