Parent Directory | Revision Log | Revision Graph
o initial check-in of notes and in-progress mnc package
1 | edhill | 1.1 | C $Header: $ |
2 | C $Name: $ | ||
3 | |||
4 | #include "MNC_OPTIONS.h" | ||
5 | |||
6 | C================================================================== | ||
7 | |||
8 | SUBROUTINE MNC_INIT() | ||
9 | |||
10 | #include "mnc_common.h" | ||
11 | |||
12 | C Arguments | ||
13 | |||
14 | C Local Variables | ||
15 | integer i | ||
16 | character blank*(MNC_MAX_CHAR) | ||
17 | |||
18 | C Write blanks or zeros to all the name and ID tables | ||
19 | DO i = 1,mnc_max_char | ||
20 | blank(i:i) = ' '; | ||
21 | ENDDO | ||
22 | DO i = 1,mnc_max_id | ||
23 | mnc_f_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) | ||
24 | mnc_f_info(i,1) = 0 | ||
25 | mnc_f_info(i,2) = 0 | ||
26 | mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR) | ||
27 | ENDDO | ||
28 | |||
29 | END | ||
30 |
ViewVC Help | |
Powered by ViewVC 1.1.22 |