3 |
|
|
4 |
#include "MNC_OPTIONS.h" |
#include "MNC_OPTIONS.h" |
5 |
|
|
6 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
7 |
|
|
8 |
SUBROUTINE MNC_INIT() |
SUBROUTINE MNC_INIT() |
9 |
|
|
12 |
C Arguments |
C Arguments |
13 |
|
|
14 |
C Local Variables |
C Local Variables |
15 |
integer i,j |
integer i,j, g |
16 |
character blank*(MNC_MAX_CHAR) |
character blank*(MNC_MAX_CHAR) |
17 |
|
|
18 |
C Write blanks or zeros to all the name and ID tables |
C Write blanks or zeros to all the name and ID tables |
35 |
ENDDO |
ENDDO |
36 |
ENDDO |
ENDDO |
37 |
|
|
38 |
|
DO g = 1,MNC_MAX_ID |
39 |
|
mnc_cw_names(g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
40 |
|
mnc_cw_ndim(g) = 0 |
41 |
|
DO i = 1,MNC_CW_MAX_I |
42 |
|
mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) |
43 |
|
mnc_cw_dims(i,g) = 0 |
44 |
|
mnc_cw_is(i,g) = 0 |
45 |
|
mnc_cw_ie(i,g) = 0 |
46 |
|
ENDDO |
47 |
|
ENDDO |
48 |
|
|
49 |
RETURN |
RETURN |
50 |
END |
END |
51 |
|
|
52 |
C================================================================== |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
53 |
|
|
54 |
SUBROUTINE MNC_DUMP() |
SUBROUTINE MNC_DUMP() |
55 |
|
|
105 |
RETURN |
RETURN |
106 |
END |
END |
107 |
|
|
108 |
|
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |