nc_files/gcmc_lib/ensure_units.gcmc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

// gcmc include file
// ensure gcmc units mode agrees with g20,g21 at runtime
// in case a preamble conflicts with gcmc program

if (ismodemm()) {
  if (isdefined("verbose") && verbose == 1) {
     literal("\
             o1 if [#<_metric> ne 1]\n\
                (debug, !!!ensure_units.gcmc: set g21)\n\
                g21\n\
             o1 endif\n\
             ");
  } else {
     literal("\
             o1 if [#<_metric> ne 1]\n\
                g21\n\
             o1 endif\n\
             ");
  }
} else {
  if (isdefined("verbose") && verbose == 1) {
     literal("\
             o1 if [#<_imperial> ne 1]\n\
                (debug, !!!ensure_units.gcmc: set g20)\n\
                g20\n\
             o1 endif\n\
             ");
  } else {
     literal("\
             o1 if [#<_imperial> ne 1]\n\
                g20\n\
             o1 endif\n\
             ");
  }
}