Parent Directory | Revision Log | Revision Graph
o initial check-in of notes and in-progress mnc package
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 |