scientific_colour_maps Module


Uses

  • module~~scientific_colour_maps~~UsesGraph module~scientific_colour_maps scientific_colour_maps module~colormap_parameters colormap_parameters module~scientific_colour_maps->module~colormap_parameters iso_fortran_env iso_fortran_env module~colormap_parameters->iso_fortran_env

Used by

  • module~~scientific_colour_maps~~UsedByGraph module~scientific_colour_maps scientific_colour_maps module~forcolormap forcolormap module~forcolormap->module~scientific_colour_maps program~create create program~create->module~forcolormap program~demo demo program~demo->module~forcolormap program~demo_reverse demo_reverse program~demo_reverse->module~forcolormap program~example1 example1 program~example1->module~forcolormap program~extract extract program~extract->module~forcolormap program~modify modify program~modify->module~forcolormap

Variables

Type Visibility Attributes Name Initial
integer, public, dimension(0:255, 1:3) :: acton = reshape([38, 13, 64, 39, 14, 65, 40, 15, 66, 41, 17, 67, 42, 18, 68, 43, 19, 69, 43, 20, 70, 44, 22, 72, 45, 23, 73, 46, 24, 74, 47, 25, 75, 48, 27, 76, 49, 28, 77, 50, 29, 78, 50, 30, 79, 51, 31, 80, 52, 33, 82, 53, 34, 83, 54, 35, 84, 54, 36, 85, 55, 37, 86, 56, 38, 87, 57, 39, 88, 58, 41, 89, 59, 42, 90, 59, 43, 91, 60, 44, 92, 61, 45, 93, 62, 46, 94, 62, 47, 95, 63, 49, 96, 64, 50, 97, 65, 51, 98, 66, 52, 99, 66, 53, 100, 67, 54, 101, 68, 55, 102, 69, 56, 103, 69, 57, 104, 70, 58, 105, 71, 60, 106, 72, 61, 107, 72, 62, 108, 73, 63, 109, 74, 64, 110, 75, 65, 111, 75, 66, 112, 76, 67, 113, 77, 68, 114, 78, 69, 115, 78, 70, 116, 79, 71, 117, 80, 72, 118, 81, 73, 119, 81, 74, 120, 82, 75, 121, 83, 76, 122, 84, 77, 123, 84, 78, 123, 85, 79, 124, 86, 80, 125, 87, 81, 126, 87, 82, 127, 88, 83, 128, 89, 84, 129, 90, 85, 130, 91, 86, 131, 92, 87, 131, 93, 88, 132, 94, 89, 133, 95, 90, 134, 96, 91, 134, 97, 91, 135, 98, 92, 136, 99, 93, 136, 101, 93, 137, 102, 94, 138, 103, 95, 138, 104, 95, 138, 105, 96, 139, 107, 96, 139, 108, 96, 140, 109, 97, 140, 110, 97, 140, 111, 97, 140, 113, 97, 140, 114, 98, 141, 115, 98, 141, 116, 98, 141, 117, 98, 141, 119, 98, 141, 120, 98, 141, 121, 99, 141, 122, 99, 141, 123, 99, 141, 125, 99, 142, 126, 99, 142, 127, 99, 142, 128, 99, 142, 129, 99, 142, 131, 99, 142, 132, 99, 142, 133, 100, 142, 134, 100, 142, 136, 100, 142, 137, 100, 142, 138, 100, 142, 139, 100, 142, 141, 100, 142, 142, 100, 142, 143, 100, 142, 145, 100, 143, 146, 100, 143, 147, 101, 143, 149, 101, 143, 150, 101, 143, 151, 101, 143, 153, 101, 143, 154, 101, 143, 155, 101, 143, 157, 101, 143, 158, 101, 143, 160, 101, 143, 161, 102, 143, 162, 102, 143, 164, 102, 143, 165, 102, 144, 167, 102, 144, 168, 102, 144, 170, 102, 144, 171, 102, 144, 172, 103, 144, 174, 103, 144, 175, 103, 144, 177, 103, 144, 178, 103, 144, 180, 103, 145, 181, 104, 145, 183, 104, 145, 184, 104, 145, 186, 104, 145, 187, 105, 146, 189, 105, 146, 190, 106, 146, 191, 106, 147, 193, 107, 147, 194, 107, 148, 195, 108, 148, 197, 109, 149, 198, 109, 150, 199, 110, 150, 200, 111, 151, 201, 112, 152, 202, 113, 153, 203, 114, 153, 204, 115, 154, 205, 116, 155, 206, 117, 156, 206, 119, 157, 207, 120, 158, 208, 121, 159, 208, 122, 160, 209, 124, 161, 210, 125, 163, 210, 126, 164, 211, 127, 165, 211, 129, 166, 211, 130, 167, 212, 131, 168, 212, 133, 169, 213, 134, 170, 213, 135, 171, 214, 136, 172, 214, 138, 173, 214, 139, 175, 215, 140, 176, 215, 142, 177, 216, 143, 178, 216, 144, 179, 216, 146, 180, 217, 147, 181, 217, 148, 182, 217, 149, 184, 218, 151, 185, 218, 152, 186, 219, 153, 187, 219, 155, 188, 219, 156, 189, 220, 157, 190, 220, 159, 191, 221, 160, 192, 221, 161, 194, 221, 163, 195, 222, 164, 196, 222, 165, 197, 222, 167, 198, 223, 168, 199, 223, 169, 200, 223, 171, 201, 224, 172, 202, 224, 173, 203, 225, 174, 204, 225, 176, 205, 225, 177, 206, 226, 178, 207, 226, 180, 208, 226, 181, 209, 227, 182, 210, 227, 183, 211, 227, 185, 212, 228, 186, 213, 228, 187, 214, 228, 188, 215, 229, 190, 216, 229, 191, 217, 229, 192, 218, 229, 193, 219, 230, 194, 220, 230, 196, 221, 230, 197, 222, 231, 198, 222, 231, 199, 223, 231, 200, 224, 232, 202, 225, 232, 203, 226, 232, 204, 227, 232, 205, 228, 233, 206, 228, 233, 207, 229, 233, 208, 230, 233, 209, 231, 234, 211, 232, 234, 212, 233, 234, 213, 233, 235, 214, 234, 235, 215, 235, 235, 216, 236, 235, 217, 237, 236, 218, 237, 236, 219, 238, 236, 220, 239, 236, 221, 240, 237, 222, 240, 237, 223, 241, 237, 224, 242, 237, 225, 243, 238, 226, 243, 238, 227, 244, 238, 228, 245, 238, 229, 246, 239, 230, 246, 239, 231, 247, 239, 232, 248, 239, 233, 248, 239, 233, 249, 240, 234, 250], shape(acton), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: acton10 = reshape([38, 13, 64, 62, 46, 94, 84, 77, 123, 113, 97, 140, 147, 101, 143, 189, 105, 146, 213, 134, 170, 223, 171, 201, 233, 206, 228, 240, 234, 250], shape(acton10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: acton100 = reshape([38, 13, 64, 41, 17, 67, 43, 19, 69, 45, 23, 73, 47, 25, 75, 50, 29, 78, 51, 31, 80, 54, 35, 84, 56, 38, 87, 58, 41, 89, 60, 44, 92, 62, 46, 94, 64, 50, 97, 66, 52, 99, 68, 55, 102, 70, 58, 105, 72, 61, 107, 74, 64, 110, 75, 66, 112, 78, 69, 115, 80, 72, 118, 81, 74, 120, 84, 77, 123, 85, 79, 124, 87, 82, 127, 89, 84, 129, 92, 87, 131, 95, 90, 134, 97, 91, 135, 101, 93, 137, 103, 95, 138, 107, 96, 139, 109, 97, 140, 113, 97, 140, 116, 98, 141, 119, 98, 141, 122, 99, 141, 125, 99, 142, 128, 99, 142, 131, 99, 142, 134, 100, 142, 138, 100, 142, 141, 100, 142, 145, 100, 143, 147, 101, 143, 151, 101, 143, 154, 101, 143, 158, 101, 143, 162, 102, 143, 165, 102, 144, 170, 102, 144, 172, 103, 144, 177, 103, 144, 181, 104, 145, 184, 104, 145, 189, 105, 146, 191, 106, 147, 195, 108, 148, 198, 109, 150, 201, 112, 152, 204, 115, 154, 206, 117, 156, 208, 121, 159, 209, 124, 161, 211, 127, 165, 211, 130, 167, 213, 134, 170, 214, 138, 173, 215, 140, 176, 216, 144, 179, 217, 147, 181, 218, 151, 185, 219, 153, 187, 220, 157, 190, 221, 161, 194, 222, 164, 196, 223, 168, 199, 223, 171, 201, 225, 174, 204, 225, 177, 206, 226, 181, 209, 227, 185, 212, 228, 187, 214, 229, 191, 217, 229, 193, 219, 230, 197, 222, 231, 200, 224, 232, 203, 226, 233, 206, 228, 233, 208, 230, 234, 212, 233, 235, 214, 234, 235, 217, 237, 236, 220, 239, 237, 222, 240, 237, 225, 243, 238, 227, 244, 239, 230, 246, 239, 232, 248, 240, 234, 250], shape(acton100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: acton25 = reshape([38, 13, 64, 48, 27, 76, 56, 38, 87, 65, 51, 98, 73, 63, 109, 81, 73, 119, 89, 84, 129, 99, 93, 136, 113, 97, 140, 126, 99, 142, 138, 100, 142, 153, 101, 143, 168, 102, 144, 183, 104, 145, 198, 109, 150, 207, 120, 158, 213, 134, 170, 217, 148, 182, 221, 161, 194, 225, 176, 205, 229, 190, 216, 232, 202, 225, 235, 214, 234, 237, 224, 242, 240, 234, 250], shape(acton25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: acton50 = reshape([38, 13, 64, 43, 19, 69, 47, 25, 75, 52, 33, 82, 56, 38, 87, 60, 44, 92, 64, 50, 97, 68, 55, 102, 72, 62, 108, 76, 67, 113, 80, 72, 118, 84, 77, 123, 87, 82, 127, 93, 88, 132, 98, 92, 136, 104, 95, 138, 110, 97, 140, 116, 98, 141, 123, 99, 141, 129, 99, 142, 136, 100, 142, 142, 100, 142, 149, 101, 143, 157, 101, 143, 164, 102, 143, 171, 102, 144, 178, 103, 144, 187, 105, 146, 194, 107, 148, 200, 111, 151, 205, 116, 155, 208, 122, 160, 211, 130, 167, 214, 136, 172, 216, 143, 178, 217, 149, 184, 219, 156, 189, 222, 164, 196, 223, 171, 201, 225, 177, 206, 227, 183, 211, 229, 190, 216, 230, 197, 222, 232, 203, 226, 233, 208, 230, 235, 214, 234, 236, 219, 238, 237, 225, 243, 239, 230, 246, 240, 234, 250], shape(acton50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: actonS = reshape([38, 13, 64, 240, 234, 250, 168, 102, 144, 89, 84, 129, 221, 163, 195, 65, 51, 98, 208, 121, 159, 126, 99, 142, 232, 203, 226, 146, 100, 143, 52, 33, 82, 215, 142, 177, 227, 183, 211, 191, 106, 147, 77, 68, 114, 107, 96, 139, 236, 220, 239, 224, 173, 203, 157, 101, 143, 180, 103, 145, 97, 91, 135, 201, 112, 152, 45, 23, 73, 218, 152, 186, 229, 193, 219, 212, 131, 168, 59, 42, 90, 234, 212, 233, 71, 60, 106, 116, 98, 141, 83, 76, 122, 136, 100, 142, 238, 228, 245, 74, 64, 110, 86, 80, 125, 217, 147, 181, 223, 168, 199, 186, 104, 145, 231, 198, 222, 141, 100, 142, 237, 224, 242, 80, 72, 118, 210, 126, 164, 174, 103, 144, 93, 88, 132, 102, 94, 138, 214, 136, 172, 226, 178, 207, 49, 28, 77, 121, 99, 141, 228, 188, 215, 235, 216, 236, 233, 207, 229, 111, 97, 140, 131, 99, 142, 68, 55, 102, 151, 101, 143, 205, 116, 155, 197, 109, 149, 220, 157, 190, 42, 18, 68, 162, 102, 143, 55, 37, 86, 62, 46, 94, 239, 231, 247, 154, 101, 143, 114, 98, 141, 54, 35, 84, 177, 103, 144, 95, 90, 134, 199, 110, 150, 43, 20, 70, 211, 129, 166, 143, 100, 142, 214, 139, 175, 104, 95, 138, 99, 93, 136, 149, 101, 143, 203, 114, 153, 66, 53, 100, 69, 57, 104, 84, 78, 123, 60, 44, 92, 63, 49, 96, 87, 82, 127, 223, 171, 201, 209, 124, 161, 206, 119, 157, 237, 222, 240, 219, 155, 188, 226, 181, 209, 160, 101, 143, 91, 86, 131, 236, 218, 237, 230, 196, 221, 228, 186, 213, 47, 25, 75, 235, 214, 234, 216, 144, 179, 238, 226, 243], shape(actonS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: bam = reshape([101, 2, 75, 103, 5, 78, 106, 7, 80, 108, 10, 82, 110, 13, 84, 112, 16, 87, 114, 18, 89, 117, 20, 91, 119, 23, 93, 121, 25, 95, 123, 27, 97, 125, 29, 99, 127, 31, 102, 129, 33, 104, 132, 35, 106, 134, 37, 108, 136, 39, 110, 138, 40, 112, 140, 42, 114, 142, 44, 116, 144, 46, 118, 146, 48, 120, 147, 49, 122, 149, 51, 124, 151, 53, 126, 153, 55, 127, 155, 56, 129, 157, 58, 131, 158, 60, 133, 160, 62, 135, 162, 63, 136, 164, 65, 138, 165, 67, 140, 167, 68, 142, 169, 70, 143, 170, 72, 145, 172, 73, 147, 173, 75, 148, 175, 77, 150, 176, 78, 151, 178, 80, 153, 179, 82, 154, 181, 84, 156, 182, 85, 157, 184, 87, 159, 185, 89, 160, 186, 90, 162, 188, 92, 163, 189, 94, 165, 191, 96, 166, 192, 98, 168, 193, 100, 169, 194, 102, 171, 196, 104, 172, 197, 106, 174, 198, 108, 175, 200, 110, 176, 201, 112, 178, 202, 114, 179, 203, 116, 181, 204, 118, 182, 206, 120, 183, 207, 122, 185, 208, 124, 186, 209, 127, 188, 210, 129, 189, 211, 131, 190, 212, 133, 192, 213, 135, 193, 214, 138, 194, 215, 140, 196, 216, 142, 197, 217, 145, 198, 218, 147, 200, 219, 149, 201, 220, 151, 202, 221, 154, 203, 222, 156, 205, 223, 158, 206, 223, 161, 207, 224, 163, 208, 225, 165, 209, 226, 167, 211, 227, 170, 212, 228, 172, 213, 228, 174, 214, 229, 176, 215, 230, 179, 216, 231, 181, 218, 231, 183, 219, 232, 185, 220, 233, 187, 221, 234, 189, 222, 234, 192, 223, 235, 194, 224, 236, 196, 225, 236, 198, 226, 237, 200, 227, 238, 202, 228, 238, 204, 229, 239, 206, 230, 239, 208, 231, 240, 209, 232, 241, 211, 233, 241, 213, 233, 242, 215, 234, 242, 216, 235, 243, 218, 236, 243, 220, 236, 243, 221, 237, 244, 223, 238, 244, 224, 238, 245, 226, 239, 245, 227, 239, 245, 228, 240, 245, 230, 240, 246, 231, 240, 246, 232, 241, 246, 233, 241, 246, 234, 241, 246, 235, 241, 246, 236, 241, 246, 237, 241, 246, 238, 241, 246, 239, 241, 246, 239, 241, 246, 240, 241, 246, 241, 241, 246, 241, 240, 246, 242, 240, 245, 242, 240, 245, 242, 239, 245, 243, 239, 244, 243, 238, 244, 243, 237, 243, 243, 237, 243, 243, 236, 242, 243, 235, 242, 243, 234, 241, 243, 233, 240, 243, 232, 239, 243, 230, 239, 243, 229, 238, 242, 228, 237, 242, 226, 236, 242, 224, 235, 241, 223, 234, 241, 221, 232, 240, 219, 231, 240, 217, 230, 239, 215, 229, 239, 213, 227, 238, 211, 226, 237, 209, 224, 236, 207, 223, 236, 204, 221, 235, 202, 220, 234, 199, 218, 233, 197, 216, 232, 194, 214, 231, 191, 212, 230, 189, 210, 228, 186, 208, 227, 183, 206, 226, 180, 204, 225, 177, 202, 223, 174, 200, 222, 171, 198, 221, 168, 195, 219, 165, 193, 218, 162, 191, 216, 159, 188, 215, 155, 186, 213, 152, 183, 211, 149, 181, 210, 146, 178, 208, 143, 176, 206, 140, 173, 205, 137, 171, 203, 134, 168, 201, 131, 166, 199, 128, 163, 198, 125, 161, 196, 122, 158, 194, 119, 156, 192, 116, 153, 190, 114, 151, 188, 111, 148, 187, 109, 146, 185, 106, 143, 183, 104, 141, 181, 101, 138, 179, 99, 136, 177, 97, 134, 176, 94, 131, 174, 92, 129, 172, 90, 127, 170, 88, 124, 168, 86, 122, 167, 84, 120, 165, 82, 118, 163, 80, 116, 162, 79, 114, 160, 77, 112, 158, 75, 109, 156, 73, 107, 155, 72, 105, 153, 70, 103, 152, 69, 101, 150, 67, 100, 148, 65, 98, 147, 64, 96, 145, 62, 94, 144, 61, 92, 142, 60, 90, 141, 58, 88, 139, 57, 87, 138, 55, 85, 136, 54, 83, 135, 53, 81, 133, 51, 80, 132, 50, 78, 130, 49, 76, 129, 47, 75, 127, 46, 73, 126, 45, 71, 124, 43, 69, 123, 42, 68, 121, 41, 66, 120, 39, 64, 118, 38, 62, 117, 37, 61, 115, 35, 59, 113, 34, 57, 112, 33, 55, 110, 31, 53, 109, 30, 51, 107, 28, 50, 105, 27, 48, 104, 25, 46, 102, 24, 44, 100, 22, 42, 99, 21, 40, 97, 19, 38, 95, 18, 36, 93, 16, 34, 92, 14, 32, 90, 13, 30, 88, 11, 27, 86, 9, 25, 85, 7, 23, 83, 6, 21, 81, 4, 18, 79, 3, 15, 77, 1, 13, 76, 0], shape(bam), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: bam10 = reshape([101, 2, 75, 158, 60, 133, 201, 112, 178, 228, 174, 214, 245, 227, 239, 239, 243, 229, 193, 218, 162, 124, 168, 86, 69, 123, 42, 13, 76, 0], shape(bam10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: bam100 = reshape([101, 2, 75, 108, 10, 82, 112, 16, 87, 119, 23, 93, 123, 27, 97, 129, 33, 104, 134, 37, 108, 140, 42, 114, 146, 48, 120, 149, 51, 124, 155, 56, 129, 158, 60, 133, 164, 65, 138, 167, 68, 142, 172, 73, 147, 176, 78, 151, 179, 82, 154, 184, 87, 159, 186, 90, 162, 191, 96, 166, 194, 102, 171, 197, 106, 174, 201, 112, 178, 203, 116, 181, 207, 122, 185, 209, 127, 188, 212, 133, 192, 215, 140, 196, 217, 145, 198, 220, 151, 202, 222, 156, 205, 224, 163, 208, 226, 167, 211, 228, 174, 214, 231, 181, 218, 232, 185, 220, 234, 192, 223, 236, 196, 225, 238, 202, 228, 239, 206, 230, 241, 211, 233, 242, 216, 235, 243, 220, 236, 244, 224, 238, 245, 227, 239, 246, 231, 240, 246, 233, 241, 246, 236, 241, 246, 239, 241, 246, 240, 241, 246, 242, 240, 245, 242, 239, 244, 243, 237, 242, 243, 235, 241, 243, 233, 239, 243, 229, 237, 242, 226, 234, 241, 221, 231, 240, 217, 227, 238, 211, 223, 236, 204, 220, 234, 199, 214, 231, 191, 210, 228, 186, 204, 225, 177, 200, 222, 171, 193, 218, 162, 186, 213, 152, 181, 210, 146, 173, 205, 137, 168, 201, 131, 161, 196, 122, 156, 192, 116, 148, 187, 109, 141, 181, 101, 136, 177, 97, 129, 172, 90, 124, 168, 86, 118, 163, 80, 114, 160, 77, 107, 155, 72, 101, 150, 67, 98, 147, 64, 92, 142, 60, 88, 139, 57, 83, 135, 53, 78, 130, 49, 75, 127, 46, 69, 123, 42, 66, 120, 39, 61, 115, 35, 57, 112, 33, 51, 107, 28, 46, 102, 24, 42, 99, 21, 36, 93, 16, 32, 90, 13, 25, 85, 7, 21, 81, 4, 13, 76, 0], shape(bam100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: bam25 = reshape([101, 2, 75, 125, 29, 99, 146, 48, 120, 165, 67, 140, 182, 85, 157, 196, 104, 172, 209, 127, 188, 219, 149, 201, 228, 174, 214, 236, 198, 226, 242, 216, 235, 246, 232, 241, 246, 241, 240, 242, 243, 234, 231, 240, 217, 216, 232, 194, 193, 218, 162, 166, 199, 128, 141, 181, 101, 116, 162, 79, 94, 144, 61, 76, 129, 47, 57, 112, 33, 38, 95, 18, 13, 76, 0], shape(bam25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: bam50 = reshape([101, 2, 75, 112, 16, 87, 123, 27, 97, 136, 39, 110, 146, 48, 120, 155, 56, 129, 164, 65, 138, 172, 73, 147, 181, 84, 156, 188, 92, 163, 194, 102, 171, 201, 112, 178, 207, 122, 185, 213, 135, 193, 218, 147, 200, 223, 158, 206, 227, 170, 212, 231, 181, 218, 235, 194, 224, 238, 204, 229, 241, 213, 233, 243, 221, 237, 245, 228, 240, 246, 235, 241, 246, 239, 241, 245, 242, 240, 243, 243, 237, 239, 243, 230, 235, 241, 223, 229, 239, 213, 221, 235, 202, 212, 230, 189, 200, 222, 171, 188, 215, 155, 176, 206, 140, 163, 198, 125, 151, 188, 111, 136, 177, 97, 124, 168, 86, 114, 160, 77, 103, 152, 69, 94, 144, 61, 83, 135, 53, 75, 127, 46, 66, 120, 39, 57, 112, 33, 48, 104, 25, 36, 93, 16, 25, 85, 7, 13, 76, 0], shape(bam50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: bamO = reshape([79, 48, 67, 80, 47, 69, 81, 47, 70, 83, 48, 71, 84, 48, 73, 86, 48, 75, 88, 48, 77, 90, 49, 78, 92, 50, 80, 94, 50, 82, 96, 51, 84, 98, 52, 87, 100, 53, 89, 103, 54, 91, 105, 55, 93, 107, 56, 95, 109, 57, 97, 112, 58, 99, 114, 59, 101, 116, 61, 103, 118, 62, 105, 121, 63, 107, 123, 65, 109, 125, 66, 111, 127, 68, 113, 129, 69, 115, 131, 70, 117, 133, 72, 119, 135, 73, 121, 137, 75, 123, 139, 76, 125, 141, 78, 126, 143, 79, 128, 145, 81, 130, 147, 82, 132, 148, 84, 133, 150, 85, 135, 152, 87, 137, 154, 88, 138, 155, 90, 140, 157, 91, 141, 159, 93, 143, 160, 94, 145, 162, 96, 146, 163, 97, 148, 165, 99, 149, 167, 101, 151, 168, 102, 152, 170, 104, 154, 171, 105, 155, 173, 107, 157, 174, 109, 158, 176, 110, 160, 177, 112, 161, 179, 114, 163, 181, 116, 164, 182, 118, 166, 184, 119, 167, 185, 121, 169, 187, 123, 170, 188, 125, 172, 190, 127, 173, 191, 129, 175, 192, 131, 176, 194, 133, 178, 195, 135, 179, 197, 137, 181, 198, 139, 182, 199, 141, 184, 201, 143, 185, 202, 146, 186, 203, 148, 188, 204, 150, 189, 205, 152, 190, 207, 154, 191, 208, 156, 193, 209, 158, 194, 210, 160, 195, 210, 163, 196, 211, 165, 197, 212, 167, 198, 213, 169, 199, 214, 171, 199, 214, 173, 200, 215, 174, 201, 215, 176, 201, 216, 178, 202, 216, 180, 202, 217, 181, 203, 217, 183, 203, 217, 184, 203, 217, 186, 204, 218, 187, 204, 218, 188, 204, 218, 190, 204, 218, 191, 204, 218, 192, 204, 218, 193, 204, 218, 194, 204, 218, 195, 204, 218, 196, 203, 217, 197, 203, 217, 197, 203, 217, 198, 203, 217, 199, 202, 217, 199, 202, 216, 200, 202, 216, 201, 201, 216, 201, 201, 216, 202, 200, 215, 202, 200, 215, 202, 199, 215, 203, 199, 214, 203, 199, 214, 203, 198, 214, 204, 197, 213, 204, 197, 213, 204, 196, 212, 204, 196, 212, 205, 195, 212, 205, 194, 211, 205, 194, 211, 205, 193, 210, 205, 192, 209, 205, 191, 209, 205, 190, 208, 205, 189, 207, 205, 188, 206, 205, 187, 205, 205, 186, 204, 205, 185, 203, 204, 183, 202, 204, 182, 201, 204, 180, 200, 203, 178, 198, 203, 177, 197, 202, 175, 195, 201, 173, 194, 200, 170, 192, 199, 168, 190, 198, 166, 188, 197, 164, 186, 196, 161, 184, 194, 158, 182, 193, 156, 180, 191, 153, 178, 190, 151, 176, 188, 148, 173, 186, 145, 171, 184, 143, 169, 182, 140, 167, 181, 138, 164, 179, 135, 162, 177, 133, 160, 175, 131, 158, 173, 128, 156, 171, 126, 154, 169, 124, 152, 167, 122, 150, 165, 120, 148, 163, 118, 146, 161, 116, 145, 159, 114, 143, 158, 112, 141, 156, 110, 139, 154, 109, 138, 152, 107, 136, 150, 105, 134, 148, 104, 133, 147, 102, 131, 145, 101, 130, 143, 99, 128, 141, 98, 127, 140, 97, 125, 138, 95, 124, 136, 94, 123, 135, 93, 121, 133, 92, 120, 131, 91, 119, 130, 90, 117, 128, 88, 116, 127, 87, 115, 125, 86, 114, 124, 85, 113, 122, 84, 111, 121, 83, 110, 119, 82, 109, 117, 82, 108, 116, 81, 107, 114, 80, 106, 113, 79, 105, 111, 78, 103, 110, 77, 102, 108, 76, 101, 107, 76, 100, 105, 75, 99, 104, 74, 98, 102, 73, 97, 101, 72, 96, 99, 72, 95, 98, 71, 94, 96, 70, 93, 95, 70, 92, 93, 69, 91, 92, 68, 90, 91, 68, 89, 89, 67, 88, 88, 66, 87, 86, 66, 87, 85, 65, 86, 84, 65, 85, 83, 64, 84, 81, 64, 84, 80, 63, 83, 79, 63, 82, 78, 63, 81, 77, 62, 81, 76, 62, 80, 75, 61, 80, 73, 61, 79, 72, 61, 79, 72, 60, 78, 71, 60, 78, 70, 60, 77, 69, 60, 77, 68, 59, 76, 67, 59, 76, 66, 59, 75, 65, 59, 75, 64, 59, 75, 64, 59, 74, 63, 58, 74, 62, 58, 74, 61, 58, 74, 60, 58, 73, 60, 58, 73, 59, 58, 73, 58, 58, 73, 57, 58, 73, 57, 58, 73, 56, 58, 72, 55, 58, 72, 54, 59, 72, 54, 59, 72, 53, 59, 73, 52, 59, 73, 52, 60, 73, 51, 60, 73, 50, 61, 74, 50, 61, 74, 49, 62, 75, 49, 62, 75, 49, 63, 76, 48, 64, 77, 48, 65, 78, 48, 66], shape(bamO), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: bamO10 = reshape([79, 48, 67, 135, 73, 121, 184, 119, 167, 215, 176, 201, 214, 203, 199, 186, 196, 161, 131, 145, 101, 97, 101, 72, 76, 66, 59, 78, 48, 66], shape(bamO10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: bamO100 = reshape([79, 48, 67, 83, 48, 71, 86, 48, 75, 92, 50, 80, 96, 51, 84, 103, 54, 91, 107, 56, 95, 114, 59, 101, 121, 63, 107, 125, 66, 111, 131, 70, 117, 135, 73, 121, 141, 78, 126, 145, 81, 130, 150, 85, 135, 155, 90, 140, 159, 93, 143, 163, 97, 148, 167, 101, 151, 171, 105, 155, 176, 110, 160, 179, 114, 163, 184, 119, 167, 187, 123, 170, 191, 129, 175, 194, 133, 178, 198, 139, 182, 202, 146, 186, 204, 150, 189, 208, 156, 193, 210, 160, 195, 212, 167, 198, 214, 171, 199, 215, 176, 201, 217, 181, 203, 217, 184, 203, 218, 188, 204, 218, 191, 204, 218, 194, 204, 218, 196, 203, 217, 198, 203, 216, 200, 202, 216, 201, 201, 215, 202, 199, 214, 203, 199, 213, 204, 197, 212, 204, 196, 211, 205, 194, 209, 205, 191, 208, 205, 189, 205, 205, 186, 203, 204, 183, 200, 203, 178, 195, 201, 173, 192, 199, 168, 186, 196, 161, 182, 193, 156, 176, 188, 148, 171, 184, 143, 164, 179, 135, 158, 173, 128, 154, 169, 124, 148, 163, 118, 145, 159, 114, 139, 154, 109, 136, 150, 105, 131, 145, 101, 127, 140, 97, 124, 136, 94, 120, 131, 91, 117, 128, 88, 114, 124, 85, 111, 121, 83, 108, 116, 81, 105, 111, 78, 102, 108, 76, 99, 104, 74, 97, 101, 72, 94, 96, 70, 92, 93, 69, 89, 89, 67, 87, 85, 65, 85, 83, 64, 83, 79, 63, 81, 77, 62, 80, 73, 61, 78, 71, 60, 77, 69, 60, 76, 66, 59, 75, 64, 59, 74, 62, 58, 74, 60, 58, 73, 58, 58, 73, 56, 58, 72, 54, 59, 73, 52, 59, 73, 51, 60, 74, 49, 62, 75, 49, 63, 78, 48, 66], shape(bamO100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: bamO25 = reshape([79, 48, 67, 98, 52, 87, 121, 63, 107, 143, 79, 128, 162, 96, 146, 177, 112, 161, 194, 133, 178, 207, 154, 191, 215, 176, 201, 218, 192, 204, 216, 200, 202, 213, 204, 196, 206, 205, 187, 194, 200, 170, 171, 184, 143, 150, 165, 120, 131, 145, 101, 116, 127, 87, 105, 111, 78, 93, 95, 70, 84, 80, 63, 78, 70, 60, 74, 60, 58, 72, 53, 59, 78, 48, 66], shape(bamO25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: bamO50 = reshape([79, 48, 67, 86, 48, 75, 96, 51, 84, 109, 57, 97, 121, 63, 107, 131, 70, 117, 141, 78, 126, 150, 85, 135, 160, 94, 145, 168, 102, 152, 176, 110, 160, 184, 119, 167, 191, 129, 175, 199, 141, 184, 205, 152, 190, 210, 163, 196, 214, 173, 200, 217, 181, 203, 218, 190, 204, 218, 195, 204, 217, 199, 202, 216, 202, 200, 214, 203, 198, 212, 205, 194, 209, 205, 190, 204, 205, 185, 198, 203, 177, 188, 197, 164, 178, 190, 151, 167, 181, 138, 156, 171, 126, 146, 161, 116, 136, 150, 105, 128, 141, 98, 121, 133, 92, 115, 125, 86, 109, 117, 82, 102, 108, 76, 97, 101, 72, 92, 93, 69, 87, 86, 66, 84, 80, 63, 80, 73, 61, 77, 69, 60, 75, 64, 59, 74, 60, 58, 73, 57, 58, 73, 52, 59, 74, 49, 62, 78, 48, 66], shape(bamO50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: bamako = reshape([0, 59, 71, 0, 59, 71, 1, 59, 71, 1, 60, 71, 2, 60, 70, 2, 60, 70, 3, 60, 70, 3, 61, 69, 4, 61, 69, 4, 61, 69, 5, 62, 69, 5, 62, 68, 6, 62, 68, 6, 63, 68, 7, 63, 67, 7, 63, 67, 8, 63, 67, 8, 64, 66, 9, 64, 66, 9, 64, 66, 10, 65, 66, 10, 65, 65, 11, 65, 65, 11, 66, 65, 12, 66, 64, 12, 66, 64, 13, 67, 64, 13, 67, 63, 14, 67, 63, 14, 68, 63, 15, 68, 62, 15, 68, 62, 16, 69, 62, 16, 69, 61, 17, 69, 61, 18, 70, 61, 18, 70, 60, 19, 71, 60, 19, 71, 60, 20, 71, 59, 20, 72, 59, 21, 72, 58, 22, 72, 58, 22, 73, 58, 23, 73, 57, 23, 74, 57, 24, 74, 57, 25, 74, 56, 25, 75, 56, 26, 75, 55, 27, 76, 55, 27, 76, 55, 28, 77, 54, 29, 77, 54, 29, 77, 53, 30, 78, 53, 31, 78, 52, 32, 79, 52, 32, 79, 51, 33, 80, 51, 34, 80, 51, 34, 81, 50, 35, 81, 50, 36, 82, 49, 37, 82, 49, 38, 83, 48, 38, 83, 48, 39, 84, 47, 40, 84, 47, 41, 85, 46, 41, 85, 46, 42, 86, 45, 43, 86, 45, 44, 87, 44, 45, 87, 44, 46, 88, 43, 46, 88, 43, 47, 89, 42, 48, 90, 42, 49, 90, 41, 50, 91, 41, 51, 91, 40, 52, 92, 39, 53, 92, 39, 53, 93, 38, 54, 94, 38, 55, 94, 37, 56, 95, 37, 57, 95, 36, 58, 96, 35, 59, 97, 35, 60, 97, 34, 61, 98, 34, 62, 98, 33, 63, 99, 33, 64, 100, 32, 65, 100, 31, 66, 101, 31, 67, 102, 30, 68, 102, 30, 69, 103, 29, 70, 104, 28, 71, 104, 28, 72, 105, 27, 73, 105, 26, 74, 106, 26, 75, 107, 25, 76, 107, 24, 77, 108, 24, 78, 109, 23, 79, 110, 23, 80, 110, 22, 81, 111, 21, 82, 112, 21, 83, 112, 20, 84, 113, 19, 85, 114, 19, 86, 114, 18, 88, 115, 17, 89, 116, 17, 90, 116, 16, 91, 117, 15, 92, 118, 15, 93, 119, 14, 94, 119, 13, 95, 120, 13, 96, 121, 12, 97, 121, 11, 99, 122, 10, 100, 123, 10, 101, 124, 9, 102, 124, 8, 103, 125, 7, 104, 126, 7, 105, 126, 6, 106, 127, 5, 107, 128, 5, 109, 128, 4, 110, 129, 4, 111, 130, 3, 112, 130, 3, 113, 131, 2, 115, 131, 2, 116, 132, 1, 117, 132, 1, 119, 133, 1, 120, 133, 1, 121, 134, 0, 123, 134, 0, 124, 134, 0, 125, 135, 0, 127, 135, 0, 128, 135, 0, 129, 136, 0, 131, 136, 0, 132, 136, 0, 133, 136, 0, 135, 137, 0, 136, 137, 0, 137, 137, 0, 139, 137, 0, 140, 138, 0, 141, 138, 0, 143, 138, 0, 144, 139, 0, 145, 139, 0, 147, 139, 1, 148, 140, 1, 149, 140, 1, 151, 141, 2, 152, 141, 3, 153, 142, 3, 155, 142, 4, 156, 143, 5, 157, 144, 6, 158, 145, 8, 160, 146, 9, 161, 146, 11, 162, 147, 13, 164, 148, 14, 165, 149, 16, 166, 150, 17, 168, 151, 19, 169, 152, 21, 170, 153, 22, 172, 154, 24, 173, 155, 26, 174, 156, 27, 176, 157, 29, 177, 158, 31, 178, 159, 32, 180, 160, 34, 181, 161, 36, 183, 162, 37, 184, 163, 39, 185, 165, 41, 187, 166, 43, 188, 167, 44, 190, 168, 46, 191, 169, 48, 192, 170, 50, 194, 171, 52, 195, 172, 53, 197, 173, 55, 198, 174, 57, 199, 175, 59, 201, 176, 61, 202, 178, 63, 203, 179, 65, 205, 180, 68, 206, 181, 70, 207, 182, 72, 208, 183, 74, 210, 184, 77, 211, 185, 79, 212, 187, 81, 213, 188, 84, 214, 189, 86, 215, 190, 89, 217, 191, 91, 218, 192, 93, 219, 193, 96, 220, 194, 98, 221, 196, 100, 222, 197, 103, 223, 198, 105, 224, 199, 108, 226, 200, 110, 227, 201, 112, 228, 202, 115, 229, 203, 117, 230, 204, 119, 231, 205, 122, 232, 207, 124, 233, 208, 126, 234, 209, 129, 235, 210, 131, 236, 211, 133, 237, 212, 136, 239, 213, 138, 240, 214, 140, 241, 215, 142, 242, 216, 145, 243, 217, 147, 244, 218, 149, 245, 219, 151, 246, 220, 154, 247, 221, 156, 248, 222, 158, 249, 223, 160, 250, 224, 163, 251, 225, 165, 252, 226, 167, 253, 227, 169, 254, 228, 171, 255, 229, 173], shape(bamako), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: bamako10 = reshape([0, 59, 71, 14, 67, 63, 32, 79, 52, 54, 94, 38, 82, 112, 21, 115, 131, 2, 152, 141, 3, 190, 168, 46, 226, 200, 110, 255, 229, 173], shape(bamako10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: bamako100 = reshape([0, 59, 71, 1, 60, 71, 2, 60, 70, 4, 61, 69, 5, 62, 69, 6, 63, 68, 7, 63, 67, 9, 64, 66, 10, 65, 65, 11, 66, 65, 13, 67, 64, 14, 67, 63, 15, 68, 62, 16, 69, 61, 18, 70, 60, 20, 71, 59, 21, 72, 58, 23, 73, 57, 24, 74, 57, 26, 75, 55, 28, 77, 54, 29, 77, 53, 32, 79, 52, 33, 80, 51, 35, 81, 50, 37, 82, 49, 39, 84, 47, 41, 85, 46, 43, 86, 45, 46, 88, 43, 47, 89, 42, 50, 91, 41, 52, 92, 39, 54, 94, 38, 57, 95, 36, 59, 97, 35, 62, 98, 33, 64, 100, 32, 67, 102, 30, 69, 103, 29, 72, 105, 27, 75, 107, 25, 77, 108, 24, 80, 110, 22, 82, 112, 21, 85, 114, 19, 88, 115, 17, 91, 117, 15, 94, 119, 13, 96, 121, 12, 100, 123, 10, 102, 124, 8, 105, 126, 6, 109, 128, 4, 111, 130, 3, 115, 131, 2, 117, 132, 1, 121, 134, 0, 124, 134, 0, 128, 135, 0, 132, 136, 0, 135, 137, 0, 139, 137, 0, 141, 138, 0, 145, 139, 0, 148, 140, 1, 152, 141, 3, 156, 143, 5, 158, 145, 8, 162, 147, 13, 165, 149, 16, 169, 152, 21, 172, 154, 24, 176, 157, 29, 180, 160, 34, 183, 162, 37, 187, 166, 43, 190, 168, 46, 194, 171, 52, 197, 173, 55, 201, 176, 61, 205, 180, 68, 207, 182, 72, 211, 185, 79, 213, 188, 84, 217, 191, 91, 220, 194, 98, 222, 197, 103, 226, 200, 110, 228, 202, 115, 231, 205, 122, 233, 208, 126, 236, 211, 133, 240, 214, 140, 242, 216, 145, 245, 219, 151, 247, 221, 156, 250, 224, 163, 252, 226, 167, 255, 229, 173], shape(bamako100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: bamako25 = reshape([0, 59, 71, 5, 62, 68, 10, 65, 65, 16, 69, 62, 22, 73, 58, 29, 77, 54, 37, 82, 49, 45, 87, 44, 54, 94, 38, 65, 100, 31, 75, 107, 25, 86, 114, 18, 99, 122, 10, 110, 129, 4, 124, 134, 0, 137, 137, 0, 152, 141, 3, 166, 150, 17, 180, 160, 34, 195, 172, 53, 210, 184, 77, 221, 196, 100, 233, 208, 126, 244, 218, 149, 255, 229, 173], shape(bamako25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: bamako50 = reshape([0, 59, 71, 2, 60, 70, 5, 62, 69, 8, 63, 67, 10, 65, 65, 13, 67, 64, 15, 68, 62, 18, 70, 60, 22, 72, 58, 25, 74, 56, 28, 77, 54, 32, 79, 52, 35, 81, 50, 40, 84, 47, 44, 87, 44, 48, 90, 42, 53, 92, 39, 57, 95, 36, 63, 99, 33, 68, 102, 30, 73, 105, 26, 78, 109, 23, 83, 112, 20, 90, 116, 16, 95, 120, 13, 101, 124, 9, 106, 127, 5, 113, 131, 2, 120, 133, 1, 127, 135, 0, 133, 136, 0, 140, 138, 0, 148, 140, 1, 155, 142, 4, 161, 146, 11, 168, 151, 19, 174, 156, 27, 183, 162, 37, 190, 168, 46, 197, 173, 55, 203, 179, 65, 210, 184, 77, 217, 191, 91, 222, 197, 103, 228, 202, 115, 233, 208, 126, 239, 213, 138, 245, 219, 151, 250, 224, 163, 255, 229, 173], shape(bamako50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: bamakoS = reshape([0, 59, 71, 255, 229, 173, 99, 122, 10, 37, 82, 49, 180, 160, 34, 65, 100, 31, 221, 196, 100, 16, 69, 62, 139, 137, 0, 8, 63, 67, 25, 75, 56, 239, 213, 138, 117, 132, 1, 81, 111, 21, 202, 178, 63, 50, 91, 41, 160, 146, 9, 149, 140, 1, 247, 221, 156, 128, 135, 0, 73, 105, 26, 43, 86, 45, 107, 128, 5, 20, 72, 59, 57, 95, 36, 191, 169, 48, 212, 187, 81, 12, 66, 64, 90, 116, 16, 4, 61, 69, 31, 78, 52, 230, 204, 119, 170, 153, 22, 243, 217, 147, 123, 134, 0, 85, 114, 19, 103, 125, 7, 251, 225, 165, 133, 136, 0, 207, 182, 72, 61, 98, 34, 2, 60, 70, 28, 77, 54, 94, 119, 13, 14, 67, 63, 77, 108, 24, 23, 73, 57, 46, 88, 43, 10, 65, 66, 112, 130, 3, 197, 173, 55, 185, 165, 41, 234, 209, 129, 165, 149, 16, 40, 84, 47, 217, 191, 91, 69, 103, 29, 18, 70, 60, 34, 80, 51, 6, 62, 68, 53, 93, 38, 144, 139, 0, 155, 142, 4, 226, 200, 110, 176, 157, 29, 199, 175, 59, 188, 167, 44, 11, 65, 65, 24, 74, 57, 125, 135, 0, 52, 92, 39, 41, 85, 46, 205, 180, 68, 131, 136, 0, 157, 144, 6, 152, 141, 3, 241, 215, 142, 15, 68, 62, 115, 131, 2, 88, 115, 17, 96, 121, 12, 29, 77, 53, 183, 162, 37, 35, 81, 50, 22, 72, 58, 228, 202, 115, 3, 60, 70, 5, 62, 69, 79, 110, 23, 9, 64, 66, 253, 227, 169, 141, 138, 0, 147, 139, 1, 59, 97, 35, 92, 118, 15, 1, 59, 71, 38, 83, 48, 223, 198, 105, 17, 69, 61, 67, 102, 30], shape(bamakoS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: batlow = reshape([1, 25, 89, 2, 27, 89, 3, 28, 90, 4, 30, 90, 5, 31, 90, 6, 33, 91, 7, 34, 91, 7, 36, 91, 8, 37, 91, 9, 39, 92, 10, 40, 92, 10, 42, 92, 11, 43, 92, 11, 45, 93, 12, 46, 93, 12, 47, 93, 13, 49, 93, 13, 50, 94, 13, 51, 94, 14, 53, 94, 14, 54, 94, 14, 55, 94, 15, 56, 95, 15, 57, 95, 15, 59, 95, 15, 60, 95, 16, 61, 95, 16, 62, 95, 16, 63, 96, 16, 64, 96, 17, 65, 96, 17, 66, 96, 17, 67, 96, 17, 68, 96, 18, 69, 97, 18, 70, 97, 18, 71, 97, 18, 72, 97, 19, 73, 97, 19, 74, 97, 19, 75, 97, 20, 76, 98, 20, 77, 98, 20, 78, 98, 21, 79, 98, 21, 79, 98, 22, 80, 98, 22, 81, 98, 23, 82, 98, 23, 83, 98, 24, 84, 98, 24, 85, 98, 25, 86, 98, 25, 87, 98, 26, 87, 98, 27, 88, 98, 27, 89, 98, 28, 90, 98, 29, 91, 98, 30, 92, 98, 30, 93, 98, 31, 93, 97, 32, 94, 97, 33, 95, 97, 34, 96, 97, 35, 96, 96, 36, 97, 96, 37, 98, 96, 38, 99, 95, 39, 99, 95, 40, 100, 95, 42, 101, 94, 43, 101, 94, 44, 102, 93, 45, 103, 93, 47, 103, 92, 48, 104, 92, 49, 105, 91, 51, 105, 90, 52, 106, 90, 53, 106, 89, 55, 107, 88, 56, 108, 88, 58, 108, 87, 59, 109, 86, 60, 109, 86, 62, 110, 85, 63, 110, 84, 65, 111, 83, 66, 111, 82, 68, 112, 82, 69, 112, 81, 71, 113, 80, 72, 113, 79, 74, 114, 78, 76, 114, 77, 77, 115, 77, 79, 115, 76, 80, 116, 75, 82, 116, 74, 83, 117, 73, 85, 117, 72, 87, 118, 71, 88, 118, 70, 90, 119, 69, 91, 119, 69, 93, 120, 68, 95, 120, 67, 96, 121, 66, 98, 121, 65, 99, 122, 64, 101, 122, 63, 103, 123, 62, 104, 123, 62, 106, 123, 61, 108, 124, 60, 109, 124, 59, 111, 125, 58, 113, 125, 57, 115, 126, 56, 116, 126, 56, 118, 127, 55, 120, 127, 54, 121, 128, 53, 123, 128, 52, 125, 129, 52, 127, 129, 51, 129, 130, 50, 130, 130, 49, 132, 131, 49, 134, 131, 48, 136, 132, 47, 138, 132, 47, 140, 133, 46, 142, 133, 46, 143, 134, 45, 145, 134, 45, 147, 135, 44, 149, 135, 44, 151, 136, 44, 153, 136, 44, 155, 137, 43, 157, 137, 43, 159, 137, 43, 161, 138, 43, 163, 138, 44, 165, 139, 44, 167, 139, 44, 169, 140, 44, 171, 140, 45, 173, 140, 45, 175, 141, 46, 177, 141, 47, 179, 142, 47, 181, 142, 48, 183, 142, 49, 185, 143, 50, 187, 143, 51, 189, 143, 52, 190, 144, 53, 192, 144, 54, 194, 144, 55, 196, 145, 56, 198, 145, 58, 200, 145, 59, 202, 146, 60, 203, 146, 62, 205, 146, 63, 207, 147, 64, 209, 147, 66, 210, 147, 67, 212, 148, 69, 214, 148, 70, 216, 148, 72, 217, 149, 74, 219, 149, 75, 221, 149, 77, 222, 150, 79, 224, 150, 81, 225, 151, 82, 227, 151, 84, 228, 151, 86, 230, 152, 88, 231, 152, 90, 233, 153, 92, 234, 153, 94, 235, 154, 96, 237, 154, 98, 238, 155, 100, 239, 155, 103, 240, 156, 105, 241, 157, 107, 242, 157, 109, 243, 158, 112, 244, 159, 114, 245, 159, 116, 246, 160, 119, 247, 161, 121, 248, 161, 123, 248, 162, 126, 249, 163, 128, 249, 163, 130, 250, 164, 133, 250, 165, 135, 251, 166, 137, 251, 166, 140, 252, 167, 142, 252, 168, 144, 252, 169, 147, 252, 169, 149, 253, 170, 151, 253, 171, 154, 253, 172, 156, 253, 172, 158, 253, 173, 160, 253, 174, 162, 253, 175, 165, 253, 175, 167, 253, 176, 169, 253, 177, 171, 253, 178, 173, 253, 178, 175, 253, 179, 177, 253, 180, 180, 253, 180, 182, 253, 181, 184, 253, 182, 186, 253, 183, 188, 253, 183, 190, 253, 184, 192, 253, 185, 194, 253, 186, 196, 253, 186, 199, 253, 187, 201, 253, 188, 203, 253, 188, 205, 252, 189, 207, 252, 190, 209, 252, 191, 211, 252, 191, 214, 252, 192, 216, 252, 193, 218, 252, 194, 220, 252, 195, 223, 252, 195, 225, 252, 196, 227, 252, 197, 229, 251, 198, 232, 251, 198, 234, 251, 199, 236, 251, 200, 239, 251, 201, 241, 251, 202, 243, 251, 202, 246, 250, 203, 248, 250, 204, 250], shape(batlow), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: batlow10 = reshape([1, 25, 89, 16, 63, 96, 28, 90, 98, 60, 109, 86, 104, 123, 62, 157, 137, 43, 210, 147, 67, 248, 161, 123, 253, 183, 188, 250, 204, 250], shape(batlow10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: batlow100 = reshape([1, 25, 89, 4, 30, 90, 6, 33, 91, 8, 37, 91, 10, 40, 92, 11, 45, 93, 12, 47, 93, 13, 51, 94, 14, 55, 94, 15, 57, 95, 16, 61, 95, 16, 63, 96, 17, 66, 96, 17, 68, 96, 18, 71, 97, 19, 74, 97, 20, 76, 98, 21, 79, 98, 22, 80, 98, 23, 83, 98, 25, 86, 98, 26, 87, 98, 28, 90, 98, 30, 92, 98, 32, 94, 97, 34, 96, 97, 37, 98, 96, 40, 100, 95, 43, 101, 94, 47, 103, 92, 49, 105, 91, 53, 106, 89, 56, 108, 88, 60, 109, 86, 65, 111, 83, 68, 112, 82, 72, 113, 79, 76, 114, 77, 80, 116, 75, 83, 117, 73, 88, 118, 70, 93, 120, 68, 96, 121, 66, 101, 122, 63, 104, 123, 62, 109, 124, 59, 113, 125, 57, 118, 127, 55, 123, 128, 52, 127, 129, 51, 132, 131, 49, 136, 132, 47, 142, 133, 46, 147, 135, 44, 151, 136, 44, 157, 137, 43, 161, 138, 43, 167, 139, 44, 171, 140, 45, 177, 141, 47, 183, 142, 49, 187, 143, 51, 192, 144, 54, 196, 145, 56, 202, 146, 60, 205, 146, 63, 210, 147, 67, 216, 148, 72, 219, 149, 75, 224, 150, 81, 227, 151, 84, 231, 152, 90, 234, 153, 94, 238, 155, 100, 241, 157, 107, 243, 158, 112, 246, 160, 119, 248, 161, 123, 249, 163, 130, 250, 165, 135, 252, 167, 142, 252, 169, 149, 253, 171, 154, 253, 173, 160, 253, 175, 165, 253, 177, 171, 253, 179, 177, 253, 180, 182, 253, 183, 188, 253, 184, 192, 253, 186, 199, 253, 188, 203, 252, 190, 209, 252, 192, 216, 252, 194, 220, 252, 196, 227, 251, 198, 232, 251, 200, 239, 251, 202, 243, 250, 204, 250], shape(batlow100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: batlow25 = reshape([1, 25, 89, 10, 42, 92, 14, 55, 94, 17, 67, 96, 20, 78, 98, 25, 87, 98, 34, 96, 97, 45, 103, 93, 60, 109, 86, 77, 115, 77, 93, 120, 68, 111, 125, 58, 130, 130, 49, 149, 135, 44, 171, 140, 45, 190, 144, 53, 210, 147, 67, 228, 151, 86, 241, 157, 107, 250, 164, 133, 253, 172, 158, 253, 180, 180, 253, 188, 203, 252, 195, 225, 250, 204, 250], shape(batlow25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: batlow50 = reshape([1, 25, 89, 6, 33, 91, 10, 40, 92, 13, 49, 93, 14, 55, 94, 16, 61, 95, 17, 66, 96, 18, 71, 97, 20, 77, 98, 22, 81, 98, 25, 86, 98, 28, 90, 98, 32, 94, 97, 38, 99, 95, 44, 102, 93, 51, 105, 90, 58, 108, 87, 65, 111, 83, 74, 114, 78, 82, 116, 74, 90, 119, 69, 98, 121, 65, 106, 123, 61, 116, 126, 56, 125, 129, 52, 134, 131, 48, 143, 134, 45, 155, 137, 43, 165, 139, 44, 175, 141, 46, 185, 143, 50, 194, 144, 55, 205, 146, 63, 214, 148, 70, 222, 150, 79, 230, 152, 88, 237, 154, 98, 243, 158, 112, 248, 161, 123, 250, 165, 135, 252, 169, 147, 253, 172, 158, 253, 177, 171, 253, 180, 182, 253, 184, 192, 253, 188, 203, 252, 191, 214, 252, 196, 227, 251, 200, 239, 250, 204, 250], shape(batlow50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: batlowK = reshape([4, 5, 10, 5, 7, 13, 6, 8, 15, 7, 10, 17, 9, 12, 19, 10, 13, 21, 11, 15, 23, 12, 16, 25, 13, 17, 26, 14, 18, 28, 15, 20, 30, 15, 21, 31, 16, 22, 33, 16, 23, 35, 17, 24, 37, 17, 26, 39, 18, 27, 41, 18, 28, 43, 19, 30, 45, 20, 31, 47, 20, 32, 49, 21, 34, 51, 21, 35, 53, 22, 37, 55, 23, 38, 57, 23, 39, 59, 24, 41, 61, 25, 43, 63, 26, 44, 65, 26, 46, 67, 27, 47, 69, 28, 49, 70, 29, 50, 72, 30, 52, 74, 31, 53, 75, 32, 55, 77, 33, 56, 79, 34, 58, 80, 35, 59, 81, 36, 61, 83, 37, 62, 84, 38, 64, 85, 39, 65, 86, 40, 67, 87, 41, 68, 88, 42, 69, 89, 43, 71, 90, 44, 72, 91, 45, 73, 91, 46, 74, 92, 47, 75, 93, 48, 77, 93, 49, 78, 94, 50, 79, 94, 51, 80, 94, 52, 81, 95, 53, 82, 95, 54, 83, 95, 55, 84, 95, 56, 85, 95, 57, 85, 95, 58, 86, 95, 59, 87, 95, 60, 88, 95, 61, 89, 95, 62, 89, 95, 62, 90, 95, 63, 91, 94, 64, 92, 94, 65, 92, 94, 66, 93, 94, 67, 93, 93, 67, 94, 93, 68, 95, 93, 69, 95, 92, 70, 96, 92, 71, 97, 92, 72, 97, 91, 73, 98, 91, 73, 98, 90, 74, 99, 90, 75, 99, 89, 76, 100, 89, 77, 101, 88, 78, 101, 88, 79, 102, 87, 80, 102, 87, 81, 103, 86, 82, 103, 86, 83, 104, 85, 84, 105, 85, 85, 105, 84, 86, 106, 83, 87, 106, 83, 88, 107, 82, 89, 108, 81, 90, 108, 81, 91, 109, 80, 92, 110, 79, 94, 110, 79, 95, 111, 78, 96, 112, 77, 97, 112, 77, 98, 113, 76, 99, 114, 75, 101, 114, 75, 102, 115, 74, 103, 116, 73, 105, 116, 73, 106, 117, 72, 107, 118, 71, 108, 118, 71, 110, 119, 70, 111, 120, 69, 113, 120, 69, 114, 121, 68, 115, 122, 67, 117, 123, 67, 118, 123, 66, 120, 124, 65, 121, 125, 65, 123, 126, 64, 125, 126, 63, 126, 127, 63, 128, 128, 62, 129, 129, 62, 131, 129, 61, 133, 130, 61, 134, 131, 60, 136, 132, 60, 138, 133, 59, 140, 133, 59, 142, 134, 58, 143, 135, 58, 145, 136, 58, 147, 136, 57, 149, 137, 57, 151, 138, 57, 153, 139, 56, 155, 139, 56, 157, 140, 56, 159, 141, 56, 161, 142, 56, 163, 142, 56, 165, 143, 56, 167, 144, 56, 169, 145, 57, 171, 145, 57, 173, 146, 57, 175, 147, 58, 177, 147, 58, 179, 148, 59, 181, 149, 59, 183, 149, 60, 186, 150, 61, 188, 150, 61, 190, 151, 62, 192, 152, 63, 194, 152, 64, 196, 153, 65, 198, 153, 66, 200, 154, 67, 201, 154, 69, 203, 155, 70, 205, 155, 71, 207, 156, 73, 209, 156, 74, 211, 157, 76, 212, 157, 77, 214, 157, 79, 216, 158, 80, 217, 158, 82, 219, 159, 84, 220, 159, 85, 222, 160, 87, 223, 160, 89, 225, 160, 91, 226, 161, 93, 228, 161, 95, 229, 161, 96, 230, 162, 98, 231, 162, 100, 232, 163, 102, 234, 163, 104, 235, 163, 106, 236, 164, 108, 237, 164, 110, 238, 165, 112, 239, 165, 114, 240, 165, 116, 240, 166, 118, 241, 166, 120, 242, 167, 122, 243, 167, 124, 243, 167, 126, 244, 168, 128, 245, 168, 130, 245, 169, 132, 246, 169, 134, 246, 170, 136, 247, 170, 139, 247, 171, 141, 248, 171, 143, 248, 172, 145, 249, 172, 146, 249, 173, 148, 250, 173, 150, 250, 174, 152, 250, 174, 154, 251, 175, 156, 251, 175, 158, 251, 176, 160, 251, 176, 162, 252, 177, 164, 252, 177, 166, 252, 178, 168, 252, 178, 170, 252, 179, 172, 252, 179, 174, 253, 180, 176, 253, 181, 178, 253, 181, 180, 253, 182, 182, 253, 182, 183, 253, 183, 185, 253, 183, 187, 253, 184, 189, 253, 185, 191, 253, 185, 193, 253, 186, 195, 253, 187, 197, 253, 187, 199, 253, 188, 201, 253, 188, 203, 253, 189, 205, 253, 190, 207, 253, 190, 209, 253, 191, 211, 253, 192, 214, 253, 193, 216, 253, 193, 218, 253, 194, 220, 253, 195, 222, 253, 195, 224, 252, 196, 226, 252, 197, 228, 252, 198, 231, 252, 198, 233, 252, 199, 235, 252, 200, 237, 251, 200, 239, 251, 201, 241, 251, 202, 244, 251, 203, 246, 251, 203, 248, 250, 204, 250], shape(batlowK), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: batlowK10 = reshape([4, 5, 10, 26, 44, 65, 54, 83, 95, 79, 102, 87, 111, 120, 69, 161, 142, 56, 216, 158, 80, 246, 169, 134, 253, 185, 191, 250, 204, 250], shape(batlowK10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: batlowK100 = reshape([4, 5, 10, 7, 10, 17, 10, 13, 21, 13, 17, 26, 15, 20, 30, 16, 23, 35, 17, 26, 39, 19, 30, 45, 21, 34, 51, 22, 37, 55, 24, 41, 61, 26, 44, 65, 28, 49, 70, 30, 52, 74, 33, 56, 79, 36, 61, 83, 38, 64, 85, 41, 68, 88, 43, 71, 90, 46, 74, 92, 49, 78, 94, 51, 80, 94, 54, 83, 95, 56, 85, 95, 59, 87, 95, 61, 89, 95, 63, 91, 94, 66, 93, 94, 67, 94, 93, 70, 96, 92, 72, 97, 91, 74, 99, 90, 76, 100, 89, 79, 102, 87, 82, 103, 86, 84, 105, 85, 87, 106, 83, 89, 108, 81, 92, 110, 79, 95, 111, 78, 98, 113, 76, 102, 115, 74, 105, 116, 73, 108, 118, 71, 111, 120, 69, 115, 122, 67, 118, 123, 66, 123, 126, 64, 128, 128, 62, 131, 129, 61, 136, 132, 60, 140, 133, 59, 145, 136, 58, 151, 138, 57, 155, 139, 56, 161, 142, 56, 165, 143, 56, 171, 145, 57, 175, 147, 58, 181, 149, 59, 188, 150, 61, 192, 152, 63, 198, 153, 66, 201, 154, 69, 207, 156, 73, 211, 157, 76, 216, 158, 80, 220, 159, 85, 223, 160, 89, 228, 161, 95, 230, 162, 98, 234, 163, 104, 236, 164, 108, 239, 165, 114, 241, 166, 120, 243, 167, 124, 245, 168, 130, 246, 169, 134, 247, 171, 141, 248, 172, 145, 250, 173, 150, 251, 175, 156, 251, 176, 160, 252, 177, 166, 252, 178, 170, 253, 180, 176, 253, 182, 182, 253, 183, 185, 253, 185, 191, 253, 186, 195, 253, 188, 201, 253, 189, 205, 253, 191, 211, 253, 193, 218, 253, 195, 222, 252, 197, 228, 252, 198, 233, 251, 200, 239, 251, 202, 244, 250, 204, 250], shape(batlowK100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: batlowK25 = reshape([4, 5, 10, 15, 21, 31, 21, 34, 51, 29, 50, 72, 40, 67, 87, 50, 79, 94, 61, 89, 95, 69, 95, 92, 79, 102, 87, 90, 108, 81, 102, 115, 74, 117, 123, 67, 134, 131, 60, 153, 139, 56, 175, 147, 58, 196, 153, 65, 216, 158, 80, 231, 162, 100, 241, 166, 120, 248, 171, 143, 252, 177, 164, 253, 182, 183, 253, 189, 205, 252, 196, 226, 250, 204, 250], shape(batlowK25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: batlowK50 = reshape([4, 5, 10, 10, 13, 21, 15, 20, 30, 18, 27, 41, 21, 34, 51, 24, 41, 61, 28, 49, 70, 33, 56, 79, 39, 65, 86, 44, 72, 91, 49, 78, 94, 54, 83, 95, 59, 87, 95, 64, 92, 94, 68, 95, 93, 73, 98, 91, 77, 101, 88, 82, 103, 86, 88, 107, 82, 94, 110, 79, 99, 114, 75, 106, 117, 72, 113, 120, 69, 121, 125, 65, 129, 129, 62, 138, 133, 59, 147, 136, 57, 159, 141, 56, 169, 145, 57, 179, 148, 59, 190, 151, 62, 200, 154, 67, 211, 157, 76, 219, 159, 84, 226, 161, 93, 232, 163, 102, 238, 165, 112, 243, 167, 124, 246, 169, 134, 248, 172, 145, 250, 174, 154, 252, 177, 164, 253, 180, 176, 253, 183, 185, 253, 186, 195, 253, 189, 205, 253, 193, 216, 252, 197, 228, 251, 200, 239, 250, 204, 250], shape(batlowK50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: batlowKS = reshape([4, 5, 10, 253, 192, 214, 120, 124, 65, 57, 85, 95, 229, 161, 96, 27, 47, 69, 175, 147, 58, 84, 105, 85, 250, 174, 154, 17, 26, 39, 145, 136, 58, 205, 155, 71, 70, 96, 92, 253, 182, 183, 42, 69, 89, 101, 114, 75, 243, 167, 126, 50, 79, 94, 253, 187, 199, 252, 178, 168, 247, 171, 141, 13, 17, 26, 63, 91, 94, 110, 119, 70, 133, 130, 61, 92, 110, 79, 190, 151, 62, 159, 141, 56, 219, 159, 84, 77, 101, 88, 35, 59, 81, 21, 35, 53, 238, 165, 112, 212, 157, 77, 31, 53, 75, 253, 180, 176, 24, 41, 61, 198, 153, 66, 9, 12, 19, 167, 144, 56, 46, 74, 92, 253, 185, 191, 67, 93, 93, 73, 98, 90, 234, 163, 104, 126, 127, 63, 88, 107, 82, 115, 122, 67, 183, 149, 60, 96, 112, 77, 16, 22, 33, 225, 160, 91, 54, 83, 95, 241, 166, 120, 105, 116, 73, 249, 173, 148, 251, 176, 162, 245, 169, 132, 140, 133, 59, 61, 89, 95, 151, 138, 57, 19, 30, 45, 80, 102, 87, 39, 65, 86, 253, 189, 205, 216, 158, 80, 251, 175, 158, 222, 160, 87, 11, 15, 23, 129, 129, 62, 155, 139, 56, 48, 77, 93, 82, 103, 86, 240, 165, 116, 65, 92, 94, 107, 118, 71, 236, 164, 108, 90, 108, 81, 248, 172, 145, 179, 148, 59, 20, 32, 49, 253, 190, 209, 123, 126, 64, 33, 56, 79, 23, 38, 57, 15, 20, 30, 6, 8, 15, 75, 99, 89, 163, 142, 56, 252, 179, 172, 194, 152, 64, 136, 132, 60, 52, 81, 95, 59, 87, 95, 209, 156, 74, 72, 97, 91, 113, 120, 69, 29, 50, 72, 98, 113, 76, 253, 186, 195], shape(batlowKS), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: batlowS = reshape([1, 25, 89, 250, 204, 250, 130, 130, 49, 34, 96, 97, 241, 157, 107, 17, 67, 96, 253, 180, 180, 77, 115, 77, 192, 144, 54, 103, 123, 62, 252, 191, 214, 161, 138, 43, 252, 168, 144, 53, 106, 89, 13, 49, 93, 23, 82, 98, 219, 149, 75, 248, 162, 126, 43, 101, 94, 145, 134, 45, 90, 119, 69, 27, 89, 98, 253, 186, 196, 177, 141, 47, 8, 37, 91, 19, 75, 97, 65, 111, 83, 231, 152, 90, 15, 59, 95, 251, 198, 232, 253, 174, 162, 116, 126, 56, 207, 147, 64, 169, 140, 44, 252, 195, 223, 48, 104, 92, 253, 183, 188, 5, 31, 90, 109, 124, 59, 18, 71, 97, 59, 109, 86, 21, 79, 98, 200, 145, 59, 225, 151, 82, 71, 113, 80, 14, 54, 94, 11, 43, 92, 16, 63, 96, 30, 93, 98, 25, 86, 98, 251, 201, 241, 250, 165, 135, 253, 171, 154, 38, 99, 95, 96, 121, 66, 138, 132, 47, 253, 188, 205, 253, 177, 171, 245, 159, 116, 123, 128, 52, 153, 136, 44, 237, 154, 98, 83, 117, 73, 185, 143, 50, 212, 148, 69, 249, 163, 130, 253, 178, 175, 243, 158, 112, 93, 120, 68, 56, 108, 88, 12, 46, 93, 252, 169, 149, 16, 61, 95, 3, 28, 90, 40, 100, 95, 252, 193, 218, 203, 146, 62, 80, 116, 75, 253, 175, 167, 196, 145, 56, 165, 139, 44, 99, 122, 64, 251, 199, 236, 251, 166, 140, 7, 34, 91, 20, 77, 98, 120, 127, 54, 149, 135, 44, 36, 97, 96, 106, 123, 61, 74, 114, 78, 19, 73, 97, 252, 196, 227, 62, 110, 85, 253, 172, 158, 13, 51, 94, 113, 125, 57, 17, 65, 96, 51, 105, 90, 252, 190, 209], shape(batlowS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: batlowW = reshape([1, 25, 89, 2, 27, 89, 3, 28, 90, 4, 30, 90, 5, 31, 90, 6, 33, 91, 7, 34, 91, 7, 36, 91, 8, 37, 91, 9, 39, 92, 10, 40, 92, 10, 42, 92, 11, 43, 92, 11, 45, 93, 12, 46, 93, 12, 47, 93, 13, 49, 93, 13, 50, 94, 13, 51, 94, 14, 53, 94, 14, 54, 94, 14, 55, 94, 15, 56, 95, 15, 58, 95, 15, 59, 95, 15, 60, 95, 16, 61, 95, 16, 62, 95, 16, 63, 96, 16, 64, 96, 16, 65, 96, 17, 66, 96, 17, 67, 96, 17, 68, 96, 17, 69, 97, 18, 70, 97, 18, 71, 97, 18, 71, 97, 18, 72, 97, 19, 73, 97, 19, 74, 97, 19, 75, 97, 20, 76, 98, 20, 77, 98, 20, 78, 98, 21, 79, 98, 21, 80, 98, 22, 80, 98, 22, 81, 98, 22, 82, 98, 23, 83, 98, 23, 84, 98, 24, 85, 98, 24, 86, 98, 25, 87, 98, 26, 88, 98, 26, 88, 98, 27, 89, 98, 28, 90, 98, 28, 91, 98, 29, 92, 98, 30, 93, 98, 31, 93, 98, 31, 94, 98, 32, 95, 97, 33, 96, 97, 34, 97, 97, 35, 97, 97, 36, 98, 97, 37, 99, 96, 38, 100, 96, 39, 100, 96, 40, 101, 95, 42, 102, 95, 43, 103, 94, 44, 103, 94, 45, 104, 94, 46, 105, 93, 48, 105, 93, 49, 106, 92, 50, 107, 92, 52, 107, 91, 53, 108, 90, 54, 108, 90, 56, 109, 89, 57, 110, 89, 58, 110, 88, 60, 111, 87, 61, 112, 86, 63, 112, 86, 64, 113, 85, 66, 113, 84, 67, 114, 84, 69, 115, 83, 70, 115, 82, 72, 116, 81, 73, 116, 81, 75, 117, 80, 76, 117, 79, 78, 118, 78, 79, 119, 77, 81, 119, 77, 83, 120, 76, 84, 120, 75, 86, 121, 74, 87, 122, 73, 89, 122, 73, 91, 123, 72, 92, 123, 71, 94, 124, 70, 95, 124, 69, 97, 125, 69, 99, 126, 68, 100, 126, 67, 102, 127, 66, 104, 127, 65, 105, 128, 64, 107, 129, 64, 109, 129, 63, 110, 130, 62, 112, 130, 61, 114, 131, 61, 116, 132, 60, 117, 132, 59, 119, 133, 58, 121, 133, 57, 123, 134, 57, 124, 135, 56, 126, 135, 55, 128, 136, 55, 130, 137, 54, 132, 137, 53, 134, 138, 53, 136, 139, 52, 138, 139, 52, 140, 140, 51, 142, 141, 51, 144, 141, 51, 146, 142, 50, 148, 143, 50, 150, 143, 50, 152, 144, 50, 154, 145, 50, 156, 146, 50, 158, 146, 51, 160, 147, 51, 162, 148, 51, 164, 148, 52, 167, 149, 53, 169, 150, 54, 171, 151, 55, 173, 151, 56, 175, 152, 57, 177, 153, 58, 179, 153, 59, 181, 154, 61, 183, 155, 63, 186, 155, 64, 187, 156, 66, 189, 157, 68, 191, 157, 70, 193, 158, 72, 195, 159, 74, 197, 159, 76, 198, 160, 78, 200, 160, 80, 202, 161, 82, 203, 161, 84, 205, 162, 86, 206, 162, 88, 208, 163, 90, 209, 163, 92, 211, 164, 94, 212, 164, 96, 213, 165, 98, 215, 165, 100, 216, 165, 102, 217, 166, 105, 218, 166, 107, 219, 167, 109, 220, 167, 111, 221, 167, 112, 223, 168, 114, 224, 168, 116, 225, 169, 118, 226, 169, 120, 227, 169, 122, 228, 170, 124, 229, 170, 126, 229, 171, 128, 230, 171, 130, 231, 171, 132, 232, 172, 134, 233, 172, 136, 234, 173, 137, 235, 173, 139, 236, 174, 141, 237, 175, 143, 238, 175, 145, 238, 176, 148, 239, 177, 150, 240, 177, 152, 241, 178, 154, 242, 179, 156, 243, 180, 158, 243, 181, 161, 244, 182, 163, 245, 183, 166, 246, 185, 168, 247, 186, 170, 247, 187, 173, 248, 189, 175, 249, 190, 178, 249, 192, 181, 250, 193, 183, 250, 195, 186, 251, 197, 188, 252, 198, 191, 252, 200, 193, 252, 202, 196, 253, 204, 198, 253, 205, 201, 253, 207, 203, 254, 209, 205, 254, 211, 207, 254, 213, 210, 254, 214, 212, 254, 216, 214, 255, 218, 216, 255, 219, 218, 255, 221, 219, 255, 223, 221, 255, 224, 223, 255, 226, 225, 255, 227, 226, 255, 229, 228, 255, 230, 230, 255, 232, 231, 255, 233, 233, 255, 234, 234, 255, 236, 235, 255, 237, 237, 255, 239, 238, 255, 240, 240, 255, 241, 241, 255, 242, 242, 255, 244, 243, 255, 245, 245, 255, 246, 246, 255, 247, 247, 255, 248, 248, 255, 250, 249, 255, 251, 251, 255, 252, 252, 255, 253, 253, 255, 254, 254], shape(batlowW), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: batlowW10 = reshape([1, 25, 89, 16, 63, 96, 27, 89, 98, 57, 110, 89, 100, 126, 67, 154, 145, 50, 208, 163, 90, 238, 175, 145, 254, 216, 214, 255, 254, 254], shape(batlowW10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: batlowW100 = reshape([1, 25, 89, 4, 30, 90, 6, 33, 91, 8, 37, 91, 10, 40, 92, 11, 45, 93, 12, 47, 93, 13, 51, 94, 14, 55, 94, 15, 58, 95, 16, 61, 95, 16, 63, 96, 17, 66, 96, 17, 68, 96, 18, 71, 97, 19, 73, 97, 19, 75, 97, 20, 78, 98, 21, 80, 98, 22, 82, 98, 24, 85, 98, 25, 87, 98, 27, 89, 98, 28, 91, 98, 31, 93, 98, 32, 95, 97, 35, 97, 97, 38, 100, 96, 40, 101, 95, 44, 103, 94, 46, 105, 93, 50, 107, 92, 53, 108, 90, 57, 110, 89, 61, 112, 86, 64, 113, 85, 69, 115, 83, 72, 116, 81, 76, 117, 79, 79, 119, 77, 84, 120, 75, 89, 122, 73, 92, 123, 71, 97, 125, 69, 100, 126, 67, 105, 128, 64, 109, 129, 63, 114, 131, 61, 119, 133, 58, 123, 134, 57, 128, 136, 55, 132, 137, 53, 138, 139, 52, 144, 141, 51, 148, 143, 50, 154, 145, 50, 158, 146, 51, 164, 148, 52, 169, 150, 54, 175, 152, 57, 181, 154, 61, 186, 155, 64, 191, 157, 70, 195, 159, 74, 200, 160, 80, 203, 161, 84, 208, 163, 90, 212, 164, 96, 215, 165, 100, 218, 166, 107, 220, 167, 111, 224, 168, 116, 226, 169, 120, 229, 170, 126, 231, 171, 132, 233, 172, 136, 236, 174, 141, 238, 175, 145, 240, 177, 152, 242, 179, 156, 244, 182, 163, 247, 186, 170, 248, 189, 175, 250, 193, 183, 251, 197, 188, 252, 202, 196, 253, 207, 203, 254, 211, 207, 254, 216, 214, 255, 219, 218, 255, 224, 223, 255, 227, 226, 255, 232, 231, 255, 236, 235, 255, 239, 238, 255, 242, 242, 255, 245, 245, 255, 248, 248, 255, 251, 251, 255, 254, 254], shape(batlowW100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: batlowW25 = reshape([1, 25, 89, 10, 42, 92, 14, 55, 94, 17, 67, 96, 20, 77, 98, 24, 86, 98, 32, 95, 97, 43, 103, 94, 57, 110, 89, 73, 116, 81, 89, 122, 73, 107, 129, 64, 126, 135, 55, 146, 142, 50, 169, 150, 54, 189, 157, 68, 208, 163, 90, 221, 167, 112, 231, 171, 132, 241, 178, 154, 249, 192, 181, 254, 209, 205, 255, 227, 226, 255, 241, 241, 255, 254, 254], shape(batlowW25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: batlowW50 = reshape([1, 25, 89, 6, 33, 91, 10, 40, 92, 13, 49, 93, 14, 55, 94, 16, 61, 95, 17, 66, 96, 18, 71, 97, 20, 76, 98, 22, 80, 98, 24, 85, 98, 27, 89, 98, 31, 93, 98, 36, 98, 97, 42, 102, 95, 48, 105, 93, 54, 108, 90, 61, 112, 86, 70, 115, 82, 78, 118, 78, 86, 121, 74, 94, 124, 70, 102, 127, 66, 112, 130, 61, 121, 133, 57, 130, 137, 54, 140, 140, 51, 152, 144, 50, 162, 148, 51, 173, 151, 56, 183, 155, 63, 193, 158, 72, 203, 161, 84, 211, 164, 94, 217, 166, 105, 223, 168, 114, 228, 170, 124, 233, 172, 136, 238, 175, 145, 242, 179, 156, 246, 185, 168, 249, 192, 181, 252, 202, 196, 254, 211, 207, 255, 219, 218, 255, 227, 226, 255, 234, 234, 255, 242, 242, 255, 248, 248, 255, 254, 254], shape(batlowW50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: batlowWS = reshape([255, 254, 254, 1, 25, 89, 124, 135, 56, 231, 171, 132, 32, 95, 97, 189, 157, 68, 254, 209, 205, 17, 67, 96, 73, 116, 81, 13, 49, 93, 156, 146, 50, 50, 107, 92, 22, 81, 98, 245, 183, 166, 255, 234, 234, 215, 165, 100, 99, 126, 68, 19, 74, 97, 173, 151, 56, 203, 161, 84, 8, 37, 91, 255, 245, 245, 224, 168, 116, 86, 121, 74, 61, 112, 86, 255, 223, 221, 250, 195, 186, 26, 88, 98, 238, 176, 148, 140, 140, 51, 15, 59, 95, 40, 101, 95, 110, 130, 62, 255, 229, 228, 45, 104, 94, 148, 143, 50, 132, 137, 53, 219, 167, 109, 209, 163, 92, 14, 54, 94, 164, 148, 52, 24, 85, 98, 248, 189, 175, 255, 240, 240, 235, 173, 139, 67, 114, 84, 36, 98, 97, 11, 43, 92, 255, 250, 249, 242, 179, 156, 92, 123, 71, 181, 154, 61, 252, 202, 196, 18, 71, 97, 117, 132, 59, 29, 92, 98, 56, 109, 89, 254, 216, 214, 20, 78, 98, 197, 159, 76, 79, 119, 77, 16, 63, 96, 5, 31, 90, 228, 170, 124, 104, 127, 65, 21, 80, 98, 53, 108, 90, 89, 122, 73, 193, 158, 72, 255, 237, 237, 3, 28, 90, 64, 113, 85, 240, 177, 152, 255, 219, 218, 229, 171, 128, 16, 61, 95, 237, 175, 143, 136, 139, 52, 15, 56, 95, 247, 186, 170, 152, 144, 50, 70, 115, 82, 83, 120, 76, 48, 105, 93, 226, 169, 120, 169, 150, 54, 23, 83, 98, 12, 46, 93, 160, 147, 51, 221, 167, 112, 177, 153, 58, 217, 166, 105, 243, 181, 161, 255, 226, 225, 253, 205, 201, 107, 129, 64, 255, 242, 242, 13, 51, 94, 252, 198, 191, 249, 192, 181], shape(batlowWS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: berlin = reshape([158, 176, 255, 156, 176, 254, 154, 176, 253, 152, 175, 252, 149, 175, 251, 147, 175, 250, 145, 174, 249, 142, 174, 247, 140, 174, 246, 138, 174, 245, 135, 173, 244, 133, 173, 243, 130, 173, 242, 128, 172, 241, 126, 172, 240, 123, 172, 238, 121, 171, 237, 118, 171, 236, 116, 170, 235, 113, 170, 233, 111, 169, 232, 108, 169, 230, 106, 168, 229, 103, 168, 227, 101, 167, 226, 98, 166, 224, 96, 165, 223, 93, 165, 221, 91, 164, 219, 88, 163, 217, 86, 162, 215, 84, 160, 213, 81, 159, 211, 79, 158, 209, 77, 157, 207, 75, 155, 205, 72, 154, 202, 70, 152, 200, 68, 151, 198, 67, 149, 195, 65, 148, 193, 63, 146, 190, 62, 144, 188, 60, 142, 185, 59, 141, 183, 57, 139, 180, 56, 137, 178, 55, 135, 175, 54, 133, 173, 53, 132, 170, 51, 130, 168, 50, 128, 166, 50, 126, 163, 49, 124, 161, 48, 122, 158, 47, 120, 156, 46, 118, 153, 45, 117, 151, 44, 115, 148, 44, 113, 146, 43, 111, 143, 42, 109, 141, 41, 107, 139, 41, 105, 136, 40, 104, 134, 39, 102, 131, 39, 100, 129, 38, 98, 127, 37, 96, 124, 36, 94, 122, 36, 93, 120, 35, 91, 117, 34, 89, 115, 34, 87, 113, 33, 85, 110, 32, 84, 108, 32, 82, 106, 31, 80, 104, 30, 78, 101, 30, 77, 99, 29, 75, 97, 28, 73, 95, 28, 71, 92, 27, 70, 90, 26, 68, 88, 26, 66, 86, 25, 65, 83, 25, 63, 81, 24, 61, 79, 23, 60, 77, 23, 58, 75, 22, 56, 73, 22, 55, 71, 21, 53, 68, 21, 51, 66, 20, 50, 64, 20, 48, 62, 19, 47, 60, 19, 45, 58, 18, 44, 56, 18, 42, 54, 18, 41, 52, 17, 39, 50, 17, 38, 48, 17, 36, 46, 17, 35, 44, 17, 33, 42, 17, 32, 40, 16, 31, 38, 16, 29, 37, 16, 28, 35, 17, 27, 33, 17, 26, 32, 17, 25, 30, 17, 24, 28, 17, 22, 27, 17, 21, 25, 17, 20, 24, 17, 19, 23, 18, 18, 21, 18, 18, 20, 19, 17, 18, 20, 16, 17, 20, 15, 16, 21, 14, 14, 22, 14, 13, 23, 13, 11, 24, 12, 10, 25, 12, 9, 26, 12, 8, 27, 11, 7, 28, 11, 6, 29, 11, 5, 30, 11, 4, 32, 11, 4, 33, 11, 3, 34, 12, 2, 35, 12, 2, 36, 12, 2, 37, 12, 1, 38, 13, 1, 39, 13, 1, 40, 13, 1, 42, 14, 1, 43, 14, 1, 44, 14, 0, 45, 14, 0, 47, 14, 0, 48, 15, 0, 49, 15, 0, 51, 15, 0, 52, 15, 0, 53, 16, 0, 55, 16, 0, 56, 16, 0, 57, 17, 0, 59, 17, 0, 60, 17, 1, 62, 18, 1, 63, 18, 1, 65, 18, 1, 66, 19, 1, 68, 19, 1, 69, 20, 1, 71, 20, 1, 72, 21, 2, 74, 21, 2, 75, 22, 2, 77, 22, 2, 79, 23, 3, 80, 24, 3, 82, 24, 4, 84, 25, 5, 86, 26, 5, 87, 27, 6, 89, 28, 7, 91, 29, 8, 93, 30, 9, 95, 31, 10, 97, 32, 11, 99, 33, 12, 101, 35, 14, 104, 36, 15, 106, 37, 16, 108, 39, 17, 110, 40, 19, 112, 42, 20, 115, 43, 22, 117, 45, 23, 119, 47, 25, 121, 48, 27, 123, 50, 28, 125, 52, 30, 128, 54, 32, 130, 55, 34, 132, 57, 36, 134, 59, 38, 136, 61, 40, 138, 63, 42, 140, 64, 44, 142, 66, 46, 144, 68, 48, 146, 70, 50, 148, 72, 52, 150, 74, 54, 152, 76, 57, 154, 77, 59, 156, 79, 61, 158, 81, 63, 160, 83, 65, 162, 85, 68, 164, 87, 70, 166, 89, 72, 168, 90, 74, 170, 92, 76, 172, 94, 79, 174, 96, 81, 176, 98, 83, 178, 100, 85, 180, 102, 88, 182, 104, 90, 184, 106, 92, 186, 107, 95, 188, 109, 97, 190, 111, 99, 192, 113, 101, 194, 115, 104, 196, 117, 106, 198, 119, 108, 200, 121, 111, 202, 123, 113, 204, 125, 115, 206, 127, 118, 208, 129, 120, 210, 131, 122, 213, 133, 125, 215, 135, 127, 217, 137, 130, 219, 139, 132, 221, 141, 134, 223, 143, 137, 225, 145, 139, 227, 147, 142, 229, 149, 144, 231, 151, 146, 234, 153, 149, 236, 155, 151, 238, 157, 154, 240, 159, 156, 242, 161, 159, 244, 163, 161, 246, 165, 163, 249, 167, 166, 251, 169, 168, 253, 171, 171, 255, 173, 173], shape(berlin), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: berlin10 = reshape([158, 176, 255, 91, 164, 219, 45, 117, 151, 26, 66, 86, 17, 25, 30, 40, 13, 1, 80, 24, 3, 138, 63, 42, 196, 117, 106, 255, 173, 173], shape(berlin10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: berlin100 = reshape([158, 176, 255, 152, 175, 252, 147, 175, 250, 140, 174, 246, 135, 173, 244, 128, 172, 241, 123, 172, 238, 116, 170, 235, 108, 169, 230, 103, 168, 227, 96, 165, 223, 91, 164, 219, 84, 160, 213, 79, 158, 209, 72, 154, 202, 67, 149, 195, 63, 146, 190, 59, 141, 183, 56, 137, 178, 53, 132, 170, 50, 126, 163, 48, 122, 158, 45, 117, 151, 44, 113, 146, 41, 107, 139, 40, 104, 134, 38, 98, 127, 36, 93, 120, 34, 89, 115, 32, 84, 108, 31, 80, 104, 29, 75, 97, 28, 71, 92, 26, 66, 86, 24, 61, 79, 23, 58, 75, 21, 53, 68, 20, 50, 64, 19, 45, 58, 18, 42, 54, 17, 38, 48, 17, 33, 42, 16, 31, 38, 17, 27, 33, 17, 25, 30, 17, 21, 25, 17, 19, 23, 19, 17, 18, 21, 14, 14, 23, 13, 11, 26, 12, 8, 28, 11, 6, 32, 11, 4, 35, 12, 2, 37, 12, 1, 40, 13, 1, 43, 14, 1, 47, 14, 0, 49, 15, 0, 53, 16, 0, 57, 17, 0, 60, 17, 1, 65, 18, 1, 68, 19, 1, 72, 21, 2, 75, 22, 2, 80, 24, 3, 86, 26, 5, 89, 28, 7, 95, 31, 10, 99, 33, 12, 106, 37, 16, 110, 40, 19, 117, 45, 23, 123, 50, 28, 128, 54, 32, 134, 59, 38, 138, 63, 42, 144, 68, 48, 148, 72, 52, 154, 77, 59, 160, 83, 65, 164, 87, 70, 170, 92, 76, 174, 96, 81, 180, 102, 88, 186, 107, 95, 190, 111, 99, 196, 117, 106, 200, 121, 111, 206, 127, 118, 210, 131, 122, 217, 137, 130, 223, 143, 137, 227, 147, 142, 234, 153, 149, 238, 157, 154, 244, 163, 161, 249, 167, 166, 255, 173, 173], shape(berlin100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: berlin25 = reshape([158, 176, 255, 133, 173, 243, 108, 169, 230, 81, 159, 211, 60, 142, 185, 49, 124, 161, 40, 104, 134, 33, 85, 110, 26, 66, 86, 20, 48, 62, 17, 33, 42, 17, 20, 24, 25, 12, 9, 36, 12, 2, 49, 15, 0, 63, 18, 1, 80, 24, 3, 101, 35, 14, 123, 50, 28, 146, 70, 50, 168, 90, 74, 188, 109, 97, 210, 131, 122, 231, 151, 146, 255, 173, 173], shape(berlin25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: berlin50 = reshape([158, 176, 255, 147, 175, 250, 135, 173, 244, 121, 171, 237, 108, 169, 230, 96, 165, 223, 84, 160, 213, 72, 154, 202, 62, 144, 188, 55, 135, 175, 50, 126, 163, 45, 117, 151, 41, 107, 139, 37, 96, 124, 34, 87, 113, 30, 78, 101, 27, 70, 90, 24, 61, 79, 21, 51, 66, 18, 44, 56, 17, 36, 46, 16, 29, 37, 17, 24, 28, 18, 18, 20, 22, 14, 13, 27, 11, 7, 33, 11, 3, 39, 13, 1, 45, 14, 0, 52, 15, 0, 59, 17, 0, 66, 19, 1, 75, 22, 2, 84, 25, 5, 93, 30, 9, 104, 36, 15, 115, 43, 22, 128, 54, 32, 138, 63, 42, 148, 72, 52, 158, 81, 63, 168, 90, 74, 180, 102, 88, 190, 111, 99, 200, 121, 111, 210, 131, 122, 221, 141, 134, 234, 153, 149, 244, 163, 161, 255, 173, 173], shape(berlin50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: bilbao = reshape([76, 0, 1, 78, 1, 3, 79, 2, 5, 81, 4, 7, 82, 5, 9, 84, 7, 11, 85, 8, 13, 87, 10, 14, 88, 11, 16, 90, 13, 17, 91, 14, 19, 93, 16, 20, 94, 17, 21, 96, 19, 22, 97, 20, 24, 98, 21, 25, 100, 22, 26, 101, 24, 27, 103, 25, 29, 104, 26, 30, 105, 27, 31, 107, 29, 32, 108, 30, 34, 109, 31, 35, 110, 32, 36, 112, 33, 38, 113, 34, 39, 114, 35, 40, 115, 37, 41, 117, 38, 43, 118, 39, 44, 119, 40, 45, 120, 41, 47, 122, 42, 48, 123, 43, 49, 124, 45, 50, 125, 46, 52, 126, 47, 53, 128, 48, 54, 129, 49, 55, 130, 50, 57, 131, 51, 58, 132, 52, 59, 133, 53, 60, 135, 55, 62, 136, 56, 63, 137, 57, 64, 138, 58, 65, 139, 59, 66, 140, 60, 67, 141, 61, 69, 142, 63, 70, 143, 64, 71, 144, 65, 72, 145, 66, 73, 146, 67, 74, 147, 69, 75, 148, 70, 75, 149, 71, 76, 149, 72, 77, 150, 73, 78, 151, 74, 79, 152, 76, 79, 152, 77, 80, 153, 78, 81, 153, 79, 81, 154, 80, 82, 154, 81, 82, 155, 82, 83, 155, 83, 83, 156, 84, 83, 156, 85, 84, 157, 86, 84, 157, 87, 84, 157, 88, 85, 158, 89, 85, 158, 90, 85, 158, 91, 86, 158, 92, 86, 159, 93, 86, 159, 94, 86, 159, 94, 86, 159, 95, 87, 160, 96, 87, 160, 97, 87, 160, 98, 87, 160, 99, 87, 161, 99, 88, 161, 100, 88, 161, 101, 88, 161, 102, 88, 161, 103, 88, 162, 103, 89, 162, 104, 89, 162, 105, 89, 162, 106, 89, 163, 107, 89, 163, 107, 89, 163, 108, 90, 163, 109, 90, 163, 110, 90, 164, 110, 90, 164, 111, 90, 164, 112, 90, 164, 113, 91, 164, 113, 91, 165, 114, 91, 165, 115, 91, 165, 116, 91, 165, 116, 91, 165, 117, 91, 166, 118, 92, 166, 118, 92, 166, 119, 92, 166, 120, 92, 166, 121, 92, 167, 121, 92, 167, 122, 93, 167, 123, 93, 167, 124, 93, 167, 124, 93, 168, 125, 93, 168, 126, 93, 168, 126, 94, 168, 127, 94, 168, 128, 94, 169, 129, 94, 169, 129, 94, 169, 130, 94, 169, 131, 94, 169, 132, 95, 170, 132, 95, 170, 133, 95, 170, 134, 95, 170, 134, 95, 170, 135, 95, 171, 136, 96, 171, 137, 96, 171, 137, 96, 171, 138, 96, 171, 139, 96, 172, 140, 96, 172, 141, 97, 172, 141, 97, 172, 142, 97, 172, 143, 97, 173, 144, 97, 173, 145, 98, 173, 145, 98, 173, 146, 98, 174, 147, 98, 174, 148, 99, 174, 149, 99, 174, 150, 99, 175, 150, 100, 175, 151, 100, 175, 152, 100, 175, 153, 101, 176, 154, 102, 176, 155, 102, 177, 156, 103, 177, 157, 104, 177, 158, 104, 178, 159, 105, 178, 160, 106, 179, 161, 107, 179, 162, 109, 179, 163, 110, 180, 164, 111, 180, 165, 113, 181, 167, 114, 181, 168, 116, 182, 169, 117, 182, 170, 119, 183, 171, 121, 183, 172, 122, 184, 172, 124, 184, 173, 126, 185, 174, 128, 185, 175, 130, 186, 176, 131, 186, 177, 133, 187, 178, 135, 187, 178, 137, 188, 179, 139, 188, 180, 141, 189, 181, 142, 189, 181, 144, 190, 182, 146, 190, 183, 148, 191, 183, 149, 191, 184, 151, 191, 185, 153, 192, 185, 154, 192, 186, 156, 193, 187, 158, 193, 187, 159, 193, 188, 161, 194, 188, 163, 194, 189, 164, 195, 190, 166, 195, 190, 167, 195, 191, 169, 196, 191, 170, 196, 192, 172, 197, 193, 173, 197, 193, 175, 197, 194, 176, 198, 194, 178, 198, 195, 179, 199, 195, 180, 199, 196, 182, 199, 197, 183, 200, 197, 185, 200, 198, 186, 201, 199, 188, 202, 199, 189, 202, 200, 190, 203, 201, 192, 203, 202, 193, 204, 202, 195, 205, 203, 196, 206, 204, 198, 206, 205, 199, 207, 206, 201, 208, 207, 203, 209, 208, 204, 210, 210, 206, 212, 211, 207, 213, 212, 209, 214, 213, 211, 215, 215, 212, 217, 216, 214, 218, 218, 216, 219, 219, 218, 221, 221, 219, 222, 222, 221, 224, 224, 223, 225, 225, 225, 227, 227, 226, 229, 229, 228, 230, 230, 230, 232, 232, 232, 234, 234, 233, 235, 235, 235, 237, 237, 237, 239, 239, 239, 241, 241, 240, 242, 242, 242, 244, 244, 244, 246, 246, 246, 248, 248, 248, 250, 250, 250, 251, 251, 251, 253, 253, 253, 255, 255, 255], shape(bilbao), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: bilbao10 = reshape([76, 0, 1, 115, 37, 41, 148, 70, 75, 160, 98, 87, 166, 119, 92, 172, 141, 97, 181, 167, 114, 194, 188, 163, 210, 210, 206, 255, 255, 255], shape(bilbao10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: bilbao100 = reshape([76, 0, 1, 81, 4, 7, 84, 7, 11, 88, 11, 16, 91, 14, 19, 96, 19, 22, 98, 21, 25, 103, 25, 29, 107, 29, 32, 109, 31, 35, 113, 34, 39, 115, 37, 41, 119, 40, 45, 122, 42, 48, 125, 46, 52, 129, 49, 55, 131, 51, 58, 135, 55, 62, 137, 57, 64, 140, 60, 67, 143, 64, 71, 145, 66, 73, 148, 70, 75, 149, 72, 77, 152, 76, 79, 153, 78, 81, 154, 81, 82, 156, 84, 83, 157, 86, 84, 158, 89, 85, 158, 91, 86, 159, 94, 86, 159, 95, 87, 160, 98, 87, 161, 100, 88, 161, 102, 88, 162, 104, 89, 162, 106, 89, 163, 108, 90, 163, 110, 90, 164, 112, 90, 165, 114, 91, 165, 116, 91, 166, 118, 92, 166, 119, 92, 167, 121, 92, 167, 123, 93, 168, 125, 93, 168, 127, 94, 169, 129, 94, 169, 131, 94, 170, 132, 95, 170, 134, 95, 171, 137, 96, 171, 138, 96, 172, 141, 97, 172, 142, 97, 173, 145, 98, 173, 146, 98, 174, 149, 99, 175, 151, 100, 175, 153, 101, 177, 156, 103, 177, 158, 104, 179, 161, 107, 179, 163, 110, 181, 167, 114, 182, 170, 119, 183, 172, 122, 185, 174, 128, 186, 176, 131, 187, 178, 137, 188, 180, 141, 190, 182, 146, 191, 184, 151, 192, 185, 154, 193, 187, 159, 194, 188, 163, 195, 190, 167, 196, 191, 170, 197, 193, 175, 198, 195, 179, 199, 196, 182, 200, 198, 186, 202, 199, 189, 203, 202, 193, 206, 204, 198, 207, 206, 201, 210, 210, 206, 213, 212, 209, 217, 216, 214, 219, 219, 218, 224, 224, 223, 229, 229, 228, 232, 232, 232, 237, 237, 237, 241, 241, 240, 246, 246, 246, 250, 250, 250, 255, 255, 255], shape(bilbao100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: bilbao25 = reshape([76, 0, 1, 93, 16, 20, 107, 29, 32, 120, 41, 47, 133, 53, 60, 144, 65, 72, 153, 78, 81, 157, 88, 85, 160, 98, 87, 163, 107, 89, 165, 114, 91, 167, 122, 93, 169, 130, 94, 171, 137, 96, 173, 146, 98, 176, 155, 102, 181, 167, 114, 186, 177, 133, 191, 184, 151, 195, 191, 169, 200, 197, 185, 206, 205, 199, 219, 219, 218, 235, 235, 235, 255, 255, 255], shape(bilbao25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: bilbao50 = reshape([76, 0, 1, 84, 7, 11, 91, 14, 19, 100, 22, 26, 107, 29, 32, 113, 34, 39, 119, 40, 45, 125, 46, 52, 132, 52, 59, 138, 58, 65, 143, 64, 71, 148, 70, 75, 152, 76, 79, 155, 82, 83, 157, 87, 84, 158, 92, 86, 160, 96, 87, 161, 100, 88, 162, 105, 89, 163, 109, 90, 164, 113, 91, 165, 116, 91, 166, 120, 92, 167, 124, 93, 168, 128, 94, 169, 132, 95, 170, 135, 95, 172, 140, 96, 173, 144, 97, 174, 148, 99, 175, 152, 100, 177, 157, 104, 179, 163, 110, 182, 169, 117, 184, 173, 126, 187, 178, 135, 189, 181, 144, 192, 185, 154, 194, 188, 163, 196, 191, 170, 198, 194, 178, 200, 197, 185, 203, 202, 193, 207, 206, 201, 213, 212, 209, 219, 219, 218, 227, 227, 226, 237, 237, 237, 246, 246, 246, 255, 255, 255], shape(bilbao50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: bilbaoS = reshape([76, 0, 1, 248, 248, 248, 169, 129, 94, 152, 77, 80, 190, 183, 148, 119, 40, 45, 162, 106, 89, 175, 153, 101, 204, 202, 195, 159, 93, 86, 138, 58, 65, 182, 170, 119, 100, 22, 26, 221, 221, 219, 172, 140, 96, 197, 193, 173, 166, 118, 92, 161, 99, 88, 173, 146, 98, 234, 234, 233, 129, 49, 55, 88, 11, 16, 164, 112, 90, 179, 161, 107, 193, 188, 161, 156, 85, 84, 146, 67, 74, 186, 177, 133, 170, 134, 95, 109, 31, 35, 210, 210, 206, 167, 123, 93, 200, 197, 185, 161, 103, 88, 174, 150, 99, 198, 195, 179, 180, 165, 113, 160, 96, 87, 171, 137, 96, 142, 63, 70, 188, 180, 141, 154, 81, 82, 94, 17, 21, 158, 89, 85, 149, 72, 77, 82, 5, 9, 133, 53, 60, 227, 227, 226, 184, 173, 126, 215, 215, 212, 163, 109, 90, 241, 241, 240, 124, 45, 50, 195, 190, 167, 168, 126, 93, 165, 115, 91, 192, 185, 154, 172, 143, 97, 177, 157, 104, 114, 35, 40, 104, 26, 30, 169, 131, 94, 206, 205, 199, 202, 200, 190, 166, 121, 92, 244, 244, 244, 189, 181, 144, 136, 56, 63, 168, 127, 94, 176, 155, 102, 199, 196, 182, 172, 141, 97, 237, 237, 237, 117, 38, 43, 155, 83, 83, 165, 116, 91, 122, 42, 48, 148, 70, 75, 140, 60, 67, 181, 168, 116, 160, 98, 87, 193, 187, 158, 170, 135, 95, 151, 74, 79, 183, 172, 122, 85, 8, 13, 173, 145, 98, 230, 230, 230, 162, 104, 89, 171, 138, 96, 213, 212, 209, 153, 79, 81, 196, 191, 170, 126, 47, 53, 201, 199, 188, 158, 91, 86, 194, 189, 164, 187, 178, 137, 112, 33, 38, 224, 224, 223], shape(bilbaoS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: broc = reshape([44, 26, 76, 44, 27, 78, 44, 29, 79, 43, 30, 81, 43, 32, 82, 43, 33, 84, 43, 35, 85, 43, 36, 87, 43, 38, 88, 43, 39, 90, 43, 41, 91, 43, 42, 93, 42, 44, 94, 42, 45, 96, 42, 46, 97, 42, 48, 99, 42, 49, 100, 42, 51, 102, 41, 53, 103, 41, 54, 105, 41, 56, 106, 41, 57, 108, 41, 59, 109, 41, 60, 111, 41, 62, 113, 40, 63, 114, 40, 65, 116, 40, 67, 117, 40, 68, 119, 40, 70, 120, 40, 71, 122, 41, 73, 124, 41, 75, 125, 41, 76, 127, 41, 78, 128, 42, 80, 130, 42, 81, 131, 43, 83, 133, 44, 85, 134, 45, 87, 136, 46, 88, 137, 47, 90, 139, 48, 92, 140, 49, 94, 142, 51, 95, 143, 52, 97, 145, 54, 99, 146, 55, 101, 147, 57, 102, 149, 59, 104, 150, 61, 106, 151, 63, 107, 153, 65, 109, 154, 67, 111, 155, 69, 113, 156, 71, 114, 158, 73, 116, 159, 75, 118, 160, 77, 120, 161, 80, 121, 163, 82, 123, 164, 84, 125, 165, 86, 127, 166, 88, 128, 167, 91, 130, 169, 93, 132, 170, 95, 133, 171, 97, 135, 172, 100, 137, 173, 102, 139, 175, 104, 140, 176, 107, 142, 177, 109, 144, 178, 111, 146, 179, 113, 147, 181, 116, 149, 182, 118, 151, 183, 120, 153, 184, 123, 155, 186, 125, 156, 187, 127, 158, 188, 130, 160, 189, 132, 162, 190, 134, 163, 192, 137, 165, 193, 139, 167, 194, 141, 169, 195, 144, 170, 197, 146, 172, 198, 148, 174, 199, 151, 176, 200, 153, 178, 202, 155, 179, 203, 158, 181, 204, 160, 183, 205, 162, 185, 206, 165, 187, 208, 167, 188, 209, 170, 190, 210, 172, 192, 211, 174, 194, 213, 177, 196, 214, 179, 197, 215, 181, 199, 216, 184, 201, 218, 186, 203, 219, 189, 205, 220, 191, 207, 221, 194, 208, 223, 196, 210, 224, 198, 212, 225, 201, 214, 226, 203, 216, 228, 206, 217, 229, 208, 219, 230, 210, 221, 231, 213, 223, 232, 215, 224, 233, 217, 226, 234, 220, 228, 235, 222, 229, 236, 224, 231, 236, 226, 232, 237, 228, 234, 237, 230, 235, 237, 231, 236, 237, 233, 237, 237, 234, 238, 236, 235, 238, 236, 236, 239, 235, 237, 239, 233, 237, 239, 232, 238, 239, 231, 238, 239, 229, 238, 239, 227, 237, 238, 225, 237, 238, 223, 236, 237, 221, 236, 236, 219, 235, 235, 217, 234, 234, 214, 233, 233, 212, 232, 232, 210, 231, 231, 207, 230, 230, 205, 229, 229, 203, 228, 228, 200, 227, 226, 198, 225, 225, 196, 224, 224, 193, 223, 223, 191, 222, 222, 189, 221, 221, 186, 220, 219, 184, 218, 218, 181, 217, 217, 179, 216, 216, 177, 215, 215, 174, 213, 213, 172, 212, 212, 170, 211, 211, 167, 210, 210, 165, 208, 208, 162, 207, 207, 160, 206, 206, 158, 204, 204, 155, 203, 203, 153, 201, 201, 150, 200, 200, 148, 198, 198, 145, 197, 197, 143, 195, 195, 140, 193, 193, 138, 192, 191, 135, 190, 190, 133, 188, 188, 131, 186, 186, 128, 184, 184, 126, 182, 182, 124, 180, 180, 121, 178, 178, 119, 176, 176, 117, 174, 174, 115, 172, 172, 113, 170, 170, 111, 168, 168, 109, 166, 166, 107, 163, 163, 105, 161, 161, 103, 159, 159, 101, 157, 157, 99, 155, 155, 98, 153, 153, 96, 151, 151, 94, 149, 149, 92, 147, 147, 91, 145, 145, 89, 143, 143, 87, 141, 141, 86, 139, 139, 84, 137, 137, 82, 135, 135, 81, 133, 133, 79, 131, 131, 77, 129, 129, 76, 127, 127, 74, 125, 125, 72, 123, 123, 71, 121, 121, 69, 119, 119, 68, 117, 117, 66, 116, 116, 64, 114, 114, 63, 112, 112, 61, 110, 110, 60, 108, 108, 58, 106, 106, 56, 104, 104, 55, 102, 102, 53, 100, 100, 52, 98, 98, 50, 97, 96, 49, 95, 95, 47, 93, 93, 45, 91, 91, 44, 89, 89, 42, 87, 87, 41, 85, 85, 39, 84, 84, 38, 82, 82, 36, 80, 80, 35, 78, 78, 33, 76, 76, 32, 75, 75, 31, 73, 73, 29, 71, 71, 28, 69, 69, 26, 67, 67, 25, 66, 66, 24, 64, 64, 22, 62, 62, 21, 60, 61, 20, 59, 59, 18, 57, 57, 17, 55, 56, 16, 54, 54, 15, 52, 52, 14, 50, 51, 12, 49, 49, 11, 47, 48, 10, 46, 46, 8, 44, 44, 7, 43, 43, 5, 41, 41, 4, 40, 40, 2, 38, 38, 0], shape(broc), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: broc10 = reshape([44, 26, 76, 40, 68, 119, 75, 118, 160, 139, 167, 194, 206, 217, 229, 232, 232, 210, 197, 197, 143, 141, 141, 86, 85, 85, 39, 38, 38, 0], shape(broc10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: broc100 = reshape([44, 26, 76, 43, 30, 81, 43, 33, 84, 43, 38, 88, 43, 41, 91, 42, 45, 96, 42, 48, 99, 41, 53, 103, 41, 57, 108, 41, 60, 111, 40, 65, 116, 40, 68, 119, 41, 73, 124, 41, 76, 127, 42, 81, 131, 45, 87, 136, 47, 90, 139, 51, 95, 143, 54, 99, 146, 59, 104, 150, 65, 109, 154, 69, 113, 156, 75, 118, 160, 80, 121, 163, 86, 127, 166, 91, 130, 169, 97, 135, 172, 104, 140, 176, 109, 144, 178, 116, 149, 182, 120, 153, 184, 127, 158, 188, 132, 162, 190, 139, 167, 194, 146, 172, 198, 151, 176, 200, 158, 181, 204, 162, 185, 206, 170, 190, 210, 174, 194, 213, 181, 199, 216, 189, 205, 220, 194, 208, 223, 201, 214, 226, 206, 217, 229, 213, 223, 232, 217, 226, 234, 224, 231, 236, 230, 235, 237, 233, 237, 237, 236, 239, 235, 237, 239, 232, 238, 239, 227, 236, 237, 221, 235, 235, 217, 232, 232, 210, 230, 230, 205, 227, 226, 198, 224, 224, 193, 221, 221, 186, 217, 217, 179, 215, 215, 174, 211, 211, 167, 208, 208, 162, 204, 204, 155, 201, 201, 150, 197, 197, 143, 192, 191, 135, 188, 188, 131, 182, 182, 124, 178, 178, 119, 172, 172, 113, 168, 168, 109, 161, 161, 103, 155, 155, 98, 151, 151, 94, 145, 145, 89, 141, 141, 86, 135, 135, 81, 131, 131, 77, 125, 125, 72, 119, 119, 68, 116, 116, 64, 110, 110, 60, 106, 106, 56, 100, 100, 52, 95, 95, 47, 91, 91, 44, 85, 85, 39, 82, 82, 36, 76, 76, 32, 73, 73, 29, 67, 67, 25, 62, 62, 21, 59, 59, 18, 54, 54, 15, 50, 51, 12, 46, 46, 8, 43, 43, 5, 38, 38, 0], shape(broc100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: broc25 = reshape([44, 26, 76, 43, 42, 93, 41, 57, 108, 41, 75, 125, 49, 94, 142, 67, 111, 155, 91, 130, 169, 113, 147, 181, 139, 167, 194, 165, 187, 208, 189, 205, 220, 215, 224, 233, 235, 238, 236, 236, 236, 219, 224, 224, 193, 212, 212, 170, 197, 197, 143, 176, 176, 117, 155, 155, 98, 133, 133, 79, 112, 112, 61, 93, 93, 45, 73, 73, 29, 55, 56, 16, 38, 38, 0], shape(broc25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: broc50 = reshape([44, 26, 76, 43, 33, 84, 43, 41, 91, 42, 49, 100, 41, 57, 108, 40, 65, 116, 41, 73, 124, 42, 81, 131, 48, 92, 140, 55, 101, 147, 65, 109, 154, 75, 118, 160, 86, 127, 166, 100, 137, 173, 111, 146, 179, 123, 155, 186, 134, 163, 192, 146, 172, 198, 160, 183, 205, 172, 192, 211, 184, 201, 218, 196, 210, 224, 208, 219, 230, 222, 229, 236, 231, 236, 237, 237, 239, 233, 237, 238, 225, 233, 233, 212, 228, 228, 200, 222, 222, 189, 216, 216, 177, 210, 210, 165, 201, 201, 150, 193, 193, 138, 184, 184, 126, 174, 174, 115, 163, 163, 105, 151, 151, 94, 141, 141, 86, 131, 131, 77, 121, 121, 69, 112, 112, 61, 100, 100, 52, 91, 91, 44, 82, 82, 36, 73, 73, 29, 64, 64, 22, 54, 54, 15, 46, 46, 8, 38, 38, 0], shape(broc50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: brocO = reshape([55, 47, 56, 54, 47, 57, 54, 47, 58, 54, 47, 59, 54, 47, 60, 54, 48, 61, 54, 48, 63, 54, 48, 64, 54, 48, 65, 54, 49, 67, 54, 49, 68, 54, 50, 70, 54, 50, 71, 54, 51, 73, 54, 51, 74, 54, 52, 76, 54, 53, 78, 54, 53, 80, 54, 54, 81, 54, 55, 83, 54, 56, 85, 54, 57, 87, 55, 58, 89, 55, 59, 91, 55, 60, 92, 55, 61, 94, 55, 63, 96, 56, 64, 98, 56, 65, 100, 56, 67, 102, 57, 68, 104, 57, 69, 106, 58, 71, 108, 58, 72, 111, 59, 74, 113, 59, 76, 115, 60, 77, 117, 61, 79, 119, 62, 81, 121, 62, 82, 123, 63, 84, 124, 64, 86, 126, 65, 87, 128, 66, 89, 130, 67, 91, 132, 68, 93, 134, 69, 94, 136, 71, 96, 138, 72, 98, 139, 73, 100, 141, 74, 102, 143, 76, 103, 144, 77, 105, 146, 79, 107, 148, 80, 109, 149, 82, 111, 151, 83, 112, 153, 85, 114, 154, 86, 116, 156, 88, 118, 157, 90, 120, 159, 91, 121, 160, 93, 123, 162, 95, 125, 163, 97, 127, 165, 99, 129, 166, 100, 130, 167, 102, 132, 169, 104, 134, 170, 106, 136, 171, 108, 137, 173, 110, 139, 174, 112, 141, 175, 114, 143, 177, 116, 144, 178, 118, 146, 179, 120, 148, 180, 122, 150, 182, 124, 151, 183, 126, 153, 184, 128, 155, 185, 130, 157, 186, 132, 158, 187, 134, 160, 189, 136, 162, 190, 138, 163, 191, 140, 165, 192, 142, 167, 193, 145, 168, 194, 147, 170, 195, 149, 172, 196, 151, 173, 197, 153, 175, 198, 155, 177, 199, 157, 178, 200, 159, 180, 200, 161, 181, 201, 163, 183, 202, 165, 184, 203, 167, 186, 204, 169, 187, 204, 171, 189, 205, 173, 190, 205, 175, 192, 206, 177, 193, 206, 179, 194, 207, 181, 196, 207, 183, 197, 208, 184, 198, 208, 186, 200, 208, 188, 201, 208, 189, 202, 208, 191, 203, 208, 193, 204, 208, 194, 205, 208, 196, 206, 208, 197, 207, 207, 198, 207, 207, 199, 208, 206, 201, 209, 206, 202, 209, 205, 203, 210, 204, 203, 210, 203, 204, 211, 203, 205, 211, 202, 206, 211, 200, 206, 211, 199, 207, 211, 198, 207, 211, 197, 207, 211, 195, 207, 211, 194, 207, 211, 192, 207, 211, 190, 207, 210, 189, 207, 210, 187, 207, 209, 185, 206, 208, 183, 206, 208, 181, 205, 207, 179, 205, 206, 177, 204, 205, 175, 203, 204, 173, 202, 203, 171, 201, 202, 169, 200, 201, 166, 199, 200, 164, 198, 198, 162, 197, 197, 160, 196, 196, 157, 194, 194, 155, 193, 193, 153, 191, 191, 150, 190, 190, 148, 188, 188, 146, 187, 187, 144, 185, 185, 141, 184, 183, 139, 182, 182, 137, 180, 180, 134, 179, 178, 132, 177, 176, 130, 175, 175, 127, 173, 173, 125, 171, 171, 123, 170, 169, 121, 168, 167, 119, 166, 165, 116, 164, 164, 114, 162, 162, 112, 160, 160, 110, 158, 158, 108, 157, 156, 106, 155, 154, 104, 153, 152, 102, 151, 150, 100, 149, 148, 98, 147, 146, 96, 145, 145, 94, 143, 143, 92, 141, 141, 90, 139, 139, 89, 137, 137, 87, 136, 135, 85, 134, 133, 83, 132, 131, 81, 130, 129, 80, 128, 127, 78, 126, 126, 76, 124, 124, 75, 123, 122, 73, 121, 120, 72, 119, 118, 70, 117, 116, 69, 115, 114, 67, 114, 113, 66, 112, 111, 65, 110, 109, 63, 108, 107, 62, 107, 105, 61, 105, 104, 59, 103, 102, 58, 102, 100, 57, 100, 98, 56, 98, 97, 55, 97, 95, 54, 95, 93, 53, 94, 92, 52, 92, 90, 51, 91, 89, 50, 89, 87, 49, 88, 85, 48, 86, 84, 47, 85, 82, 46, 84, 81, 46, 82, 79, 45, 81, 78, 45, 80, 77, 44, 79, 75, 43, 77, 74, 43, 76, 72, 43, 75, 71, 42, 74, 70, 42, 73, 69, 42, 72, 67, 41, 71, 66, 41, 70, 65, 41, 69, 64, 41, 68, 63, 41, 67, 62, 41, 66, 61, 41, 66, 60, 41, 65, 59, 41, 64, 58, 41, 63, 57, 41, 63, 56, 41, 62, 56, 42, 62, 55, 42, 61, 54, 42, 60, 53, 43, 60, 53, 43, 59, 52, 43, 59, 52, 44, 59, 51, 44, 58, 51, 45, 58, 50, 46, 57, 50, 46, 57, 49, 47, 57, 49, 48, 56, 48, 48, 56, 48, 49, 56, 48, 50, 56, 48, 51, 55, 47, 52, 55, 47, 53, 55, 47, 54, 55, 47, 55], shape(brocO), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: brocO10 = reshape([55, 47, 56, 56, 65, 100, 85, 114, 154, 138, 163, 191, 193, 204, 208, 202, 203, 171, 158, 158, 108, 107, 105, 61, 68, 63, 41, 55, 47, 55], shape(brocO10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: brocO100 = reshape([55, 47, 56, 54, 47, 59, 54, 48, 61, 54, 48, 65, 54, 49, 68, 54, 51, 73, 54, 52, 76, 54, 54, 81, 54, 57, 87, 55, 59, 91, 55, 63, 96, 56, 65, 100, 57, 69, 106, 58, 72, 111, 60, 77, 117, 62, 82, 123, 64, 86, 126, 67, 91, 132, 69, 94, 136, 73, 100, 141, 77, 105, 146, 80, 109, 149, 85, 114, 154, 88, 118, 157, 93, 123, 162, 97, 127, 165, 102, 132, 169, 108, 137, 173, 112, 141, 175, 118, 146, 179, 122, 150, 182, 128, 155, 185, 132, 158, 187, 138, 163, 191, 145, 168, 194, 149, 172, 196, 155, 177, 199, 159, 180, 200, 165, 184, 203, 169, 187, 204, 175, 192, 206, 181, 196, 207, 184, 198, 208, 189, 202, 208, 193, 204, 208, 197, 207, 207, 199, 208, 206, 203, 210, 204, 205, 211, 202, 206, 211, 199, 207, 211, 195, 207, 211, 192, 207, 210, 187, 206, 208, 181, 205, 206, 177, 202, 203, 171, 200, 201, 166, 197, 197, 160, 194, 194, 155, 190, 190, 148, 185, 185, 141, 182, 182, 137, 177, 176, 130, 173, 173, 125, 168, 167, 119, 164, 164, 114, 158, 158, 108, 153, 152, 102, 149, 148, 98, 143, 143, 92, 139, 139, 89, 134, 133, 83, 130, 129, 80, 124, 124, 75, 119, 118, 70, 115, 114, 67, 110, 109, 63, 107, 105, 61, 102, 100, 57, 98, 97, 55, 94, 92, 52, 89, 87, 49, 86, 84, 47, 82, 79, 45, 80, 77, 44, 76, 72, 43, 73, 69, 42, 71, 66, 41, 68, 63, 41, 66, 61, 41, 64, 58, 41, 63, 56, 41, 61, 54, 42, 59, 52, 43, 59, 51, 44, 57, 50, 46, 57, 49, 48, 56, 48, 50, 55, 47, 52, 55, 47, 55], shape(brocO100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: brocO25 = reshape([55, 47, 56, 54, 50, 70, 54, 57, 87, 58, 71, 108, 66, 89, 130, 79, 107, 148, 97, 127, 165, 116, 144, 178, 138, 163, 191, 161, 181, 201, 181, 196, 207, 198, 207, 207, 207, 211, 197, 205, 207, 179, 194, 194, 155, 179, 178, 132, 158, 158, 108, 137, 137, 87, 119, 118, 70, 100, 98, 56, 84, 81, 46, 72, 67, 41, 63, 56, 41, 58, 50, 46, 55, 47, 55], shape(brocO25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: brocO50 = reshape([55, 47, 56, 54, 48, 61, 54, 49, 68, 54, 53, 78, 54, 57, 87, 55, 63, 96, 57, 69, 106, 60, 77, 117, 65, 87, 128, 71, 96, 138, 77, 105, 146, 85, 114, 154, 93, 123, 162, 104, 134, 170, 114, 143, 177, 124, 151, 183, 134, 160, 189, 145, 168, 194, 157, 178, 200, 167, 186, 204, 177, 193, 206, 186, 200, 208, 194, 205, 208, 202, 209, 205, 206, 211, 200, 207, 211, 194, 207, 209, 185, 203, 204, 173, 198, 198, 162, 191, 191, 150, 184, 183, 139, 175, 175, 127, 164, 164, 114, 155, 154, 104, 145, 145, 94, 136, 135, 85, 126, 126, 76, 115, 114, 67, 107, 105, 61, 98, 97, 55, 91, 89, 50, 84, 81, 46, 76, 72, 43, 71, 66, 41, 66, 61, 41, 63, 56, 41, 60, 53, 43, 57, 50, 46, 56, 48, 50, 55, 47, 55], shape(brocO50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: buda = reshape([179, 1, 179, 179, 3, 178, 179, 5, 177, 179, 7, 176, 179, 9, 175, 179, 11, 174, 179, 13, 174, 179, 15, 173, 179, 17, 172, 179, 18, 171, 179, 20, 170, 179, 22, 169, 179, 23, 169, 179, 24, 168, 179, 26, 167, 179, 27, 166, 179, 28, 166, 179, 30, 165, 179, 31, 164, 179, 32, 164, 179, 33, 163, 179, 35, 162, 179, 36, 162, 179, 37, 161, 179, 38, 160, 179, 39, 160, 179, 40, 159, 179, 41, 159, 179, 43, 158, 179, 44, 158, 179, 45, 157, 179, 46, 157, 179, 47, 156, 179, 48, 156, 180, 49, 155, 180, 50, 155, 180, 51, 154, 180, 52, 154, 180, 53, 153, 180, 54, 153, 181, 55, 152, 181, 56, 152, 181, 57, 152, 181, 58, 151, 182, 59, 151, 182, 60, 150, 182, 61, 150, 182, 62, 150, 183, 63, 149, 183, 64, 149, 183, 65, 149, 184, 66, 148, 184, 67, 148, 184, 68, 148, 184, 69, 147, 185, 70, 147, 185, 71, 147, 185, 72, 146, 186, 73, 146, 186, 74, 146, 186, 75, 145, 187, 75, 145, 187, 76, 145, 187, 77, 144, 188, 78, 144, 188, 79, 144, 188, 80, 143, 188, 81, 143, 189, 82, 143, 189, 83, 143, 189, 84, 142, 190, 85, 142, 190, 85, 142, 190, 86, 141, 191, 87, 141, 191, 88, 141, 191, 89, 140, 191, 90, 140, 192, 91, 140, 192, 92, 140, 192, 92, 139, 193, 93, 139, 193, 94, 139, 193, 95, 138, 194, 96, 138, 194, 97, 138, 194, 98, 138, 194, 99, 137, 195, 99, 137, 195, 100, 137, 195, 101, 136, 196, 102, 136, 196, 103, 136, 196, 104, 136, 196, 105, 135, 197, 105, 135, 197, 106, 135, 197, 107, 134, 198, 108, 134, 198, 109, 134, 198, 110, 134, 198, 110, 133, 199, 111, 133, 199, 112, 133, 199, 113, 132, 199, 114, 132, 200, 115, 132, 200, 115, 132, 200, 116, 131, 201, 117, 131, 201, 118, 131, 201, 119, 131, 201, 120, 130, 202, 121, 130, 202, 121, 130, 202, 122, 129, 202, 123, 129, 203, 124, 129, 203, 125, 129, 203, 126, 128, 203, 126, 128, 204, 127, 128, 204, 128, 128, 204, 129, 127, 204, 130, 127, 205, 131, 127, 205, 132, 127, 205, 132, 126, 205, 133, 126, 206, 134, 126, 206, 135, 126, 206, 136, 126, 206, 137, 125, 207, 138, 125, 207, 138, 125, 207, 139, 125, 207, 140, 124, 207, 141, 124, 208, 142, 124, 208, 143, 124, 208, 144, 124, 208, 145, 123, 209, 145, 123, 209, 146, 123, 209, 147, 123, 209, 148, 122, 209, 149, 122, 210, 150, 122, 210, 151, 122, 210, 151, 122, 210, 152, 121, 210, 153, 121, 211, 154, 121, 211, 155, 121, 211, 156, 120, 211, 157, 120, 212, 158, 120, 212, 158, 120, 212, 159, 120, 212, 160, 119, 212, 161, 119, 213, 162, 119, 213, 163, 119, 213, 164, 119, 213, 165, 118, 214, 165, 118, 214, 166, 118, 214, 167, 118, 214, 168, 117, 214, 169, 117, 215, 170, 117, 215, 171, 117, 215, 172, 117, 215, 173, 116, 216, 173, 116, 216, 174, 116, 216, 175, 116, 216, 176, 115, 216, 177, 115, 217, 178, 115, 217, 179, 115, 217, 180, 115, 217, 181, 114, 218, 181, 114, 218, 182, 114, 218, 183, 114, 218, 184, 113, 218, 185, 113, 219, 186, 113, 219, 187, 113, 219, 188, 113, 219, 189, 112, 220, 190, 112, 220, 191, 112, 220, 191, 112, 220, 192, 111, 221, 193, 111, 221, 194, 111, 221, 195, 111, 221, 196, 110, 221, 197, 110, 222, 198, 110, 222, 199, 110, 222, 200, 110, 222, 201, 109, 223, 202, 109, 223, 202, 109, 223, 203, 109, 223, 204, 108, 224, 205, 108, 224, 206, 108, 224, 207, 108, 224, 208, 107, 224, 209, 107, 225, 210, 107, 225, 211, 107, 225, 212, 107, 226, 213, 106, 226, 214, 106, 226, 215, 106, 226, 216, 106, 227, 217, 105, 227, 218, 105, 227, 219, 105, 228, 220, 105, 228, 221, 105, 229, 222, 104, 229, 223, 104, 229, 224, 104, 230, 225, 104, 231, 226, 104, 231, 227, 104, 232, 228, 103, 232, 229, 103, 233, 230, 103, 234, 231, 103, 235, 232, 103, 235, 233, 103, 236, 235, 103, 237, 236, 103, 238, 237, 103, 239, 238, 102, 240, 239, 102, 241, 240, 102, 242, 242, 102, 243, 243, 102, 244, 244, 102, 246, 245, 102, 247, 246, 102, 248, 248, 102, 249, 249, 102, 250, 250, 102, 251, 251, 102, 253, 253, 102, 254, 254, 102, 255, 255, 102], shape(buda), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: buda10 = reshape([179, 1, 179, 179, 43, 158, 185, 72, 146, 194, 97, 138, 202, 121, 130, 209, 145, 123, 215, 170, 117, 221, 195, 111, 229, 223, 104, 255, 255, 102], shape(buda10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: buda100 = reshape([179, 1, 179, 179, 7, 176, 179, 11, 174, 179, 17, 172, 179, 20, 170, 179, 24, 168, 179, 27, 166, 179, 31, 164, 179, 35, 162, 179, 37, 161, 179, 40, 159, 179, 43, 158, 179, 46, 157, 179, 48, 156, 180, 51, 154, 180, 54, 153, 181, 56, 152, 182, 59, 151, 182, 61, 150, 183, 64, 149, 184, 67, 148, 184, 69, 147, 185, 72, 146, 186, 74, 146, 187, 76, 145, 188, 78, 144, 188, 81, 143, 189, 84, 142, 190, 85, 142, 191, 88, 141, 191, 90, 140, 192, 92, 139, 193, 94, 139, 194, 97, 138, 195, 99, 137, 195, 101, 136, 196, 104, 136, 197, 105, 135, 198, 108, 134, 198, 110, 134, 199, 112, 133, 200, 115, 132, 200, 116, 131, 201, 119, 131, 202, 121, 130, 202, 123, 129, 203, 125, 129, 204, 127, 128, 204, 130, 127, 205, 132, 127, 206, 134, 126, 206, 136, 126, 207, 138, 125, 207, 141, 124, 208, 143, 124, 209, 145, 123, 209, 147, 123, 210, 150, 122, 210, 151, 122, 211, 154, 121, 211, 157, 120, 212, 158, 120, 212, 161, 119, 213, 163, 119, 214, 165, 118, 214, 167, 118, 215, 170, 117, 215, 173, 116, 216, 174, 116, 216, 177, 115, 217, 179, 115, 218, 181, 114, 218, 183, 114, 219, 186, 113, 219, 189, 112, 220, 191, 112, 221, 193, 111, 221, 195, 111, 222, 198, 110, 222, 200, 110, 223, 202, 109, 224, 205, 108, 224, 207, 108, 225, 210, 107, 225, 212, 107, 226, 215, 106, 227, 218, 105, 228, 220, 105, 229, 223, 104, 230, 225, 104, 232, 228, 103, 233, 230, 103, 235, 233, 103, 238, 237, 103, 240, 239, 102, 243, 243, 102, 246, 245, 102, 249, 249, 102, 251, 251, 102, 255, 255, 102], shape(buda100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: buda25 = reshape([179, 1, 179, 179, 22, 169, 179, 35, 162, 179, 47, 156, 181, 58, 151, 184, 68, 148, 188, 78, 144, 191, 87, 141, 194, 97, 138, 197, 106, 135, 200, 115, 132, 203, 124, 129, 205, 133, 126, 208, 142, 124, 210, 151, 122, 212, 160, 119, 215, 170, 117, 217, 180, 115, 219, 189, 112, 222, 199, 110, 224, 209, 107, 227, 219, 105, 233, 230, 103, 242, 242, 102, 255, 255, 102], shape(buda25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: buda50 = reshape([179, 1, 179, 179, 11, 174, 179, 20, 170, 179, 28, 166, 179, 35, 162, 179, 40, 159, 179, 46, 157, 180, 51, 154, 181, 57, 152, 182, 62, 150, 184, 67, 148, 185, 72, 146, 187, 76, 145, 189, 82, 143, 190, 86, 141, 192, 91, 140, 193, 95, 138, 195, 99, 137, 196, 105, 135, 198, 109, 134, 199, 113, 132, 201, 117, 131, 202, 121, 130, 203, 126, 128, 205, 131, 127, 206, 135, 126, 207, 139, 125, 208, 145, 123, 209, 149, 122, 210, 153, 121, 212, 158, 120, 213, 162, 119, 214, 167, 118, 215, 172, 117, 216, 176, 115, 217, 181, 114, 218, 185, 113, 220, 191, 112, 221, 195, 111, 222, 200, 110, 223, 204, 108, 224, 209, 107, 226, 215, 106, 228, 220, 105, 230, 225, 104, 233, 230, 103, 237, 236, 103, 243, 243, 102, 249, 249, 102, 255, 255, 102], shape(buda50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: budaS = reshape([179, 1, 179, 255, 255, 102, 205, 133, 126, 188, 78, 144, 220, 190, 112, 179, 47, 156, 212, 161, 119, 197, 106, 135, 227, 219, 105, 192, 92, 139, 179, 28, 166, 209, 147, 123, 201, 120, 130, 183, 63, 149, 237, 236, 103, 216, 175, 116, 223, 204, 108, 181, 55, 152, 218, 182, 114, 179, 17, 172, 221, 197, 110, 199, 113, 132, 231, 227, 104, 246, 245, 102, 195, 99, 137, 179, 38, 160, 211, 154, 121, 207, 140, 124, 203, 126, 128, 185, 71, 147, 190, 85, 142, 214, 168, 117, 225, 211, 107, 221, 193, 111, 179, 23, 169, 198, 110, 134, 250, 250, 102, 200, 116, 131, 191, 89, 140, 212, 158, 120, 226, 215, 106, 219, 186, 113, 204, 130, 127, 215, 172, 117, 213, 165, 118, 194, 96, 138, 229, 223, 104, 196, 103, 136, 241, 240, 102, 210, 151, 122, 179, 33, 163, 182, 59, 151, 179, 43, 158, 202, 123, 129, 179, 9, 175, 206, 137, 125, 234, 231, 103, 208, 144, 124, 222, 201, 109, 186, 75, 145, 184, 67, 148, 217, 179, 115, 189, 82, 143, 180, 51, 154, 224, 207, 108, 179, 26, 167, 179, 20, 170, 192, 91, 140, 183, 65, 149, 216, 173, 116, 232, 229, 103, 198, 108, 134, 179, 45, 157, 222, 199, 110, 205, 132, 127, 216, 177, 115, 215, 170, 117, 201, 118, 131, 213, 163, 119, 212, 159, 120, 207, 138, 125, 182, 61, 150, 206, 135, 126, 221, 195, 111, 199, 111, 133, 220, 191, 112, 217, 181, 114, 248, 248, 102, 189, 84, 142, 193, 94, 139, 195, 101, 136, 179, 5, 177, 211, 156, 120, 209, 145, 123, 194, 98, 138, 200, 115, 132, 203, 125, 129, 187, 76, 145, 181, 57, 152, 179, 40, 159], shape(budaS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: bukavu = reshape([26, 51, 51, 26, 52, 53, 26, 53, 55, 26, 53, 57, 27, 54, 59, 27, 55, 61, 27, 56, 63, 27, 57, 65, 27, 58, 67, 28, 59, 69, 28, 60, 71, 28, 61, 73, 28, 62, 76, 29, 62, 78, 29, 63, 80, 29, 64, 82, 30, 66, 85, 30, 67, 87, 30, 68, 90, 30, 69, 92, 31, 70, 95, 31, 71, 98, 31, 72, 101, 32, 74, 104, 32, 75, 107, 32, 76, 110, 33, 78, 113, 33, 79, 117, 34, 81, 120, 34, 82, 123, 34, 84, 127, 35, 85, 130, 35, 87, 134, 36, 89, 137, 36, 91, 140, 37, 92, 143, 37, 94, 146, 38, 96, 149, 39, 98, 151, 39, 100, 154, 40, 102, 156, 41, 104, 159, 41, 105, 161, 42, 107, 163, 42, 109, 166, 43, 111, 168, 44, 113, 170, 44, 115, 173, 45, 117, 175, 45, 118, 177, 46, 120, 180, 47, 122, 182, 47, 124, 184, 48, 126, 186, 49, 127, 189, 50, 129, 191, 50, 131, 192, 52, 133, 194, 53, 135, 196, 54, 137, 197, 56, 138, 198, 58, 140, 198, 59, 142, 199, 61, 144, 199, 63, 146, 200, 65, 147, 200, 67, 149, 200, 69, 151, 200, 71, 153, 200, 73, 154, 200, 75, 156, 200, 76, 158, 201, 78, 160, 201, 80, 161, 201, 82, 163, 201, 84, 165, 201, 86, 166, 201, 88, 168, 201, 89, 170, 201, 91, 171, 202, 93, 173, 202, 95, 174, 202, 97, 176, 202, 98, 178, 202, 100, 179, 202, 102, 181, 202, 104, 183, 202, 106, 184, 203, 107, 186, 203, 109, 187, 203, 111, 189, 203, 113, 191, 203, 114, 192, 203, 116, 194, 203, 118, 195, 203, 120, 197, 204, 122, 199, 204, 124, 200, 204, 127, 202, 204, 129, 204, 205, 132, 205, 205, 135, 207, 206, 138, 209, 207, 142, 211, 208, 146, 213, 209, 149, 215, 209, 153, 217, 210, 157, 218, 211, 160, 220, 212, 164, 222, 213, 168, 224, 214, 172, 226, 215, 175, 228, 216, 179, 230, 217, 182, 231, 218, 186, 233, 219, 190, 235, 220, 193, 237, 220, 197, 239, 221, 200, 240, 222, 204, 242, 223, 207, 244, 224, 211, 246, 225, 214, 247, 226, 218, 249, 227, 221, 251, 227, 224, 252, 228, 228, 254, 229, 1, 64, 38, 2, 65, 37, 3, 66, 36, 4, 68, 35, 5, 69, 34, 6, 70, 33, 7, 71, 32, 8, 73, 31, 9, 74, 30, 11, 75, 29, 12, 77, 28, 14, 78, 27, 15, 80, 26, 17, 81, 25, 19, 83, 24, 21, 84, 23, 23, 86, 22, 26, 88, 21, 28, 89, 20, 31, 91, 19, 34, 93, 19, 37, 94, 18, 40, 96, 18, 43, 98, 18, 47, 99, 18, 50, 101, 19, 54, 102, 19, 57, 103, 20, 61, 105, 21, 64, 106, 22, 68, 107, 23, 71, 108, 25, 75, 109, 26, 78, 110, 27, 82, 111, 29, 85, 111, 30, 88, 112, 32, 91, 113, 33, 94, 113, 35, 97, 114, 36, 100, 114, 37, 103, 115, 39, 105, 115, 40, 108, 116, 41, 111, 116, 43, 113, 117, 44, 116, 117, 45, 118, 118, 46, 120, 118, 47, 123, 118, 49, 125, 119, 50, 127, 119, 51, 130, 120, 52, 132, 120, 53, 134, 120, 54, 136, 121, 56, 139, 121, 57, 141, 122, 58, 143, 122, 59, 145, 123, 60, 147, 123, 62, 150, 124, 63, 152, 124, 64, 154, 125, 66, 156, 126, 67, 158, 126, 69, 161, 127, 71, 163, 128, 73, 165, 130, 75, 167, 131, 77, 170, 132, 79, 172, 134, 82, 174, 135, 84, 176, 137, 87, 178, 139, 90, 180, 141, 93, 182, 143, 96, 183, 145, 99, 185, 147, 102, 187, 149, 105, 188, 151, 108, 190, 153, 111, 191, 156, 114, 192, 158, 118, 194, 160, 121, 195, 162, 124, 196, 165, 127, 197, 167, 130, 198, 169, 133, 200, 172, 137, 201, 174, 140, 202, 176, 143, 203, 178, 146, 204, 181, 150, 205, 183, 153, 206, 185, 156, 207, 187, 160, 208, 189, 163, 210, 192, 166, 211, 194, 170, 212, 196, 173, 213, 198, 176, 214, 200, 180, 215, 202, 183, 216, 204, 186, 217, 205, 190, 218, 207, 193, 219, 209, 196, 220, 211, 199, 221, 212, 202, 222, 214, 205, 223, 215, 208, 224, 217, 210, 225, 218, 213, 226, 219, 216, 227, 221, 219, 227, 222, 221, 228, 223, 224, 229, 225, 227, 230, 226, 229, 231, 227, 232, 232, 229, 235, 233, 230, 237, 233, 231, 240, 234, 233, 243, 235, 234, 246, 236, 236, 249, 237, 237, 252], shape(bukavu), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: bukavu10 = reshape([26, 51, 51, 34, 81, 120, 52, 133, 194, 102, 181, 202, 179, 230, 217, 19, 83, 24, 105, 115, 40, 170, 132, 79, 211, 194, 170, 237, 237, 252], shape(bukavu10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: bukavu100 = reshape([26, 51, 51, 26, 53, 57, 27, 55, 61, 27, 58, 67, 28, 60, 71, 29, 62, 78, 29, 64, 82, 30, 68, 90, 31, 71, 98, 32, 74, 104, 33, 78, 113, 34, 81, 120, 35, 85, 130, 36, 89, 137, 37, 94, 146, 39, 100, 154, 41, 104, 159, 42, 109, 166, 44, 113, 170, 45, 118, 177, 47, 124, 184, 49, 127, 189, 52, 133, 194, 54, 137, 197, 59, 142, 199, 63, 146, 200, 69, 151, 200, 75, 156, 200, 78, 160, 201, 84, 165, 201, 88, 168, 201, 93, 173, 202, 97, 176, 202, 102, 181, 202, 107, 186, 203, 111, 189, 203, 116, 194, 203, 120, 197, 204, 127, 202, 204, 132, 205, 205, 142, 211, 208, 153, 217, 210, 160, 220, 212, 172, 226, 215, 179, 230, 217, 190, 235, 220, 197, 239, 221, 207, 244, 224, 218, 249, 227, 224, 252, 228, 2, 65, 37, 4, 68, 35, 7, 71, 32, 11, 75, 29, 14, 78, 27, 19, 83, 24, 23, 86, 22, 31, 91, 19, 37, 94, 18, 47, 99, 18, 57, 103, 20, 64, 106, 22, 75, 109, 26, 82, 111, 29, 91, 113, 33, 97, 114, 36, 105, 115, 40, 113, 117, 44, 118, 118, 46, 125, 119, 50, 130, 120, 52, 136, 121, 56, 141, 122, 58, 147, 123, 62, 154, 125, 66, 158, 126, 69, 165, 130, 75, 170, 132, 79, 176, 137, 87, 180, 141, 93, 185, 147, 102, 190, 153, 111, 192, 158, 118, 196, 165, 127, 198, 169, 133, 202, 176, 143, 205, 183, 153, 207, 187, 160, 211, 194, 170, 213, 198, 176, 216, 204, 186, 218, 207, 193, 221, 212, 202, 224, 217, 210, 226, 219, 216, 228, 223, 224, 230, 226, 229, 233, 230, 237, 234, 233, 243, 237, 237, 252], shape(bukavu100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: bukavu25 = reshape([26, 51, 51, 28, 61, 73, 31, 71, 98, 35, 87, 134, 42, 107, 163, 48, 126, 186, 63, 146, 200, 82, 163, 201, 102, 181, 202, 122, 199, 204, 153, 217, 210, 193, 237, 220, 1, 64, 38, 12, 77, 28, 37, 94, 18, 71, 108, 25, 105, 115, 40, 132, 120, 53, 154, 125, 66, 178, 139, 90, 195, 162, 124, 206, 185, 156, 218, 207, 193, 227, 222, 221, 237, 237, 252], shape(bukavu25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: bukavu50 = reshape([26, 51, 51, 27, 55, 61, 28, 60, 71, 30, 66, 85, 31, 71, 98, 33, 78, 113, 35, 85, 130, 37, 94, 146, 41, 105, 161, 44, 115, 173, 47, 124, 184, 52, 133, 194, 59, 142, 199, 71, 153, 200, 80, 161, 201, 89, 170, 201, 98, 178, 202, 107, 186, 203, 118, 195, 203, 129, 204, 205, 146, 213, 209, 164, 222, 213, 182, 231, 218, 204, 242, 223, 221, 251, 227, 3, 66, 36, 8, 73, 31, 17, 81, 25, 28, 89, 20, 43, 98, 18, 61, 105, 21, 78, 110, 27, 97, 114, 36, 111, 116, 43, 123, 118, 49, 134, 120, 54, 145, 123, 60, 158, 126, 69, 170, 132, 79, 180, 141, 93, 188, 151, 108, 195, 162, 124, 202, 176, 143, 207, 187, 160, 213, 198, 176, 218, 207, 193, 223, 215, 208, 228, 223, 224, 233, 230, 237, 237, 237, 252], shape(bukavu50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: cork = reshape([44, 25, 76, 44, 27, 78, 44, 29, 79, 43, 30, 81, 43, 32, 83, 43, 34, 84, 43, 35, 86, 43, 37, 87, 43, 38, 89, 43, 40, 91, 43, 41, 92, 42, 43, 94, 42, 44, 95, 42, 46, 97, 42, 47, 98, 42, 49, 100, 42, 50, 101, 41, 52, 103, 41, 54, 104, 41, 55, 106, 41, 57, 107, 41, 58, 109, 40, 60, 110, 40, 61, 112, 40, 63, 114, 40, 64, 115, 40, 66, 117, 40, 67, 118, 40, 69, 120, 40, 70, 121, 40, 72, 123, 40, 74, 124, 40, 75, 126, 40, 77, 127, 41, 79, 129, 41, 80, 130, 42, 82, 132, 42, 83, 133, 43, 85, 135, 44, 87, 136, 45, 89, 138, 46, 90, 139, 47, 92, 141, 48, 94, 142, 50, 95, 143, 51, 97, 145, 53, 99, 146, 54, 100, 147, 56, 102, 149, 58, 104, 150, 60, 105, 151, 61, 107, 152, 63, 108, 153, 65, 110, 155, 67, 112, 156, 69, 113, 157, 71, 115, 158, 73, 116, 159, 75, 118, 160, 76, 119, 161, 78, 121, 162, 80, 122, 163, 82, 124, 164, 84, 125, 165, 86, 127, 166, 88, 128, 167, 90, 130, 168, 92, 131, 169, 94, 133, 170, 96, 134, 172, 98, 136, 173, 100, 137, 174, 102, 139, 175, 104, 141, 176, 106, 142, 177, 109, 144, 178, 111, 146, 179, 113, 147, 180, 115, 149, 182, 117, 151, 183, 119, 152, 184, 122, 154, 185, 124, 156, 186, 126, 157, 187, 129, 159, 189, 131, 161, 190, 133, 163, 191, 136, 164, 192, 138, 166, 194, 140, 168, 195, 143, 170, 196, 145, 172, 197, 148, 174, 199, 150, 175, 200, 153, 177, 201, 155, 179, 203, 158, 181, 204, 160, 183, 205, 163, 185, 207, 165, 187, 208, 168, 189, 209, 170, 191, 211, 173, 193, 212, 176, 195, 213, 178, 197, 215, 181, 199, 216, 184, 201, 218, 186, 203, 219, 189, 205, 220, 192, 207, 222, 194, 209, 223, 197, 211, 225, 200, 213, 226, 202, 215, 227, 205, 217, 229, 208, 219, 230, 210, 221, 231, 213, 223, 232, 215, 225, 233, 218, 227, 234, 220, 229, 235, 222, 230, 236, 224, 232, 237, 226, 233, 237, 227, 235, 237, 229, 236, 237, 230, 237, 237, 230, 237, 237, 230, 237, 236, 230, 238, 235, 230, 238, 234, 229, 237, 232, 228, 237, 231, 227, 236, 229, 226, 235, 227, 224, 234, 225, 222, 233, 223, 220, 232, 221, 218, 231, 219, 216, 229, 217, 214, 228, 214, 212, 226, 212, 210, 225, 210, 207, 223, 207, 205, 222, 205, 203, 220, 203, 200, 219, 200, 198, 217, 198, 196, 215, 195, 193, 214, 193, 191, 212, 191, 188, 211, 188, 186, 209, 186, 183, 207, 183, 181, 206, 181, 178, 204, 178, 176, 202, 176, 174, 201, 173, 171, 199, 171, 169, 197, 168, 166, 196, 166, 164, 194, 163, 161, 192, 161, 159, 191, 159, 156, 189, 156, 154, 187, 154, 151, 186, 151, 149, 184, 149, 146, 183, 146, 144, 181, 144, 142, 179, 141, 139, 178, 139, 137, 176, 136, 134, 174, 134, 132, 173, 132, 130, 171, 129, 127, 170, 127, 125, 168, 125, 123, 167, 122, 120, 165, 120, 118, 163, 118, 116, 162, 115, 113, 160, 113, 111, 159, 111, 109, 157, 108, 107, 156, 106, 104, 154, 104, 102, 153, 102, 100, 151, 100, 98, 150, 97, 96, 149, 95, 93, 147, 93, 91, 146, 91, 89, 144, 89, 87, 143, 87, 85, 141, 85, 83, 140, 82, 81, 139, 80, 79, 137, 78, 77, 136, 76, 75, 134, 74, 73, 133, 72, 71, 132, 70, 69, 130, 68, 67, 129, 66, 65, 127, 64, 63, 126, 62, 61, 125, 60, 59, 123, 58, 57, 122, 56, 55, 120, 54, 53, 119, 52, 51, 117, 50, 49, 116, 48, 47, 114, 46, 45, 112, 44, 43, 111, 42, 42, 109, 40, 40, 107, 38, 38, 106, 37, 37, 104, 35, 35, 102, 33, 34, 100, 32, 32, 99, 30, 31, 97, 29, 30, 95, 27, 29, 93, 26, 28, 91, 25, 27, 89, 23, 26, 88, 22, 25, 86, 21, 24, 84, 20, 24, 82, 19, 23, 80, 18, 23, 78, 18, 22, 76, 17, 22, 75, 16, 21, 73, 15, 21, 71, 15, 20, 69, 14, 20, 67, 13, 19, 65, 13, 19, 64, 12, 19, 62, 12, 18, 60, 11, 18, 58, 10, 18, 56, 10, 17, 55, 9, 17, 53, 8, 17, 51, 8, 16, 49, 7, 16, 48, 6, 16, 46, 5, 16, 44, 5, 15, 43, 4, 15, 41, 3], shape(cork), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: cork10 = reshape([44, 25, 76, 40, 69, 120, 73, 116, 159, 131, 161, 190, 202, 215, 227, 210, 225, 210, 142, 179, 141, 79, 137, 78, 28, 91, 25, 15, 41, 3], shape(cork10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: cork100 = reshape([44, 25, 76, 43, 30, 81, 43, 34, 84, 43, 38, 89, 43, 41, 92, 42, 46, 97, 42, 49, 100, 41, 54, 104, 41, 58, 109, 40, 61, 112, 40, 66, 117, 40, 69, 120, 40, 74, 124, 40, 77, 127, 42, 82, 132, 44, 87, 136, 46, 90, 139, 50, 95, 143, 53, 99, 146, 58, 104, 150, 63, 108, 153, 67, 112, 156, 73, 116, 159, 76, 119, 161, 82, 124, 164, 86, 127, 166, 92, 131, 169, 98, 136, 173, 102, 139, 175, 109, 144, 178, 113, 147, 180, 119, 152, 184, 124, 156, 186, 131, 161, 190, 138, 166, 194, 143, 170, 196, 150, 175, 200, 155, 179, 203, 163, 185, 207, 168, 189, 209, 176, 195, 213, 184, 201, 218, 189, 205, 220, 197, 211, 225, 202, 215, 227, 210, 221, 231, 215, 225, 233, 222, 230, 236, 227, 235, 237, 230, 237, 237, 230, 238, 235, 229, 237, 232, 226, 235, 227, 220, 232, 221, 216, 229, 217, 210, 225, 210, 205, 222, 205, 198, 217, 198, 193, 214, 193, 186, 209, 186, 178, 204, 178, 174, 201, 173, 166, 196, 166, 161, 192, 161, 154, 187, 154, 149, 184, 149, 142, 179, 141, 134, 174, 134, 130, 171, 129, 123, 167, 122, 118, 163, 118, 111, 159, 111, 107, 156, 106, 100, 151, 100, 93, 147, 93, 89, 144, 89, 83, 140, 82, 79, 137, 78, 73, 133, 72, 69, 130, 68, 63, 126, 62, 57, 122, 56, 53, 119, 52, 47, 114, 46, 43, 111, 42, 38, 106, 37, 34, 100, 32, 31, 97, 29, 28, 91, 25, 26, 88, 22, 24, 82, 19, 23, 78, 18, 21, 73, 15, 20, 67, 13, 19, 64, 12, 18, 58, 10, 17, 55, 9, 16, 49, 7, 16, 46, 5, 15, 41, 3], shape(cork100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: cork25 = reshape([44, 25, 76, 42, 43, 94, 41, 58, 109, 40, 75, 126, 48, 94, 142, 65, 110, 155, 86, 127, 166, 106, 142, 177, 131, 161, 190, 158, 181, 204, 184, 201, 218, 213, 223, 232, 230, 237, 236, 218, 231, 219, 193, 214, 193, 169, 197, 168, 142, 179, 141, 116, 162, 115, 93, 147, 93, 71, 132, 70, 49, 116, 48, 32, 99, 30, 23, 78, 18, 18, 60, 11, 15, 41, 3], shape(cork25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: cork50 = reshape([44, 25, 76, 43, 34, 84, 43, 41, 92, 42, 50, 101, 41, 58, 109, 40, 66, 117, 40, 74, 124, 42, 82, 132, 47, 92, 141, 54, 100, 147, 63, 108, 153, 73, 116, 159, 82, 124, 164, 94, 133, 170, 104, 141, 176, 115, 149, 182, 126, 157, 187, 138, 166, 194, 153, 177, 201, 165, 187, 208, 178, 197, 215, 192, 207, 222, 205, 217, 229, 220, 229, 235, 229, 236, 237, 230, 238, 234, 224, 234, 225, 212, 226, 212, 200, 219, 200, 188, 211, 188, 176, 202, 176, 164, 194, 163, 149, 184, 149, 137, 176, 136, 125, 168, 125, 113, 160, 113, 102, 153, 102, 89, 144, 89, 79, 137, 78, 69, 130, 68, 59, 123, 58, 49, 116, 48, 38, 106, 37, 31, 97, 29, 26, 88, 22, 23, 78, 18, 20, 69, 14, 18, 58, 10, 16, 49, 7, 15, 41, 3], shape(cork50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: corkO = reshape([63, 62, 58, 63, 62, 59, 63, 62, 60, 63, 61, 61, 62, 61, 62, 62, 61, 63, 62, 61, 64, 62, 61, 65, 62, 61, 66, 62, 61, 67, 62, 61, 68, 62, 61, 69, 62, 61, 70, 62, 61, 71, 62, 61, 72, 62, 61, 73, 62, 61, 75, 62, 61, 76, 62, 62, 77, 62, 62, 79, 62, 63, 80, 62, 63, 82, 62, 64, 83, 62, 64, 85, 62, 65, 86, 62, 65, 88, 62, 66, 90, 62, 67, 91, 62, 68, 93, 62, 69, 95, 63, 70, 97, 63, 71, 98, 63, 72, 100, 64, 73, 102, 64, 74, 104, 64, 75, 106, 65, 76, 108, 65, 78, 110, 66, 79, 112, 66, 80, 114, 67, 82, 116, 68, 83, 118, 68, 85, 120, 69, 86, 122, 70, 88, 124, 71, 89, 126, 71, 91, 128, 72, 93, 130, 73, 94, 132, 74, 96, 134, 75, 98, 135, 77, 99, 137, 78, 101, 139, 79, 103, 141, 80, 105, 143, 81, 106, 145, 83, 108, 146, 84, 110, 148, 86, 112, 150, 87, 113, 151, 88, 115, 153, 90, 117, 155, 92, 119, 156, 93, 120, 158, 95, 122, 159, 96, 124, 161, 98, 126, 162, 100, 127, 164, 101, 129, 165, 103, 131, 166, 105, 133, 168, 106, 134, 169, 108, 136, 171, 110, 138, 172, 112, 140, 173, 114, 141, 174, 115, 143, 176, 117, 145, 177, 119, 146, 178, 121, 148, 179, 123, 150, 180, 124, 151, 182, 126, 153, 183, 128, 155, 184, 130, 156, 185, 132, 158, 186, 134, 160, 187, 135, 161, 188, 137, 163, 189, 139, 164, 190, 141, 166, 191, 143, 167, 192, 144, 169, 192, 146, 171, 193, 148, 172, 194, 150, 174, 195, 151, 175, 195, 153, 177, 196, 154, 178, 197, 156, 179, 197, 158, 181, 198, 159, 182, 198, 161, 184, 199, 162, 185, 199, 163, 186, 199, 165, 187, 200, 166, 189, 200, 167, 190, 200, 168, 191, 200, 169, 192, 200, 170, 193, 200, 171, 194, 200, 172, 195, 200, 173, 196, 200, 174, 197, 199, 174, 198, 199, 175, 198, 199, 175, 199, 198, 176, 200, 197, 176, 200, 197, 176, 201, 196, 176, 201, 195, 176, 202, 194, 176, 202, 193, 176, 202, 192, 176, 202, 191, 176, 202, 190, 175, 203, 189, 175, 203, 188, 174, 202, 187, 173, 202, 185, 173, 202, 184, 172, 202, 182, 171, 202, 181, 170, 201, 179, 169, 201, 178, 168, 200, 176, 167, 200, 175, 166, 199, 173, 165, 199, 171, 163, 198, 170, 162, 197, 168, 161, 196, 166, 159, 196, 164, 158, 195, 163, 156, 194, 161, 155, 193, 159, 153, 192, 157, 152, 191, 155, 150, 190, 153, 149, 189, 151, 147, 188, 149, 145, 187, 147, 144, 186, 145, 142, 185, 143, 140, 183, 141, 139, 182, 139, 137, 181, 137, 135, 180, 135, 134, 178, 133, 132, 177, 131, 130, 176, 129, 128, 174, 127, 127, 173, 125, 125, 172, 123, 123, 170, 121, 122, 169, 119, 120, 167, 117, 118, 166, 115, 117, 164, 113, 115, 163, 111, 113, 161, 108, 112, 159, 106, 110, 158, 104, 108, 156, 102, 107, 154, 100, 105, 153, 98, 104, 151, 96, 102, 149, 94, 101, 148, 92, 99, 146, 90, 98, 144, 88, 96, 142, 86, 95, 141, 84, 94, 139, 82, 92, 137, 80, 91, 135, 78, 90, 134, 76, 89, 132, 74, 87, 130, 73, 86, 128, 71, 85, 127, 69, 84, 125, 68, 83, 123, 66, 82, 121, 65, 81, 120, 63, 80, 118, 62, 79, 116, 60, 79, 115, 59, 78, 113, 58, 77, 111, 56, 76, 110, 55, 76, 108, 54, 75, 107, 53, 74, 105, 52, 74, 104, 51, 73, 102, 50, 73, 101, 50, 72, 100, 49, 72, 98, 48, 71, 97, 48, 71, 96, 47, 70, 94, 47, 70, 93, 46, 70, 92, 46, 69, 91, 45, 69, 89, 45, 69, 88, 45, 69, 87, 45, 68, 86, 44, 68, 85, 44, 68, 84, 44, 68, 83, 44, 67, 82, 44, 67, 81, 44, 67, 80, 44, 67, 79, 44, 67, 79, 44, 66, 78, 45, 66, 77, 45, 66, 76, 45, 66, 75, 45, 66, 75, 46, 66, 74, 46, 66, 73, 46, 65, 72, 47, 65, 72, 47, 65, 71, 47, 65, 71, 48, 65, 70, 48, 65, 69, 49, 65, 69, 49, 65, 68, 50, 64, 68, 50, 64, 67, 51, 64, 67, 51, 64, 66, 52, 64, 66, 52, 64, 65, 53, 64, 65, 54, 64, 64, 54, 63, 64, 55, 63, 63, 56, 63, 63, 56, 63, 63, 57, 63, 62, 58], shape(corkO), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: corkO10 = reshape([63, 62, 58, 62, 68, 93, 84, 110, 148, 132, 158, 186, 173, 196, 200, 161, 196, 166, 115, 163, 111, 79, 115, 59, 67, 79, 44, 63, 62, 58], shape(corkO10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: corkO100 = reshape([63, 62, 58, 63, 61, 61, 62, 61, 63, 62, 61, 66, 62, 61, 68, 62, 61, 71, 62, 61, 73, 62, 62, 77, 62, 63, 82, 62, 64, 85, 62, 66, 90, 62, 68, 93, 63, 71, 98, 64, 73, 102, 65, 76, 108, 66, 80, 114, 68, 83, 118, 70, 88, 124, 71, 91, 128, 74, 96, 134, 78, 101, 139, 80, 105, 143, 84, 110, 148, 87, 113, 151, 92, 119, 156, 95, 122, 159, 100, 127, 164, 105, 133, 168, 108, 136, 171, 114, 141, 174, 117, 145, 177, 123, 150, 180, 126, 153, 183, 132, 158, 186, 137, 163, 189, 141, 166, 191, 146, 171, 193, 150, 174, 195, 154, 178, 197, 158, 181, 198, 162, 185, 199, 166, 189, 200, 168, 191, 200, 171, 194, 200, 173, 196, 200, 175, 198, 199, 176, 200, 197, 176, 201, 195, 176, 202, 192, 176, 202, 190, 174, 202, 187, 173, 202, 184, 170, 201, 179, 167, 200, 175, 165, 199, 171, 161, 196, 166, 158, 195, 163, 153, 192, 157, 150, 190, 153, 145, 187, 147, 140, 183, 141, 137, 181, 137, 132, 177, 131, 128, 174, 127, 123, 170, 121, 120, 167, 117, 115, 163, 111, 110, 158, 104, 107, 154, 100, 102, 149, 94, 99, 146, 90, 95, 141, 84, 92, 137, 80, 89, 132, 74, 85, 127, 69, 83, 123, 66, 80, 118, 62, 79, 115, 59, 76, 110, 55, 75, 107, 53, 73, 102, 50, 72, 98, 48, 71, 96, 47, 70, 92, 46, 69, 89, 45, 68, 86, 44, 68, 83, 44, 67, 81, 44, 67, 79, 44, 66, 77, 45, 66, 75, 46, 66, 73, 46, 65, 71, 47, 65, 69, 49, 65, 68, 50, 64, 67, 51, 64, 66, 52, 64, 64, 54, 63, 63, 56, 63, 62, 58], shape(corkO100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: corkO25 = reshape([63, 62, 58, 62, 61, 69, 62, 63, 82, 63, 72, 100, 69, 86, 122, 79, 103, 141, 95, 122, 159, 112, 140, 173, 132, 158, 186, 151, 175, 195, 166, 189, 200, 175, 199, 198, 175, 203, 188, 166, 199, 173, 150, 190, 153, 134, 178, 133, 115, 163, 111, 98, 144, 88, 85, 127, 69, 76, 108, 54, 70, 93, 46, 67, 82, 44, 66, 73, 46, 64, 67, 51, 63, 62, 58], shape(corkO25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: corkO50 = reshape([63, 62, 58, 62, 61, 63, 62, 61, 68, 62, 61, 75, 62, 63, 82, 62, 66, 90, 63, 71, 98, 65, 76, 108, 68, 85, 120, 72, 93, 130, 78, 101, 139, 84, 110, 148, 92, 119, 156, 101, 129, 165, 110, 138, 172, 119, 146, 178, 128, 155, 184, 137, 163, 189, 148, 172, 194, 156, 179, 197, 163, 186, 199, 169, 192, 200, 174, 197, 199, 176, 201, 196, 176, 202, 191, 173, 202, 185, 169, 201, 178, 162, 197, 168, 155, 193, 159, 147, 188, 149, 139, 182, 139, 130, 176, 129, 120, 167, 117, 112, 159, 106, 104, 151, 96, 96, 142, 86, 90, 134, 76, 83, 123, 66, 79, 115, 59, 75, 107, 53, 72, 100, 49, 70, 93, 46, 68, 86, 44, 67, 81, 44, 66, 77, 45, 66, 73, 46, 65, 70, 48, 64, 67, 51, 64, 64, 54, 63, 62, 58], shape(corkO50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: davos = reshape([0, 5, 74, 0, 7, 76, 0, 9, 77, 0, 11, 79, 1, 12, 80, 1, 14, 81, 2, 15, 83, 2, 16, 84, 3, 18, 86, 4, 19, 87, 4, 20, 89, 5, 22, 90, 5, 23, 91, 6, 24, 93, 7, 26, 94, 7, 27, 96, 8, 28, 97, 9, 30, 98, 10, 31, 100, 11, 32, 101, 11, 34, 103, 12, 35, 104, 13, 36, 105, 14, 38, 107, 14, 39, 108, 15, 40, 109, 16, 42, 111, 17, 43, 112, 17, 44, 113, 18, 46, 115, 19, 47, 116, 19, 48, 117, 20, 50, 119, 21, 51, 120, 22, 52, 121, 23, 54, 122, 23, 55, 124, 24, 56, 125, 25, 58, 126, 26, 59, 127, 26, 60, 128, 27, 62, 130, 28, 63, 131, 29, 64, 132, 30, 65, 133, 30, 67, 134, 31, 68, 135, 32, 69, 136, 33, 71, 137, 34, 72, 138, 35, 73, 139, 35, 74, 140, 36, 76, 141, 37, 77, 142, 38, 78, 143, 39, 79, 144, 40, 81, 144, 41, 82, 145, 42, 83, 146, 42, 84, 147, 43, 86, 147, 44, 87, 148, 45, 88, 149, 46, 89, 149, 47, 90, 150, 48, 91, 151, 49, 92, 151, 50, 94, 152, 51, 95, 152, 52, 96, 153, 53, 97, 153, 54, 98, 154, 55, 99, 154, 56, 100, 154, 57, 101, 155, 58, 102, 155, 58, 103, 155, 59, 104, 156, 60, 105, 156, 61, 106, 156, 62, 107, 156, 63, 108, 157, 64, 109, 157, 65, 110, 157, 66, 111, 157, 67, 112, 157, 68, 112, 157, 69, 113, 157, 70, 114, 157, 71, 115, 157, 72, 116, 157, 73, 117, 157, 74, 118, 157, 75, 118, 157, 76, 119, 157, 77, 120, 157, 78, 121, 157, 79, 121, 157, 80, 122, 156, 81, 123, 156, 82, 124, 156, 83, 124, 156, 84, 125, 156, 85, 126, 155, 86, 127, 155, 86, 127, 155, 87, 128, 155, 88, 129, 154, 89, 129, 154, 90, 130, 154, 91, 131, 153, 92, 131, 153, 93, 132, 153, 94, 133, 152, 95, 133, 152, 96, 134, 152, 97, 134, 151, 98, 135, 151, 99, 136, 151, 100, 136, 150, 101, 137, 150, 101, 138, 149, 102, 138, 149, 103, 139, 149, 104, 139, 148, 105, 140, 148, 106, 141, 147, 107, 141, 147, 108, 142, 147, 109, 142, 146, 110, 143, 146, 111, 144, 145, 112, 144, 145, 113, 145, 145, 114, 145, 144, 115, 146, 144, 116, 147, 143, 116, 147, 143, 117, 148, 143, 118, 149, 142, 119, 149, 142, 120, 150, 141, 121, 150, 141, 122, 151, 141, 123, 152, 140, 124, 152, 140, 125, 153, 140, 126, 154, 139, 127, 154, 139, 128, 155, 139, 129, 156, 138, 130, 157, 138, 131, 157, 138, 132, 158, 137, 134, 159, 137, 135, 160, 137, 136, 160, 137, 137, 161, 136, 138, 162, 136, 139, 163, 136, 140, 163, 136, 141, 164, 136, 143, 165, 136, 144, 166, 135, 145, 167, 135, 146, 168, 135, 147, 169, 135, 149, 170, 135, 150, 171, 135, 151, 172, 135, 153, 173, 136, 154, 174, 136, 155, 175, 136, 157, 176, 136, 158, 177, 136, 160, 178, 137, 161, 179, 137, 163, 180, 137, 164, 182, 138, 166, 183, 138, 168, 184, 139, 169, 185, 139, 171, 187, 140, 173, 188, 140, 174, 189, 141, 176, 191, 142, 178, 192, 143, 180, 193, 144, 182, 195, 145, 184, 196, 146, 185, 198, 147, 187, 199, 148, 189, 201, 149, 191, 202, 150, 193, 204, 152, 195, 205, 153, 197, 207, 155, 199, 208, 156, 201, 210, 158, 203, 211, 159, 205, 213, 161, 207, 214, 162, 208, 216, 164, 210, 217, 166, 212, 219, 168, 214, 220, 169, 216, 222, 171, 217, 223, 173, 219, 224, 175, 221, 226, 177, 222, 227, 179, 224, 228, 181, 225, 229, 182, 227, 231, 184, 228, 232, 186, 230, 233, 188, 231, 234, 190, 232, 235, 192, 234, 236, 194, 235, 237, 196, 236, 238, 198, 237, 239, 199, 238, 239, 201, 239, 240, 203, 240, 241, 205, 241, 242, 207, 242, 242, 208, 243, 243, 210, 243, 244, 212, 244, 244, 214, 245, 245, 215, 245, 246, 217, 246, 246, 219, 247, 247, 221, 247, 247, 222, 248, 248, 224, 248, 248, 225, 249, 249, 227, 249, 249, 229, 250, 249, 230, 250, 250, 232, 251, 250, 233, 251, 251, 235, 251, 251, 236, 252, 251, 238, 252, 252, 240, 252, 252, 241, 252, 252, 243, 253, 253, 244, 253, 253, 246, 253, 253, 247, 254, 253, 249, 254, 254, 250, 254, 254, 252, 254, 254, 253, 254, 254, 254], shape(davos), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: davos10 = reshape([0, 5, 74, 17, 44, 113, 41, 82, 145, 67, 112, 157, 94, 133, 152, 121, 150, 141, 153, 173, 136, 201, 210, 158, 243, 243, 210, 254, 254, 254], shape(davos10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: davos100 = reshape([0, 5, 74, 0, 11, 79, 1, 14, 81, 3, 18, 86, 4, 20, 89, 6, 24, 93, 7, 27, 96, 10, 31, 100, 12, 35, 104, 14, 38, 107, 16, 42, 111, 17, 44, 113, 19, 48, 117, 21, 51, 120, 23, 55, 124, 26, 59, 127, 27, 62, 130, 30, 65, 133, 31, 68, 135, 34, 72, 138, 36, 76, 141, 38, 78, 143, 41, 82, 145, 42, 84, 147, 45, 88, 149, 47, 90, 150, 50, 94, 152, 53, 97, 153, 55, 99, 154, 58, 102, 155, 59, 104, 156, 62, 107, 156, 64, 109, 157, 67, 112, 157, 70, 114, 157, 72, 116, 157, 75, 118, 157, 77, 120, 157, 80, 122, 156, 82, 124, 156, 85, 126, 155, 87, 128, 155, 89, 129, 154, 92, 131, 153, 94, 133, 152, 97, 134, 151, 99, 136, 151, 101, 138, 149, 104, 139, 148, 106, 141, 147, 109, 142, 146, 111, 144, 145, 114, 145, 144, 116, 147, 143, 118, 149, 142, 121, 150, 141, 123, 152, 140, 126, 154, 139, 128, 155, 139, 131, 157, 138, 135, 160, 137, 137, 161, 136, 140, 163, 136, 143, 165, 136, 146, 168, 135, 149, 170, 135, 153, 173, 136, 157, 176, 136, 160, 178, 137, 164, 182, 138, 168, 184, 139, 173, 188, 140, 176, 191, 142, 182, 195, 145, 187, 199, 148, 191, 202, 150, 197, 207, 155, 201, 210, 158, 207, 214, 162, 210, 217, 166, 216, 222, 171, 221, 226, 177, 224, 228, 181, 228, 232, 186, 231, 234, 190, 235, 237, 196, 238, 239, 201, 240, 241, 205, 243, 243, 210, 244, 244, 214, 246, 246, 219, 247, 247, 222, 249, 249, 227, 250, 250, 232, 251, 251, 235, 252, 252, 240, 252, 252, 243, 253, 253, 247, 254, 254, 250, 254, 254, 254], shape(davos100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: davos25 = reshape([0, 5, 74, 5, 22, 90, 12, 35, 104, 20, 50, 119, 29, 64, 132, 37, 77, 142, 47, 90, 150, 57, 101, 155, 67, 112, 157, 78, 121, 157, 87, 128, 155, 98, 135, 151, 108, 142, 147, 117, 148, 143, 128, 155, 139, 139, 163, 136, 153, 173, 136, 169, 185, 139, 187, 199, 148, 208, 216, 164, 227, 231, 184, 239, 240, 203, 247, 247, 222, 252, 251, 238, 254, 254, 254], shape(davos25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: davos50 = reshape([0, 5, 74, 1, 14, 81, 4, 20, 89, 8, 28, 97, 12, 35, 104, 16, 42, 111, 19, 48, 117, 23, 55, 124, 28, 63, 131, 32, 69, 136, 36, 76, 141, 41, 82, 145, 45, 88, 149, 51, 95, 152, 56, 100, 154, 60, 105, 156, 65, 110, 157, 70, 114, 157, 76, 119, 157, 81, 123, 156, 86, 127, 155, 90, 130, 154, 95, 133, 152, 101, 137, 150, 105, 140, 148, 110, 143, 146, 115, 146, 144, 120, 150, 141, 125, 153, 140, 130, 157, 138, 136, 160, 137, 141, 164, 136, 149, 170, 135, 155, 175, 136, 163, 180, 137, 171, 187, 140, 180, 193, 144, 191, 202, 150, 201, 210, 158, 210, 217, 166, 219, 224, 175, 227, 231, 184, 235, 237, 196, 240, 241, 205, 244, 244, 214, 247, 247, 222, 250, 249, 230, 252, 252, 240, 253, 253, 247, 254, 254, 254], shape(davos50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: davosS = reshape([0, 5, 74, 253, 253, 244, 104, 139, 148, 178, 192, 143, 45, 88, 149, 232, 235, 192, 19, 48, 117, 75, 118, 157, 135, 160, 137, 154, 174, 136, 90, 130, 154, 118, 149, 142, 60, 105, 156, 7, 27, 96, 32, 69, 136, 207, 214, 162, 246, 246, 219, 144, 166, 135, 53, 97, 153, 14, 38, 107, 221, 226, 177, 126, 154, 139, 26, 59, 127, 83, 124, 156, 250, 250, 232, 191, 202, 150, 241, 242, 207, 3, 18, 86, 67, 112, 157, 98, 135, 151, 166, 183, 138, 39, 79, 144, 111, 144, 145, 252, 251, 238, 237, 239, 199, 130, 157, 138, 86, 127, 155, 57, 101, 155, 160, 178, 137, 199, 208, 156, 1, 12, 80, 11, 32, 101, 49, 92, 151, 214, 220, 169, 122, 151, 141, 248, 248, 225, 23, 54, 122, 115, 146, 144, 35, 74, 140, 17, 43, 112, 227, 231, 184, 94, 133, 152, 71, 115, 157, 29, 64, 132, 79, 121, 157, 139, 163, 136, 149, 170, 135, 63, 108, 157, 101, 138, 149, 5, 22, 90, 42, 83, 146, 108, 142, 147, 173, 188, 140, 184, 196, 146, 243, 244, 212, 12, 35, 104, 239, 240, 203, 58, 103, 155, 128, 155, 139, 77, 120, 157, 249, 249, 229, 169, 185, 139, 230, 233, 188, 120, 150, 141, 146, 168, 135, 69, 113, 157, 34, 72, 138, 18, 46, 115, 27, 62, 130, 247, 247, 222, 2, 15, 83, 224, 228, 181, 106, 141, 147, 195, 205, 153, 88, 129, 154, 65, 110, 157, 163, 180, 137, 73, 117, 157, 116, 147, 143, 235, 237, 196, 210, 217, 166, 37, 77, 142, 85, 126, 155, 203, 211, 159, 21, 51, 120, 151, 172, 135, 217, 223, 173, 96, 134, 152, 113, 145, 145, 187, 199, 148], shape(davosS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: devon = reshape([44, 26, 76, 44, 27, 77, 44, 28, 78, 43, 28, 79, 43, 29, 80, 43, 30, 81, 43, 31, 82, 43, 32, 83, 43, 33, 84, 43, 34, 85, 43, 35, 86, 43, 36, 87, 43, 37, 88, 43, 38, 88, 43, 39, 89, 42, 40, 90, 42, 41, 91, 42, 41, 92, 42, 42, 93, 42, 43, 94, 42, 44, 95, 42, 45, 96, 42, 46, 97, 42, 47, 98, 41, 48, 99, 41, 49, 100, 41, 50, 101, 41, 51, 102, 41, 52, 103, 41, 53, 104, 41, 54, 105, 41, 55, 106, 41, 56, 106, 40, 57, 107, 40, 57, 108, 40, 58, 109, 40, 59, 110, 40, 60, 111, 40, 61, 112, 40, 62, 113, 40, 63, 114, 40, 64, 115, 39, 65, 116, 39, 66, 117, 39, 67, 118, 39, 68, 120, 39, 69, 121, 39, 70, 122, 39, 71, 123, 39, 72, 124, 39, 73, 125, 39, 74, 126, 39, 76, 127, 39, 77, 129, 39, 78, 130, 39, 79, 131, 39, 80, 132, 39, 81, 134, 39, 82, 135, 39, 83, 136, 40, 84, 138, 40, 85, 139, 40, 86, 140, 40, 87, 142, 41, 88, 143, 41, 89, 144, 41, 90, 146, 42, 91, 147, 42, 92, 149, 43, 93, 150, 43, 93, 152, 44, 94, 153, 44, 95, 154, 45, 96, 156, 46, 97, 157, 46, 98, 159, 47, 98, 160, 48, 99, 162, 48, 100, 163, 49, 101, 164, 50, 101, 166, 50, 102, 167, 51, 103, 169, 52, 104, 170, 53, 104, 171, 54, 105, 173, 55, 106, 174, 56, 106, 176, 57, 107, 177, 58, 108, 178, 59, 109, 180, 60, 109, 181, 61, 110, 183, 62, 111, 184, 63, 112, 185, 65, 113, 187, 66, 114, 188, 68, 114, 189, 69, 115, 191, 71, 116, 192, 72, 117, 193, 74, 118, 195, 76, 119, 196, 77, 120, 197, 79, 121, 198, 81, 122, 200, 83, 123, 201, 85, 124, 202, 87, 124, 203, 89, 125, 204, 91, 126, 205, 93, 127, 206, 95, 128, 207, 97, 129, 208, 99, 130, 209, 101, 131, 210, 103, 132, 211, 105, 133, 212, 107, 134, 213, 109, 135, 214, 111, 136, 215, 113, 136, 216, 115, 137, 216, 117, 138, 217, 119, 139, 218, 121, 140, 219, 123, 141, 220, 125, 142, 220, 126, 143, 221, 128, 143, 222, 130, 144, 223, 132, 145, 223, 134, 146, 224, 136, 147, 225, 138, 148, 225, 140, 149, 226, 141, 149, 227, 143, 150, 227, 145, 151, 228, 147, 152, 229, 149, 153, 229, 150, 154, 230, 152, 155, 231, 154, 155, 231, 155, 156, 232, 157, 157, 232, 158, 158, 233, 160, 159, 233, 162, 160, 234, 163, 161, 234, 164, 162, 235, 166, 163, 235, 167, 164, 236, 168, 165, 236, 170, 165, 237, 171, 166, 237, 172, 167, 237, 173, 168, 238, 174, 169, 238, 175, 170, 238, 176, 171, 238, 177, 172, 239, 178, 173, 239, 179, 173, 239, 180, 174, 239, 181, 175, 240, 182, 176, 240, 183, 177, 240, 184, 178, 240, 185, 179, 240, 186, 179, 241, 186, 180, 241, 187, 181, 241, 188, 182, 241, 189, 183, 241, 190, 184, 242, 190, 185, 242, 191, 185, 242, 192, 186, 242, 193, 187, 242, 194, 188, 242, 194, 189, 243, 195, 190, 243, 196, 191, 243, 197, 192, 243, 198, 192, 243, 198, 193, 243, 199, 194, 244, 200, 195, 244, 201, 196, 244, 202, 197, 244, 202, 198, 244, 203, 198, 244, 204, 199, 244, 205, 200, 245, 206, 201, 245, 206, 202, 245, 207, 203, 245, 208, 204, 245, 209, 205, 245, 210, 205, 246, 210, 206, 246, 211, 207, 246, 212, 208, 246, 213, 209, 246, 214, 210, 246, 214, 211, 247, 215, 212, 247, 216, 212, 247, 217, 213, 247, 218, 214, 247, 218, 215, 247, 219, 216, 248, 220, 217, 248, 221, 218, 248, 222, 219, 248, 222, 220, 248, 223, 220, 248, 224, 221, 249, 225, 222, 249, 226, 223, 249, 227, 224, 249, 227, 225, 249, 228, 226, 250, 229, 227, 250, 230, 228, 250, 231, 228, 250, 232, 229, 250, 232, 230, 250, 233, 231, 251, 234, 232, 251, 235, 233, 251, 236, 234, 251, 237, 235, 251, 237, 236, 251, 238, 237, 252, 239, 238, 252, 240, 238, 252, 241, 239, 252, 242, 240, 252, 242, 241, 252, 243, 242, 253, 244, 243, 253, 245, 244, 253, 246, 245, 253, 247, 246, 253, 247, 247, 253, 248, 248, 254, 249, 249, 254, 250, 249, 254, 251, 250, 254, 252, 251, 254, 252, 252, 254, 253, 253, 255, 254, 254, 255, 255, 255, 255], shape(devon), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: devon10 = reshape([44, 26, 76, 41, 52, 103, 39, 81, 134, 54, 105, 173, 97, 129, 208, 152, 155, 231, 186, 179, 241, 208, 204, 245, 232, 229, 250, 255, 255, 255], shape(devon10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: devon100 = reshape([44, 26, 76, 43, 28, 79, 43, 30, 81, 43, 33, 84, 43, 35, 86, 43, 38, 88, 42, 40, 90, 42, 42, 93, 42, 45, 96, 42, 47, 98, 41, 50, 101, 41, 52, 103, 41, 55, 106, 40, 57, 107, 40, 59, 110, 40, 62, 113, 40, 64, 115, 39, 67, 118, 39, 69, 121, 39, 72, 124, 39, 76, 127, 39, 78, 130, 39, 81, 134, 39, 83, 136, 40, 86, 140, 41, 88, 143, 42, 91, 147, 43, 93, 152, 44, 95, 154, 46, 98, 159, 48, 99, 162, 50, 101, 166, 51, 103, 169, 54, 105, 173, 57, 107, 177, 59, 109, 180, 62, 111, 184, 65, 113, 187, 69, 115, 191, 72, 117, 193, 77, 120, 197, 83, 123, 201, 87, 124, 203, 93, 127, 206, 97, 129, 208, 103, 132, 211, 107, 134, 213, 113, 136, 216, 119, 139, 218, 123, 141, 220, 128, 143, 222, 132, 145, 223, 138, 148, 225, 143, 150, 227, 147, 152, 229, 152, 155, 231, 155, 156, 232, 160, 159, 233, 163, 161, 234, 167, 164, 236, 171, 166, 237, 173, 168, 238, 176, 171, 238, 178, 173, 239, 181, 175, 240, 183, 177, 240, 186, 179, 241, 188, 182, 241, 190, 184, 242, 192, 186, 242, 194, 188, 242, 196, 191, 243, 198, 192, 243, 200, 195, 244, 202, 198, 244, 204, 199, 244, 206, 202, 245, 208, 204, 245, 210, 206, 246, 212, 208, 246, 214, 211, 247, 217, 213, 247, 218, 215, 247, 221, 218, 248, 222, 220, 248, 225, 222, 249, 227, 225, 249, 229, 227, 250, 232, 229, 250, 233, 231, 251, 236, 234, 251, 237, 236, 251, 240, 238, 252, 242, 241, 252, 244, 243, 253, 247, 246, 253, 248, 248, 254, 251, 250, 254, 252, 252, 254, 255, 255, 255], shape(devon100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: devon25 = reshape([44, 26, 76, 43, 36, 87, 42, 45, 96, 41, 56, 106, 39, 66, 117, 39, 77, 129, 41, 88, 143, 46, 97, 157, 54, 105, 173, 66, 114, 188, 83, 123, 201, 105, 133, 212, 126, 143, 221, 145, 151, 228, 163, 161, 234, 175, 170, 238, 186, 179, 241, 194, 189, 243, 202, 198, 244, 211, 207, 246, 220, 217, 248, 228, 226, 250, 237, 236, 251, 246, 245, 253, 255, 255, 255], shape(devon25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: devon50 = reshape([44, 26, 76, 43, 30, 81, 43, 35, 86, 42, 41, 91, 42, 45, 96, 41, 50, 101, 41, 55, 106, 40, 59, 110, 39, 65, 116, 39, 70, 122, 39, 76, 127, 39, 81, 134, 40, 86, 140, 42, 92, 149, 45, 96, 156, 48, 100, 163, 52, 104, 170, 57, 107, 177, 63, 112, 185, 71, 116, 192, 79, 121, 198, 89, 125, 204, 99, 130, 209, 111, 136, 215, 121, 140, 219, 130, 144, 223, 140, 149, 226, 150, 154, 230, 158, 158, 233, 166, 163, 235, 172, 167, 237, 177, 172, 239, 183, 177, 240, 187, 181, 241, 191, 185, 242, 195, 190, 243, 199, 194, 244, 204, 199, 244, 208, 204, 245, 212, 208, 246, 216, 212, 247, 220, 217, 248, 225, 222, 249, 229, 227, 250, 233, 231, 251, 237, 236, 251, 242, 240, 252, 247, 246, 253, 251, 250, 254, 255, 255, 255], shape(devon50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: devonS = reshape([44, 26, 76, 248, 248, 254, 119, 139, 218, 40, 86, 140, 198, 192, 243, 41, 55, 106, 62, 111, 184, 222, 220, 248, 171, 166, 237, 42, 41, 91, 149, 153, 229, 89, 125, 204, 235, 233, 251, 186, 179, 241, 39, 70, 122, 48, 99, 162, 210, 206, 246, 40, 62, 113, 74, 118, 195, 54, 105, 173, 43, 33, 84, 134, 146, 224, 204, 199, 244, 242, 240, 252, 42, 47, 98, 192, 186, 242, 162, 160, 234, 178, 173, 239, 217, 213, 247, 228, 226, 250, 43, 93, 150, 39, 78, 130, 105, 133, 212, 43, 37, 88, 68, 114, 189, 126, 143, 221, 207, 203, 245, 40, 58, 109, 97, 129, 208, 41, 51, 102, 214, 210, 246, 58, 108, 178, 45, 96, 156, 39, 66, 117, 43, 29, 80, 245, 244, 253, 81, 122, 200, 238, 237, 252, 141, 149, 227, 232, 229, 250, 155, 156, 232, 39, 82, 135, 189, 183, 241, 201, 196, 244, 182, 176, 240, 50, 102, 167, 226, 223, 249, 195, 190, 243, 167, 164, 236, 39, 73, 125, 42, 43, 94, 41, 90, 146, 175, 170, 238, 111, 136, 215, 220, 217, 248, 93, 127, 206, 44, 28, 78, 49, 101, 164, 123, 141, 220, 41, 88, 143, 190, 185, 242, 233, 231, 251, 152, 155, 231, 40, 84, 138, 237, 235, 251, 43, 39, 89, 173, 168, 238, 240, 238, 252, 115, 137, 216, 243, 242, 253, 39, 80, 132, 130, 144, 223, 218, 215, 247, 40, 64, 115, 206, 201, 245, 41, 53, 104, 71, 116, 192, 212, 208, 246, 184, 178, 240, 85, 124, 202, 158, 158, 233, 42, 45, 96, 39, 76, 127, 43, 31, 82, 215, 212, 247, 43, 35, 86, 145, 151, 228, 40, 60, 111, 164, 162, 235, 187, 181, 241], shape(devonS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: fes = reshape([13, 13, 13, 15, 15, 15, 18, 18, 18, 20, 20, 20, 22, 22, 22, 24, 24, 24, 25, 25, 25, 27, 27, 27, 29, 29, 29, 31, 31, 31, 33, 33, 33, 34, 34, 34, 36, 36, 36, 38, 38, 38, 40, 40, 40, 41, 41, 41, 43, 43, 43, 45, 45, 45, 46, 46, 46, 48, 48, 48, 50, 50, 50, 52, 52, 52, 53, 53, 53, 55, 55, 55, 57, 57, 57, 59, 59, 59, 60, 60, 60, 62, 62, 62, 64, 64, 64, 65, 65, 65, 67, 67, 67, 69, 69, 69, 70, 70, 70, 72, 72, 72, 73, 73, 73, 75, 75, 75, 77, 77, 77, 78, 78, 78, 80, 80, 80, 82, 82, 82, 83, 83, 83, 85, 85, 85, 86, 86, 86, 88, 88, 88, 89, 89, 89, 91, 91, 91, 92, 92, 92, 94, 94, 94, 96, 96, 96, 97, 97, 97, 99, 99, 99, 100, 100, 100, 101, 101, 101, 103, 103, 103, 104, 104, 104, 106, 106, 106, 107, 107, 107, 109, 109, 109, 110, 110, 110, 112, 112, 112, 113, 113, 113, 114, 114, 114, 116, 116, 116, 117, 117, 117, 119, 119, 119, 120, 120, 120, 121, 121, 121, 123, 123, 123, 124, 124, 124, 126, 126, 126, 127, 127, 127, 129, 129, 129, 130, 130, 130, 132, 132, 132, 133, 133, 133, 135, 135, 135, 136, 136, 136, 138, 138, 138, 139, 139, 139, 141, 141, 141, 142, 142, 142, 144, 144, 144, 146, 146, 146, 147, 147, 147, 149, 149, 149, 151, 151, 151, 153, 153, 153, 154, 154, 154, 156, 156, 156, 158, 158, 158, 160, 160, 160, 161, 161, 161, 163, 163, 163, 165, 165, 165, 167, 167, 167, 169, 169, 169, 171, 171, 171, 173, 173, 173, 175, 175, 175, 177, 177, 177, 179, 179, 179, 181, 181, 181, 183, 183, 183, 185, 185, 185, 187, 187, 187, 189, 189, 189, 191, 191, 191, 193, 193, 193, 195, 195, 195, 197, 197, 197, 200, 200, 200, 202, 202, 202, 204, 204, 204, 206, 206, 206, 209, 209, 209, 211, 211, 211, 213, 213, 213, 216, 216, 216, 218, 218, 218, 221, 221, 221, 223, 223, 223, 226, 226, 226, 228, 228, 228, 231, 231, 231, 233, 233, 233, 236, 236, 236, 238, 238, 238, 241, 241, 241, 2, 64, 38, 5, 65, 38, 9, 66, 37, 12, 67, 36, 15, 68, 35, 18, 70, 35, 21, 71, 34, 24, 72, 34, 27, 73, 33, 30, 74, 33, 33, 75, 32, 36, 76, 32, 39, 78, 32, 43, 79, 32, 46, 80, 32, 49, 81, 32, 52, 82, 32, 55, 83, 32, 58, 84, 32, 61, 85, 32, 63, 85, 33, 66, 86, 33, 69, 87, 34, 72, 88, 34, 74, 89, 34, 77, 89, 35, 80, 90, 35, 82, 91, 36, 85, 91, 36, 87, 92, 37, 90, 93, 37, 92, 93, 38, 94, 94, 38, 97, 94, 38, 99, 95, 39, 101, 96, 39, 104, 96, 40, 106, 97, 40, 108, 97, 41, 111, 98, 41, 113, 98, 41, 115, 99, 42, 117, 100, 42, 120, 100, 43, 122, 101, 43, 124, 101, 44, 127, 102, 44, 129, 103, 45, 131, 103, 45, 134, 104, 46, 136, 104, 46, 139, 105, 47, 141, 106, 47, 144, 107, 48, 146, 107, 48, 149, 108, 49, 151, 109, 50, 154, 110, 51, 156, 111, 52, 159, 112, 53, 161, 113, 55, 164, 115, 56, 166, 116, 58, 168, 118, 60, 171, 119, 62, 173, 121, 64, 175, 123, 66, 177, 125, 69, 179, 127, 71, 181, 129, 74, 182, 131, 77, 184, 133, 80, 185, 135, 83, 186, 137, 86, 188, 139, 89, 189, 142, 92, 190, 144, 95, 191, 146, 98, 192, 148, 101, 193, 151, 105, 194, 153, 108, 195, 155, 111, 196, 157, 114, 197, 159, 117, 198, 162, 120, 198, 164, 124, 199, 166, 127, 200, 168, 130, 201, 171, 133, 202, 173, 137, 203, 175, 140, 204, 177, 143, 205, 179, 146, 206, 182, 150, 207, 184, 153, 208, 186, 156, 209, 188, 160, 210, 190, 163, 210, 192, 166, 211, 194, 170, 212, 196, 173, 213, 198, 176, 214, 200, 180, 215, 202, 183, 216, 204, 186, 217, 206, 189, 218, 207, 193, 219, 209, 196, 220, 211, 199, 221, 212, 202, 222, 214, 205, 223, 215, 207, 224, 217, 210, 225, 218, 213, 226, 219, 216, 226, 221, 218, 227, 222, 221, 228, 223, 224, 229, 224, 226, 230, 226, 229, 231, 227, 232, 232, 228, 234, 232, 230, 237, 233, 231, 240, 234, 233, 243, 235, 234, 246, 236, 235, 249, 237, 237, 252], shape(fes), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: fes10 = reshape([13, 13, 13, 64, 64, 64, 109, 109, 109, 151, 151, 151, 206, 206, 206, 46, 80, 32, 117, 100, 42, 182, 131, 77, 211, 194, 170, 237, 237, 252], shape(fes10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: fes100 = reshape([13, 13, 13, 20, 20, 20, 24, 24, 24, 29, 29, 29, 33, 33, 33, 38, 38, 38, 41, 41, 41, 46, 46, 46, 52, 52, 52, 55, 55, 55, 60, 60, 60, 64, 64, 64, 69, 69, 69, 72, 72, 72, 77, 77, 77, 82, 82, 82, 85, 85, 85, 89, 89, 89, 92, 92, 92, 97, 97, 97, 101, 101, 101, 104, 104, 104, 109, 109, 109, 112, 112, 112, 116, 116, 116, 119, 119, 119, 123, 123, 123, 127, 127, 127, 130, 130, 130, 135, 135, 135, 138, 138, 138, 142, 142, 142, 146, 146, 146, 151, 151, 151, 156, 156, 156, 160, 160, 160, 165, 165, 165, 169, 169, 169, 175, 175, 175, 179, 179, 179, 185, 185, 185, 191, 191, 191, 195, 195, 195, 202, 202, 202, 206, 206, 206, 213, 213, 213, 218, 218, 218, 226, 226, 226, 233, 233, 233, 238, 238, 238, 5, 65, 38, 12, 67, 36, 21, 71, 34, 30, 74, 33, 36, 76, 32, 46, 80, 32, 52, 82, 32, 61, 85, 32, 66, 86, 33, 74, 89, 34, 82, 91, 36, 87, 92, 37, 94, 94, 38, 99, 95, 39, 106, 97, 40, 111, 98, 41, 117, 100, 42, 124, 101, 44, 129, 103, 45, 136, 104, 46, 141, 106, 47, 149, 108, 49, 154, 110, 51, 161, 113, 55, 168, 118, 60, 173, 121, 64, 179, 127, 71, 182, 131, 77, 186, 137, 86, 189, 142, 92, 192, 148, 101, 195, 155, 111, 197, 159, 117, 199, 166, 127, 201, 171, 133, 204, 177, 143, 207, 184, 153, 209, 188, 160, 211, 194, 170, 213, 198, 176, 216, 204, 186, 218, 207, 193, 221, 212, 202, 224, 217, 210, 226, 219, 216, 228, 223, 224, 230, 226, 229, 232, 230, 237, 234, 233, 243, 237, 237, 252], shape(fes100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: fes25 = reshape([13, 13, 13, 34, 34, 34, 52, 52, 52, 70, 70, 70, 88, 88, 88, 103, 103, 103, 119, 119, 119, 133, 133, 133, 151, 151, 151, 171, 171, 171, 191, 191, 191, 216, 216, 216, 2, 64, 38, 33, 75, 32, 66, 86, 33, 92, 93, 38, 117, 100, 42, 144, 107, 48, 168, 118, 60, 188, 139, 89, 198, 164, 124, 208, 186, 156, 218, 207, 193, 227, 222, 221, 237, 237, 252], shape(fes25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: fes50 = reshape([13, 13, 13, 24, 24, 24, 33, 33, 33, 43, 43, 43, 52, 52, 52, 60, 60, 60, 69, 69, 69, 77, 77, 77, 86, 86, 86, 94, 94, 94, 101, 101, 101, 109, 109, 109, 116, 116, 116, 124, 124, 124, 132, 132, 132, 139, 139, 139, 147, 147, 147, 156, 156, 156, 167, 167, 167, 177, 177, 177, 187, 187, 187, 197, 197, 197, 209, 209, 209, 223, 223, 223, 236, 236, 236, 9, 66, 37, 24, 72, 34, 43, 79, 32, 58, 84, 32, 72, 88, 34, 85, 91, 36, 97, 94, 38, 111, 98, 41, 122, 101, 43, 134, 104, 46, 146, 107, 48, 159, 112, 53, 173, 121, 64, 182, 131, 77, 189, 142, 92, 194, 153, 108, 198, 164, 124, 204, 177, 143, 209, 188, 160, 213, 198, 176, 218, 207, 193, 223, 215, 207, 228, 223, 224, 232, 230, 237, 237, 237, 252], shape(fes50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: glasgow = reshape([54, 19, 56, 55, 19, 55, 56, 19, 55, 57, 20, 54, 58, 20, 53, 59, 20, 52, 60, 20, 51, 61, 21, 51, 62, 21, 50, 63, 21, 49, 64, 21, 48, 64, 22, 47, 65, 22, 47, 66, 22, 46, 67, 22, 45, 68, 23, 44, 69, 23, 44, 70, 23, 43, 70, 23, 42, 71, 24, 41, 72, 24, 41, 73, 24, 40, 74, 24, 39, 75, 25, 38, 75, 25, 38, 76, 25, 37, 77, 25, 36, 78, 26, 36, 79, 26, 35, 80, 26, 34, 80, 26, 33, 81, 27, 33, 82, 27, 32, 83, 27, 31, 84, 27, 30, 85, 28, 30, 86, 28, 29, 87, 28, 28, 87, 28, 27, 88, 29, 27, 89, 29, 26, 90, 29, 25, 91, 30, 24, 92, 30, 24, 93, 30, 23, 94, 31, 22, 95, 31, 21, 96, 32, 20, 97, 32, 19, 98, 33, 19, 99, 33, 18, 101, 34, 17, 102, 34, 16, 103, 35, 15, 104, 36, 14, 105, 37, 13, 106, 37, 12, 107, 38, 11, 108, 39, 11, 108, 40, 10, 109, 41, 9, 110, 42, 8, 111, 43, 7, 112, 44, 6, 112, 45, 6, 113, 46, 5, 113, 47, 4, 114, 49, 4, 114, 50, 3, 115, 51, 3, 115, 52, 3, 115, 53, 2, 116, 55, 2, 116, 56, 2, 116, 57, 1, 116, 58, 1, 116, 59, 1, 116, 60, 1, 116, 62, 1, 116, 63, 1, 117, 64, 1, 117, 65, 0, 117, 66, 0, 117, 67, 0, 117, 68, 0, 116, 69, 0, 116, 70, 0, 116, 71, 0, 116, 73, 0, 116, 74, 0, 116, 75, 0, 116, 76, 0, 116, 77, 0, 116, 78, 1, 116, 79, 1, 116, 80, 1, 116, 81, 1, 116, 82, 1, 116, 83, 2, 116, 84, 2, 116, 85, 3, 116, 86, 3, 115, 87, 4, 115, 88, 4, 115, 89, 5, 115, 90, 6, 115, 91, 7, 115, 92, 8, 114, 94, 10, 114, 95, 11, 114, 96, 13, 114, 97, 14, 114, 98, 16, 113, 99, 17, 113, 100, 19, 113, 101, 21, 113, 102, 23, 112, 102, 24, 112, 103, 26, 112, 104, 28, 112, 105, 30, 111, 106, 32, 111, 107, 33, 111, 108, 35, 110, 109, 37, 110, 110, 39, 110, 111, 41, 109, 112, 43, 109, 112, 45, 109, 113, 47, 108, 114, 49, 108, 115, 50, 108, 116, 52, 107, 117, 54, 107, 117, 56, 107, 118, 58, 106, 119, 60, 106, 120, 62, 106, 121, 64, 105, 122, 66, 105, 122, 68, 105, 123, 70, 104, 124, 72, 104, 125, 74, 104, 125, 76, 103, 126, 77, 103, 127, 79, 103, 128, 81, 102, 129, 83, 102, 129, 85, 102, 130, 87, 101, 131, 89, 101, 132, 91, 101, 132, 93, 101, 133, 95, 100, 134, 97, 100, 135, 99, 100, 136, 100, 99, 136, 102, 99, 137, 104, 99, 138, 106, 98, 139, 108, 98, 139, 110, 98, 140, 112, 97, 141, 114, 97, 142, 116, 97, 142, 118, 97, 143, 120, 96, 144, 121, 96, 145, 123, 96, 146, 125, 96, 146, 127, 96, 147, 129, 96, 148, 131, 95, 149, 133, 95, 149, 135, 96, 150, 137, 96, 151, 138, 96, 152, 140, 96, 153, 142, 96, 153, 144, 97, 154, 146, 97, 155, 148, 98, 156, 150, 98, 157, 152, 99, 158, 154, 100, 159, 155, 101, 159, 157, 102, 160, 159, 103, 161, 161, 104, 162, 163, 105, 163, 165, 107, 164, 166, 108, 165, 168, 110, 165, 170, 111, 166, 171, 113, 167, 173, 114, 168, 175, 116, 169, 176, 118, 170, 178, 119, 170, 179, 121, 171, 181, 123, 172, 183, 125, 173, 184, 126, 174, 185, 128, 174, 187, 130, 175, 188, 132, 176, 190, 134, 177, 191, 135, 177, 193, 137, 178, 194, 139, 179, 195, 141, 180, 197, 142, 180, 198, 144, 181, 200, 146, 182, 201, 148, 182, 202, 149, 183, 204, 151, 184, 205, 153, 185, 206, 155, 185, 207, 156, 186, 209, 158, 187, 210, 160, 187, 211, 161, 188, 213, 163, 189, 214, 165, 189, 215, 166, 190, 216, 168, 191, 218, 170, 191, 219, 171, 192, 220, 173, 193, 221, 175, 193, 223, 176, 194, 224, 178, 195, 225, 180, 195, 226, 181, 196, 228, 183, 197, 229, 185, 198, 230, 187, 198, 231, 188, 199, 233, 190, 200, 234, 192, 200, 236, 194, 201, 237, 196, 202, 238, 198, 203, 240, 200, 204, 241, 202, 204, 243, 204, 205, 244, 206, 206, 246, 208, 207, 247, 210, 208, 249, 212, 209, 250, 215, 209, 252, 217, 210, 253, 219, 211, 255], shape(glasgow), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: glasgow10 = reshape([54, 19, 56, 79, 26, 35, 107, 38, 11, 116, 69, 0, 113, 99, 17, 104, 124, 72, 96, 146, 125, 116, 169, 176, 166, 190, 216, 219, 211, 255], shape(glasgow10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: glasgow100 = reshape([54, 19, 56, 57, 20, 54, 59, 20, 52, 62, 21, 50, 64, 21, 48, 66, 22, 46, 68, 23, 44, 70, 23, 42, 73, 24, 40, 75, 25, 38, 77, 25, 36, 79, 26, 35, 81, 27, 33, 83, 27, 31, 86, 28, 29, 88, 29, 27, 90, 29, 25, 93, 30, 23, 95, 31, 21, 98, 33, 19, 102, 34, 16, 104, 36, 14, 107, 38, 11, 108, 40, 10, 111, 43, 7, 112, 45, 6, 114, 49, 4, 115, 52, 3, 116, 55, 2, 116, 58, 1, 116, 60, 1, 117, 64, 1, 117, 66, 0, 116, 69, 0, 116, 73, 0, 116, 75, 0, 116, 78, 1, 116, 80, 1, 116, 83, 2, 116, 85, 3, 115, 88, 4, 115, 91, 7, 114, 94, 10, 114, 97, 14, 113, 99, 17, 113, 102, 23, 112, 103, 26, 111, 106, 32, 110, 109, 37, 110, 111, 41, 109, 113, 47, 108, 115, 50, 107, 117, 56, 106, 120, 62, 105, 122, 66, 104, 124, 72, 104, 125, 76, 103, 128, 81, 102, 129, 85, 101, 132, 91, 100, 134, 97, 100, 136, 100, 99, 138, 106, 98, 139, 110, 97, 142, 116, 97, 143, 120, 96, 146, 125, 96, 148, 131, 95, 149, 135, 96, 152, 140, 96, 153, 144, 98, 156, 150, 99, 158, 154, 102, 160, 159, 105, 163, 165, 108, 165, 168, 113, 167, 173, 116, 169, 176, 121, 171, 181, 125, 173, 184, 130, 175, 188, 135, 177, 193, 139, 179, 195, 144, 181, 200, 148, 182, 202, 153, 185, 206, 158, 187, 210, 161, 188, 213, 166, 190, 216, 170, 191, 219, 175, 193, 223, 178, 195, 225, 183, 197, 229, 188, 199, 233, 192, 200, 236, 198, 203, 240, 202, 204, 243, 208, 207, 247, 212, 209, 250, 219, 211, 255], shape(glasgow100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: glasgow25 = reshape([54, 19, 56, 64, 22, 47, 73, 24, 40, 82, 27, 32, 92, 30, 24, 103, 35, 15, 112, 45, 6, 116, 57, 1, 116, 69, 0, 116, 81, 1, 115, 91, 7, 112, 102, 24, 109, 112, 45, 106, 121, 64, 102, 129, 85, 99, 137, 104, 96, 146, 125, 97, 154, 146, 105, 163, 165, 123, 172, 183, 142, 180, 198, 160, 187, 211, 178, 195, 225, 196, 202, 238, 219, 211, 255], shape(glasgow25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: glasgow50 = reshape([54, 19, 56, 59, 20, 52, 64, 21, 48, 69, 23, 44, 73, 24, 40, 77, 25, 36, 81, 27, 33, 86, 28, 29, 91, 30, 24, 96, 32, 20, 102, 34, 16, 107, 38, 11, 111, 43, 7, 114, 50, 3, 116, 56, 2, 116, 62, 1, 117, 67, 0, 116, 73, 0, 116, 79, 1, 116, 84, 2, 115, 89, 5, 114, 95, 11, 113, 100, 19, 112, 105, 30, 110, 110, 39, 108, 114, 49, 107, 118, 58, 105, 123, 70, 103, 127, 79, 101, 131, 89, 100, 135, 99, 98, 139, 108, 97, 143, 120, 96, 147, 129, 96, 151, 138, 97, 155, 148, 101, 159, 157, 108, 165, 168, 116, 169, 176, 125, 173, 184, 134, 177, 191, 142, 180, 198, 153, 185, 206, 161, 188, 213, 170, 191, 219, 178, 195, 225, 187, 198, 231, 198, 203, 240, 208, 207, 247, 219, 211, 255], shape(glasgow50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: glasgowS = reshape([54, 19, 56, 219, 211, 255, 109, 112, 45, 112, 45, 6, 105, 163, 165, 82, 27, 32, 160, 187, 211, 116, 81, 1, 99, 138, 106, 132, 176, 190, 104, 125, 76, 69, 23, 44, 97, 32, 19, 114, 98, 16, 187, 198, 231, 117, 64, 1, 96, 150, 137, 112, 105, 30, 101, 132, 91, 202, 204, 243, 115, 89, 5, 106, 37, 12, 173, 193, 221, 146, 182, 201, 118, 170, 178, 106, 119, 60, 116, 55, 2, 116, 73, 0, 75, 25, 38, 62, 21, 50, 96, 144, 121, 89, 29, 26, 98, 156, 150, 93, 30, 23, 108, 116, 52, 72, 24, 41, 58, 20, 53, 86, 28, 29, 97, 141, 114, 79, 26, 35, 101, 159, 157, 100, 135, 99, 102, 34, 16, 116, 77, 0, 113, 102, 23, 114, 50, 3, 153, 185, 206, 105, 122, 68, 65, 22, 47, 139, 179, 195, 194, 201, 237, 116, 59, 1, 166, 190, 216, 116, 85, 3, 109, 41, 9, 96, 147, 129, 210, 208, 249, 125, 173, 184, 110, 109, 37, 111, 166, 171, 114, 94, 10, 180, 195, 226, 102, 129, 83, 117, 68, 0, 96, 153, 142, 116, 83, 2, 80, 26, 33, 97, 142, 118, 110, 111, 41, 67, 22, 45, 106, 121, 64, 116, 62, 1, 156, 186, 209, 56, 19, 55, 104, 36, 14, 170, 191, 219, 111, 43, 7, 116, 75, 0, 115, 87, 4, 135, 177, 193, 101, 133, 95, 142, 180, 198, 74, 24, 39, 99, 33, 18, 96, 146, 125, 70, 23, 42, 114, 168, 175, 99, 136, 102, 128, 174, 187, 95, 31, 21, 108, 165, 168, 121, 171, 181, 183, 197, 229, 113, 100, 19, 108, 39, 11, 116, 70, 0, 116, 79, 1, 111, 107, 33, 115, 91, 7, 95, 149, 133], shape(glasgowS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: grayC = reshape([0, 0, 0, 2, 2, 2, 4, 4, 4, 5, 5, 5, 7, 7, 7, 9, 9, 9, 11, 11, 11, 13, 13, 13, 14, 14, 14, 15, 15, 15, 17, 17, 17, 18, 18, 18, 19, 19, 19, 20, 20, 20, 21, 21, 21, 22, 22, 22, 23, 23, 23, 24, 24, 24, 25, 25, 25, 26, 26, 26, 27, 27, 27, 28, 28, 28, 29, 29, 29, 30, 30, 30, 31, 31, 31, 32, 32, 32, 33, 33, 33, 34, 34, 34, 35, 35, 35, 36, 36, 36, 36, 36, 36, 37, 37, 37, 38, 38, 38, 39, 39, 39, 40, 40, 40, 41, 41, 41, 42, 42, 42, 43, 43, 43, 44, 44, 44, 45, 45, 45, 46, 46, 46, 47, 47, 47, 48, 48, 48, 49, 49, 49, 49, 49, 49, 50, 50, 50, 51, 51, 51, 52, 52, 52, 53, 53, 53, 54, 54, 54, 55, 55, 55, 56, 56, 56, 57, 57, 57, 58, 58, 58, 59, 59, 59, 59, 59, 59, 60, 60, 60, 61, 61, 61, 62, 62, 62, 63, 63, 63, 64, 64, 64, 65, 65, 65, 66, 66, 66, 67, 67, 67, 68, 68, 68, 68, 68, 68, 69, 69, 69, 70, 70, 70, 71, 71, 71, 72, 72, 72, 73, 73, 73, 74, 74, 74, 75, 75, 75, 75, 75, 75, 76, 76, 76, 77, 77, 77, 78, 78, 78, 79, 79, 79, 80, 80, 80, 81, 81, 81, 81, 81, 81, 82, 82, 82, 83, 83, 83, 84, 84, 84, 85, 85, 85, 86, 86, 86, 86, 86, 86, 87, 87, 87, 88, 88, 88, 89, 89, 89, 90, 90, 90, 91, 91, 91, 91, 91, 91, 92, 92, 92, 93, 93, 93, 94, 94, 94, 95, 95, 95, 95, 95, 95, 96, 96, 96, 97, 97, 97, 98, 98, 98, 99, 99, 99, 99, 99, 99, 100, 100, 100, 101, 101, 101, 102, 102, 102, 103, 103, 103, 103, 103, 103, 104, 104, 104, 105, 105, 105, 106, 106, 106, 106, 106, 106, 107, 107, 107, 108, 108, 108, 109, 109, 109, 110, 110, 110, 110, 110, 110, 111, 111, 111, 112, 112, 112, 113, 113, 113, 113, 113, 113, 114, 114, 114, 115, 115, 115, 116, 116, 116, 116, 116, 116, 117, 117, 117, 118, 118, 118, 119, 119, 119, 119, 119, 119, 120, 120, 120, 121, 121, 121, 122, 122, 122, 122, 122, 122, 123, 123, 123, 124, 124, 124, 125, 125, 125, 125, 125, 125, 126, 126, 126, 127, 127, 127, 128, 128, 128, 128, 128, 128, 129, 129, 129, 130, 130, 130, 131, 131, 131, 132, 132, 132, 132, 132, 132, 133, 133, 133, 134, 134, 134, 135, 135, 135, 136, 136, 136, 136, 136, 136, 137, 137, 137, 138, 138, 138, 139, 139, 139, 140, 140, 140, 141, 141, 141, 142, 142, 142, 142, 142, 142, 143, 143, 143, 144, 144, 144, 145, 145, 145, 146, 146, 146, 147, 147, 147, 148, 148, 148, 149, 149, 149, 149, 149, 149, 150, 150, 150, 151, 151, 151, 152, 152, 152, 153, 153, 153, 154, 154, 154, 155, 155, 155, 156, 156, 156, 157, 157, 157, 158, 158, 158, 159, 159, 159, 160, 160, 160, 161, 161, 161, 162, 162, 162, 163, 163, 163, 164, 164, 164, 165, 165, 165, 166, 166, 166, 167, 167, 167, 168, 168, 168, 169, 169, 169, 170, 170, 170, 171, 171, 171, 172, 172, 172, 173, 173, 173, 174, 174, 174, 175, 175, 175, 176, 176, 176, 177, 177, 177, 178, 178, 178, 179, 179, 179, 180, 180, 180, 181, 181, 181, 182, 182, 182, 183, 183, 183, 184, 184, 184, 185, 185, 185, 187, 187, 187, 188, 188, 188, 189, 189, 189, 190, 190, 190, 191, 191, 191, 192, 192, 192, 193, 193, 193, 195, 195, 195, 196, 196, 196, 197, 197, 197, 198, 198, 198, 199, 199, 199, 200, 200, 200, 202, 202, 202, 203, 203, 203, 204, 204, 204, 205, 205, 205, 206, 206, 206, 208, 208, 208, 209, 209, 209, 210, 210, 210, 211, 211, 211, 213, 213, 213, 214, 214, 214, 215, 215, 215, 216, 216, 216, 218, 218, 218, 219, 219, 219, 220, 220, 220, 222, 222, 222, 223, 223, 223, 224, 224, 224, 226, 226, 226, 227, 227, 227, 228, 228, 228, 230, 230, 230, 231, 231, 231, 232, 232, 232, 234, 234, 234, 235, 235, 235, 236, 236, 236, 238, 238, 238, 239, 239, 239, 241, 241, 241, 242, 242, 242, 243, 243, 243, 245, 245, 245, 246, 246, 246, 248, 248, 248, 249, 249, 249, 251, 251, 251, 252, 252, 252, 254, 254, 254, 255, 255, 255], shape(grayC), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: grayC10 = reshape([0, 0, 0, 35, 35, 35, 61, 61, 61, 86, 86, 86, 108, 108, 108, 130, 130, 130, 154, 154, 154, 182, 182, 182, 216, 216, 216, 255, 255, 255], shape(grayC10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: grayC100 = reshape([0, 0, 0, 5, 5, 5, 9, 9, 9, 14, 14, 14, 17, 17, 17, 20, 20, 20, 22, 22, 22, 25, 25, 25, 28, 28, 28, 30, 30, 30, 33, 33, 33, 35, 35, 35, 37, 37, 37, 39, 39, 39, 42, 42, 42, 45, 45, 45, 47, 47, 47, 49, 49, 49, 51, 51, 51, 54, 54, 54, 57, 57, 57, 59, 59, 59, 61, 61, 61, 63, 63, 63, 66, 66, 66, 68, 68, 68, 70, 70, 70, 73, 73, 73, 75, 75, 75, 77, 77, 77, 79, 79, 79, 81, 81, 81, 83, 83, 83, 86, 86, 86, 88, 88, 88, 90, 90, 90, 92, 92, 92, 94, 94, 94, 96, 96, 96, 98, 98, 98, 100, 100, 100, 103, 103, 103, 104, 104, 104, 106, 106, 106, 108, 108, 108, 110, 110, 110, 112, 112, 112, 114, 114, 114, 116, 116, 116, 118, 118, 118, 120, 120, 120, 122, 122, 122, 124, 124, 124, 126, 126, 126, 128, 128, 128, 130, 130, 130, 132, 132, 132, 134, 134, 134, 136, 136, 136, 138, 138, 138, 141, 141, 141, 142, 142, 142, 145, 145, 145, 147, 147, 147, 149, 149, 149, 151, 151, 151, 154, 154, 154, 157, 157, 157, 159, 159, 159, 162, 162, 162, 164, 164, 164, 167, 167, 167, 169, 169, 169, 172, 172, 172, 175, 175, 175, 177, 177, 177, 180, 180, 180, 182, 182, 182, 185, 185, 185, 188, 188, 188, 191, 191, 191, 195, 195, 195, 197, 197, 197, 200, 200, 200, 203, 203, 203, 206, 206, 206, 210, 210, 210, 213, 213, 213, 216, 216, 216, 219, 219, 219, 223, 223, 223, 226, 226, 226, 230, 230, 230, 234, 234, 234, 236, 236, 236, 241, 241, 241, 243, 243, 243, 248, 248, 248, 251, 251, 251, 255, 255, 255], shape(grayC100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: grayC25 = reshape([0, 0, 0, 18, 18, 18, 28, 28, 28, 38, 38, 38, 49, 49, 49, 58, 58, 58, 68, 68, 68, 76, 76, 76, 86, 86, 86, 95, 95, 95, 103, 103, 103, 111, 111, 111, 119, 119, 119, 127, 127, 127, 136, 136, 136, 144, 144, 144, 154, 154, 154, 165, 165, 165, 175, 175, 175, 187, 187, 187, 199, 199, 199, 211, 211, 211, 226, 226, 226, 239, 239, 239, 255, 255, 255], shape(grayC25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: grayC50 = reshape([0, 0, 0, 9, 9, 9, 17, 17, 17, 23, 23, 23, 28, 28, 28, 33, 33, 33, 37, 37, 37, 42, 42, 42, 48, 48, 48, 52, 52, 52, 57, 57, 57, 61, 61, 61, 66, 66, 66, 71, 71, 71, 75, 75, 75, 80, 80, 80, 84, 84, 84, 88, 88, 88, 93, 93, 93, 97, 97, 97, 101, 101, 101, 105, 105, 105, 109, 109, 109, 113, 113, 113, 117, 117, 117, 121, 121, 121, 125, 125, 125, 129, 129, 129, 133, 133, 133, 137, 137, 137, 142, 142, 142, 146, 146, 146, 151, 151, 151, 156, 156, 156, 161, 161, 161, 166, 166, 166, 171, 171, 171, 177, 177, 177, 182, 182, 182, 188, 188, 188, 193, 193, 193, 199, 199, 199, 206, 206, 206, 213, 213, 213, 219, 219, 219, 226, 226, 226, 232, 232, 232, 241, 241, 241, 248, 248, 248, 255, 255, 255], shape(grayC50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: grayCS = reshape([7, 7, 7, 249, 249, 249, 119, 119, 119, 69, 69, 69, 173, 173, 173, 208, 208, 208, 41, 41, 41, 95, 95, 95, 143, 143, 143, 107, 107, 107, 157, 157, 157, 27, 27, 27, 189, 189, 189, 55, 55, 55, 82, 82, 82, 227, 227, 227, 131, 131, 131, 238, 238, 238, 113, 113, 113, 89, 89, 89, 62, 62, 62, 198, 198, 198, 19, 19, 19, 165, 165, 165, 136, 136, 136, 101, 101, 101, 216, 216, 216, 76, 76, 76, 181, 181, 181, 49, 49, 49, 150, 150, 150, 125, 125, 125, 34, 34, 34, 104, 104, 104, 147, 147, 147, 128, 128, 128, 59, 59, 59, 140, 140, 140, 222, 222, 222, 14, 14, 14, 45, 45, 45, 193, 193, 193, 23, 23, 23, 66, 66, 66, 92, 92, 92, 232, 232, 232, 169, 169, 169, 37, 37, 37, 110, 110, 110, 86, 86, 86, 116, 116, 116, 73, 73, 73, 243, 243, 243, 203, 203, 203, 177, 177, 177, 161, 161, 161, 98, 98, 98, 30, 30, 30, 51, 51, 51, 79, 79, 79, 122, 122, 122, 134, 134, 134, 185, 185, 185, 154, 154, 154, 211, 211, 211, 138, 138, 138, 39, 39, 39, 32, 32, 32, 17, 17, 17, 60, 60, 60, 129, 129, 129, 205, 205, 205, 87, 87, 87, 64, 64, 64, 25, 25, 25, 235, 235, 235, 81, 81, 81, 152, 152, 152, 71, 71, 71, 84, 84, 84, 179, 179, 179, 57, 57, 57, 200, 200, 200, 43, 43, 43, 246, 246, 246, 159, 159, 159, 99, 99, 99, 214, 214, 214, 11, 11, 11, 175, 175, 175, 219, 219, 219, 142, 142, 142, 167, 167, 167, 115, 115, 115, 171, 171, 171, 21, 21, 21, 75, 75, 75, 53, 53, 53, 91, 91, 91, 230, 230, 230], shape(grayCS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: hawaii = reshape([140, 2, 115, 141, 4, 114, 141, 6, 113, 141, 8, 112, 141, 10, 111, 142, 13, 110, 142, 14, 109, 142, 16, 108, 142, 18, 107, 142, 19, 106, 143, 21, 105, 143, 22, 104, 143, 24, 103, 143, 25, 102, 143, 26, 101, 144, 28, 100, 144, 29, 99, 144, 30, 99, 144, 31, 98, 144, 32, 97, 144, 33, 96, 145, 35, 95, 145, 36, 94, 145, 37, 93, 145, 38, 92, 145, 39, 91, 145, 40, 90, 146, 41, 90, 146, 42, 89, 146, 43, 88, 146, 44, 87, 146, 45, 86, 146, 46, 85, 146, 47, 84, 147, 48, 84, 147, 49, 83, 147, 50, 82, 147, 51, 81, 147, 52, 80, 147, 53, 80, 147, 54, 79, 148, 55, 78, 148, 56, 77, 148, 57, 77, 148, 58, 76, 148, 59, 75, 148, 60, 74, 148, 61, 74, 149, 62, 73, 149, 63, 72, 149, 64, 71, 149, 65, 71, 149, 66, 70, 149, 67, 69, 149, 68, 69, 149, 69, 68, 150, 70, 67, 150, 71, 66, 150, 72, 66, 150, 73, 65, 150, 74, 64, 150, 75, 64, 150, 76, 63, 150, 77, 62, 151, 78, 62, 151, 79, 61, 151, 80, 60, 151, 81, 60, 151, 82, 59, 151, 83, 58, 151, 83, 58, 151, 84, 57, 152, 85, 56, 152, 86, 56, 152, 87, 55, 152, 88, 54, 152, 89, 54, 152, 90, 53, 152, 92, 52, 153, 93, 52, 153, 94, 51, 153, 95, 50, 153, 96, 50, 153, 97, 49, 153, 98, 48, 153, 99, 48, 153, 100, 47, 154, 101, 46, 154, 102, 46, 154, 103, 45, 154, 104, 44, 154, 105, 44, 154, 106, 43, 154, 107, 42, 155, 108, 42, 155, 109, 41, 155, 111, 40, 155, 112, 40, 155, 113, 39, 155, 114, 38, 155, 115, 38, 155, 116, 37, 156, 117, 36, 156, 119, 36, 156, 120, 35, 156, 121, 35, 156, 122, 34, 156, 123, 33, 156, 125, 33, 156, 126, 32, 156, 127, 32, 156, 128, 31, 157, 129, 31, 157, 131, 30, 157, 132, 30, 157, 133, 29, 157, 135, 29, 157, 136, 29, 157, 137, 28, 157, 138, 28, 157, 140, 28, 157, 141, 28, 157, 142, 28, 157, 144, 28, 156, 145, 28, 156, 146, 28, 156, 148, 28, 156, 149, 28, 156, 150, 28, 156, 152, 29, 155, 153, 29, 155, 154, 30, 155, 156, 31, 155, 157, 31, 154, 159, 32, 154, 160, 33, 154, 161, 34, 153, 163, 35, 153, 164, 36, 152, 165, 38, 152, 166, 39, 151, 168, 40, 151, 169, 42, 150, 170, 43, 149, 171, 45, 149, 173, 46, 148, 174, 48, 147, 175, 50, 147, 176, 51, 146, 177, 53, 145, 179, 55, 145, 180, 57, 144, 181, 59, 143, 182, 60, 142, 183, 62, 141, 184, 64, 140, 185, 66, 140, 186, 68, 139, 187, 70, 138, 188, 72, 137, 189, 74, 136, 190, 76, 135, 190, 78, 134, 191, 80, 133, 192, 82, 132, 193, 84, 131, 194, 87, 130, 195, 89, 130, 195, 91, 129, 196, 93, 128, 197, 95, 127, 198, 97, 126, 198, 99, 125, 199, 101, 124, 200, 103, 123, 201, 105, 122, 201, 108, 121, 202, 110, 120, 203, 112, 119, 204, 114, 118, 204, 116, 117, 205, 118, 116, 206, 121, 115, 206, 123, 114, 207, 125, 113, 208, 127, 112, 208, 129, 112, 209, 131, 111, 210, 134, 110, 210, 136, 109, 211, 138, 108, 212, 140, 107, 212, 142, 106, 213, 145, 105, 214, 147, 104, 214, 149, 104, 215, 151, 103, 216, 153, 102, 216, 156, 101, 217, 158, 100, 218, 160, 100, 218, 162, 99, 219, 165, 98, 220, 167, 98, 220, 169, 97, 221, 171, 97, 222, 174, 96, 222, 176, 96, 223, 178, 96, 224, 180, 95, 224, 183, 95, 225, 185, 95, 226, 187, 95, 226, 189, 95, 227, 192, 95, 228, 194, 96, 228, 196, 96, 229, 198, 97, 229, 200, 97, 230, 202, 98, 231, 205, 99, 231, 207, 100, 232, 209, 102, 232, 211, 103, 233, 213, 104, 233, 215, 106, 234, 217, 108, 235, 219, 109, 235, 220, 111, 235, 222, 113, 236, 224, 115, 236, 226, 118, 237, 227, 120, 237, 229, 122, 238, 231, 125, 238, 232, 127, 238, 234, 130, 239, 235, 132, 239, 236, 135, 239, 238, 138, 240, 239, 141, 240, 240, 143, 240, 241, 146, 240, 243, 149, 241, 244, 152, 241, 245, 154, 241, 246, 157, 241, 247, 160, 241, 248, 163, 241, 249, 166, 241, 249, 168, 242, 250, 171, 242, 251, 174, 242, 252, 177, 242, 253, 179, 242, 253], shape(hawaii), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: hawaii10 = reshape([140, 2, 115, 146, 42, 89, 150, 71, 66, 153, 99, 48, 157, 131, 30, 151, 169, 42, 128, 197, 95, 102, 216, 156, 108, 235, 219, 179, 242, 253], shape(hawaii10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: hawaii100 = reshape([140, 2, 115, 141, 8, 112, 142, 13, 110, 142, 18, 107, 143, 21, 105, 143, 25, 102, 144, 28, 100, 144, 31, 98, 145, 35, 95, 145, 37, 93, 145, 40, 90, 146, 42, 89, 146, 45, 86, 146, 47, 84, 147, 50, 82, 147, 53, 80, 148, 55, 78, 148, 58, 76, 148, 60, 74, 149, 63, 72, 149, 66, 70, 149, 68, 69, 150, 71, 66, 150, 73, 65, 150, 76, 63, 151, 78, 62, 151, 81, 60, 151, 83, 58, 152, 85, 56, 152, 88, 54, 152, 90, 53, 153, 94, 51, 153, 96, 50, 153, 99, 48, 154, 102, 46, 154, 104, 44, 154, 107, 42, 155, 109, 41, 155, 113, 39, 155, 115, 38, 156, 119, 36, 156, 122, 34, 156, 125, 33, 156, 128, 31, 157, 131, 30, 157, 135, 29, 157, 137, 28, 157, 141, 28, 156, 145, 28, 156, 148, 28, 156, 152, 29, 155, 154, 30, 154, 159, 32, 153, 163, 35, 152, 165, 38, 151, 169, 42, 149, 171, 45, 147, 175, 50, 146, 177, 53, 144, 181, 59, 141, 184, 64, 140, 186, 68, 137, 189, 74, 135, 190, 78, 132, 193, 84, 130, 195, 89, 128, 197, 95, 125, 199, 101, 123, 201, 105, 120, 203, 112, 118, 204, 116, 115, 206, 123, 113, 208, 127, 111, 210, 134, 108, 212, 140, 106, 213, 145, 104, 215, 151, 102, 216, 156, 100, 218, 162, 98, 220, 167, 97, 222, 174, 96, 224, 180, 95, 225, 185, 95, 227, 192, 96, 228, 196, 97, 230, 202, 100, 232, 209, 103, 233, 213, 108, 235, 219, 111, 235, 222, 118, 237, 227, 122, 238, 231, 130, 239, 235, 138, 240, 239, 143, 240, 241, 152, 241, 245, 157, 241, 247, 166, 241, 249, 171, 242, 251, 179, 242, 253], shape(hawaii100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: hawaii25 = reshape([140, 2, 115, 143, 22, 104, 145, 35, 95, 146, 46, 85, 148, 57, 77, 149, 67, 69, 151, 78, 62, 152, 87, 55, 153, 99, 48, 155, 111, 40, 156, 122, 34, 157, 136, 29, 156, 150, 28, 153, 164, 36, 146, 177, 53, 138, 188, 72, 128, 197, 95, 117, 205, 118, 108, 212, 140, 99, 219, 165, 95, 226, 189, 102, 232, 211, 122, 238, 231, 149, 241, 244, 179, 242, 253], shape(hawaii25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: hawaii50 = reshape([140, 2, 115, 142, 13, 110, 143, 21, 105, 144, 29, 99, 145, 35, 95, 145, 40, 90, 146, 45, 86, 147, 50, 82, 148, 56, 77, 148, 61, 74, 149, 66, 70, 150, 71, 66, 150, 76, 63, 151, 82, 59, 152, 86, 56, 152, 92, 52, 153, 97, 49, 154, 102, 46, 155, 108, 42, 155, 114, 38, 156, 120, 35, 156, 126, 32, 157, 132, 30, 157, 140, 28, 156, 146, 28, 155, 153, 29, 154, 160, 33, 151, 168, 40, 148, 174, 48, 145, 180, 57, 140, 185, 66, 136, 190, 76, 130, 195, 89, 126, 198, 99, 121, 202, 110, 116, 206, 121, 112, 209, 131, 106, 213, 145, 102, 216, 156, 98, 220, 167, 96, 223, 178, 95, 226, 189, 97, 230, 202, 103, 233, 213, 111, 235, 222, 122, 238, 231, 135, 239, 238, 152, 241, 245, 166, 241, 249, 179, 242, 253], shape(hawaii50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: hawaiiS = reshape([140, 2, 115, 179, 242, 253, 156, 150, 28, 151, 78, 62, 107, 212, 142, 146, 46, 85, 137, 189, 74, 155, 111, 40, 103, 233, 213, 122, 201, 108, 149, 62, 73, 96, 223, 178, 149, 171, 45, 144, 29, 99, 153, 94, 51, 157, 129, 31, 135, 239, 238, 147, 54, 79, 96, 228, 196, 157, 241, 247, 157, 140, 28, 142, 18, 107, 156, 120, 35, 150, 70, 67, 100, 218, 160, 152, 85, 56, 114, 207, 125, 130, 195, 91, 144, 181, 59, 145, 38, 92, 154, 102, 46, 154, 161, 34, 115, 236, 226, 152, 166, 39, 151, 82, 59, 146, 42, 89, 148, 58, 76, 153, 98, 48, 156, 145, 28, 156, 125, 33, 155, 156, 31, 118, 204, 116, 157, 135, 29, 141, 10, 111, 143, 24, 103, 147, 176, 51, 168, 242, 250, 126, 198, 99, 125, 238, 232, 152, 89, 54, 154, 106, 43, 98, 231, 205, 98, 220, 169, 155, 115, 38, 95, 226, 187, 150, 74, 64, 140, 185, 66, 149, 66, 70, 133, 192, 82, 104, 215, 151, 144, 33, 96, 147, 50, 82, 111, 210, 134, 146, 240, 243, 108, 235, 219, 143, 26, 101, 149, 64, 71, 135, 190, 78, 152, 92, 52, 147, 52, 80, 149, 68, 69, 152, 241, 245, 153, 100, 47, 151, 83, 58, 124, 200, 103, 141, 6, 113, 145, 40, 90, 155, 113, 39, 152, 87, 55, 109, 211, 138, 112, 208, 129, 100, 232, 209, 148, 174, 48, 145, 179, 55, 153, 164, 36, 97, 229, 200, 157, 137, 28, 156, 122, 34, 139, 187, 70, 153, 96, 50, 145, 36, 94, 156, 127, 32, 150, 72, 66, 116, 206, 121, 95, 224, 183, 156, 148, 28, 128, 197, 95, 151, 80, 60, 154, 159, 32, 155, 108, 42], shape(hawaiiS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: imola = reshape([26, 51, 179, 26, 52, 178, 27, 53, 178, 27, 53, 177, 28, 54, 177, 28, 55, 177, 28, 55, 176, 29, 56, 176, 29, 57, 176, 30, 57, 175, 30, 58, 175, 30, 59, 175, 31, 60, 174, 31, 60, 174, 31, 61, 174, 32, 62, 173, 32, 62, 173, 32, 63, 173, 33, 64, 172, 33, 64, 172, 33, 65, 172, 34, 66, 171, 34, 66, 171, 34, 67, 171, 35, 68, 170, 35, 68, 170, 35, 69, 170, 36, 70, 169, 36, 70, 169, 36, 71, 169, 37, 72, 168, 37, 72, 168, 37, 73, 168, 38, 74, 167, 38, 74, 167, 38, 75, 167, 39, 76, 166, 39, 76, 166, 39, 77, 166, 40, 78, 165, 40, 78, 165, 40, 79, 165, 41, 80, 164, 41, 80, 164, 41, 81, 164, 42, 82, 163, 42, 82, 163, 42, 83, 163, 43, 83, 162, 43, 84, 162, 43, 85, 162, 44, 85, 161, 44, 86, 161, 44, 87, 161, 45, 87, 160, 45, 88, 160, 45, 89, 160, 46, 89, 159, 46, 90, 159, 46, 91, 159, 47, 91, 158, 47, 92, 158, 47, 93, 158, 48, 93, 157, 48, 94, 157, 48, 95, 156, 49, 95, 156, 49, 96, 156, 50, 96, 155, 50, 97, 155, 50, 98, 155, 51, 98, 154, 51, 99, 154, 52, 100, 153, 52, 100, 153, 52, 101, 152, 53, 101, 152, 53, 102, 152, 54, 103, 151, 54, 103, 151, 55, 104, 150, 55, 104, 150, 56, 105, 149, 56, 106, 149, 57, 106, 148, 57, 107, 148, 58, 107, 147, 58, 108, 147, 59, 108, 146, 59, 109, 146, 60, 110, 145, 60, 110, 145, 61, 111, 144, 61, 111, 144, 62, 112, 143, 62, 112, 143, 63, 113, 142, 64, 114, 141, 64, 114, 141, 65, 115, 140, 65, 115, 140, 66, 116, 139, 66, 116, 139, 67, 117, 138, 68, 118, 138, 68, 118, 137, 69, 119, 137, 69, 119, 136, 70, 120, 136, 70, 121, 135, 71, 121, 135, 72, 122, 134, 72, 123, 134, 73, 123, 133, 74, 124, 133, 74, 125, 132, 75, 125, 132, 76, 126, 131, 76, 127, 131, 77, 127, 130, 78, 128, 130, 78, 129, 129, 79, 129, 129, 80, 130, 129, 81, 131, 128, 81, 132, 128, 82, 133, 128, 83, 133, 127, 84, 134, 127, 85, 135, 127, 86, 136, 126, 86, 137, 126, 87, 138, 126, 88, 138, 125, 89, 139, 125, 90, 140, 125, 91, 141, 125, 92, 142, 124, 92, 143, 124, 93, 144, 124, 94, 145, 123, 95, 146, 123, 96, 146, 123, 97, 147, 123, 98, 148, 122, 99, 149, 122, 100, 150, 122, 101, 151, 122, 102, 152, 122, 103, 153, 121, 103, 154, 121, 104, 155, 121, 105, 156, 121, 106, 157, 120, 107, 158, 120, 108, 159, 120, 109, 160, 120, 110, 161, 119, 111, 162, 119, 112, 163, 119, 113, 164, 119, 114, 165, 118, 115, 166, 118, 116, 167, 118, 117, 168, 118, 118, 169, 117, 119, 170, 117, 120, 171, 117, 121, 172, 117, 122, 173, 116, 123, 174, 116, 124, 175, 116, 125, 176, 116, 126, 177, 115, 127, 178, 115, 128, 179, 115, 129, 180, 115, 130, 181, 114, 131, 182, 114, 132, 183, 114, 133, 184, 114, 134, 185, 113, 135, 186, 113, 136, 187, 113, 137, 188, 113, 138, 189, 112, 139, 190, 112, 140, 191, 112, 141, 192, 112, 142, 193, 111, 144, 194, 111, 145, 195, 111, 146, 196, 110, 147, 198, 110, 148, 199, 110, 149, 200, 110, 150, 201, 109, 151, 202, 109, 152, 203, 109, 153, 204, 109, 155, 205, 108, 156, 206, 108, 157, 207, 108, 158, 208, 108, 159, 210, 107, 161, 211, 107, 162, 212, 107, 163, 213, 107, 164, 214, 106, 166, 215, 106, 167, 216, 106, 169, 217, 106, 170, 218, 105, 172, 219, 105, 173, 221, 105, 175, 222, 105, 176, 223, 104, 178, 224, 104, 180, 225, 104, 181, 226, 104, 183, 227, 104, 185, 228, 104, 187, 229, 103, 189, 230, 103, 191, 231, 103, 192, 232, 103, 194, 233, 103, 196, 234, 103, 198, 235, 103, 200, 235, 103, 202, 236, 103, 205, 237, 102, 207, 238, 102, 209, 239, 102, 211, 240, 102, 213, 240, 102, 215, 241, 102, 217, 242, 102, 219, 243, 102, 221, 244, 102, 223, 244, 102, 226, 245, 102, 228, 246, 102, 230, 246, 102, 232, 247, 102, 234, 248, 102, 236, 249, 102, 238, 249, 102, 240, 250, 102, 242, 251, 102, 245, 251, 102, 247, 252, 102, 249, 253, 102, 251, 254, 102, 253, 254, 102, 255, 255, 102], shape(imola), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: imola10 = reshape([26, 51, 179, 36, 70, 169, 46, 89, 159, 57, 107, 148, 73, 123, 133, 96, 146, 123, 123, 174, 116, 152, 203, 109, 196, 234, 103, 255, 255, 102], shape(imola10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: imola100 = reshape([26, 51, 179, 27, 53, 177, 28, 55, 177, 29, 57, 176, 30, 58, 175, 31, 60, 174, 32, 62, 173, 33, 64, 172, 34, 66, 171, 34, 67, 171, 35, 69, 170, 36, 70, 169, 37, 72, 168, 38, 74, 167, 39, 76, 166, 40, 78, 165, 40, 79, 165, 41, 81, 164, 42, 82, 163, 43, 84, 162, 44, 86, 161, 45, 87, 160, 46, 89, 159, 46, 91, 159, 47, 93, 158, 48, 94, 157, 49, 96, 156, 50, 98, 155, 51, 99, 154, 52, 101, 152, 53, 102, 152, 55, 104, 150, 56, 105, 149, 57, 107, 148, 59, 108, 146, 60, 110, 145, 61, 111, 144, 62, 112, 143, 64, 114, 141, 65, 115, 140, 67, 117, 138, 69, 119, 137, 70, 120, 136, 72, 122, 134, 73, 123, 133, 75, 125, 132, 76, 127, 131, 78, 129, 129, 81, 131, 128, 82, 133, 128, 85, 135, 127, 86, 137, 126, 89, 139, 125, 92, 142, 124, 93, 144, 124, 96, 146, 123, 98, 148, 122, 101, 151, 122, 103, 153, 121, 105, 156, 121, 108, 159, 120, 110, 161, 119, 113, 164, 119, 115, 166, 118, 118, 169, 117, 120, 171, 117, 123, 174, 116, 126, 177, 115, 128, 179, 115, 131, 182, 114, 133, 184, 114, 136, 187, 113, 138, 189, 112, 141, 192, 112, 145, 195, 111, 147, 198, 110, 150, 201, 109, 152, 203, 109, 156, 206, 108, 158, 208, 108, 162, 212, 107, 166, 215, 106, 169, 217, 106, 173, 221, 105, 176, 223, 104, 181, 226, 104, 187, 229, 103, 191, 231, 103, 196, 234, 103, 200, 235, 103, 207, 238, 102, 211, 240, 102, 217, 242, 102, 223, 244, 102, 228, 246, 102, 234, 248, 102, 238, 249, 102, 245, 251, 102, 249, 253, 102, 255, 255, 102], shape(imola100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: imola25 = reshape([26, 51, 179, 30, 59, 175, 34, 66, 171, 37, 73, 168, 41, 80, 164, 44, 87, 161, 48, 94, 157, 52, 100, 153, 57, 107, 148, 63, 113, 142, 69, 119, 137, 76, 126, 131, 84, 134, 127, 92, 143, 124, 103, 153, 121, 112, 163, 119, 123, 174, 116, 134, 185, 113, 145, 195, 111, 157, 207, 108, 172, 219, 105, 189, 230, 103, 211, 240, 102, 232, 247, 102, 255, 255, 102], shape(imola25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: imola50 = reshape([26, 51, 179, 28, 55, 177, 30, 58, 175, 32, 62, 173, 34, 66, 171, 35, 69, 170, 37, 72, 168, 39, 76, 166, 41, 80, 164, 42, 83, 163, 44, 86, 161, 46, 89, 159, 47, 93, 158, 50, 96, 155, 52, 100, 153, 54, 103, 151, 56, 106, 149, 59, 108, 146, 62, 112, 143, 65, 115, 140, 68, 118, 138, 70, 121, 135, 74, 124, 133, 78, 128, 130, 81, 132, 128, 86, 136, 126, 90, 140, 125, 95, 146, 123, 100, 150, 122, 104, 155, 121, 109, 160, 120, 114, 165, 118, 120, 171, 117, 125, 176, 116, 130, 181, 114, 135, 186, 113, 140, 191, 112, 147, 198, 110, 152, 203, 109, 158, 208, 108, 164, 214, 106, 172, 219, 105, 181, 226, 104, 191, 231, 103, 200, 235, 103, 211, 240, 102, 221, 244, 102, 234, 248, 102, 245, 251, 102, 255, 255, 102], shape(imola50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: imolaS = reshape([26, 51, 179, 255, 255, 102, 84, 134, 127, 48, 94, 157, 145, 195, 111, 63, 113, 142, 189, 230, 103, 37, 73, 168, 113, 164, 119, 43, 83, 162, 221, 244, 102, 72, 123, 134, 32, 62, 173, 163, 213, 107, 98, 148, 122, 55, 104, 150, 128, 179, 115, 175, 222, 105, 45, 89, 160, 136, 187, 113, 205, 237, 102, 68, 118, 138, 59, 108, 146, 238, 249, 102, 91, 141, 125, 105, 156, 121, 40, 78, 165, 35, 68, 170, 51, 99, 154, 29, 57, 176, 78, 128, 130, 153, 204, 109, 121, 172, 117, 70, 120, 136, 140, 191, 112, 87, 138, 126, 117, 168, 118, 169, 217, 106, 102, 152, 122, 65, 115, 140, 61, 111, 144, 33, 65, 172, 230, 246, 102, 57, 106, 148, 53, 101, 152, 28, 54, 177, 94, 145, 123, 247, 252, 102, 44, 86, 161, 158, 208, 108, 36, 70, 169, 181, 226, 104, 149, 200, 110, 75, 125, 132, 39, 76, 166, 213, 240, 102, 41, 81, 164, 31, 60, 174, 109, 160, 120, 132, 183, 114, 50, 96, 155, 196, 234, 103, 81, 131, 128, 47, 91, 158, 124, 175, 116, 92, 143, 124, 37, 72, 168, 33, 64, 172, 54, 103, 151, 130, 181, 114, 76, 127, 131, 86, 136, 126, 31, 61, 174, 35, 69, 170, 62, 112, 143, 60, 110, 145, 251, 254, 102, 156, 206, 108, 126, 177, 115, 200, 235, 103, 89, 139, 125, 64, 114, 141, 192, 232, 103, 47, 93, 158, 42, 82, 163, 134, 185, 113, 49, 95, 156, 41, 80, 164, 56, 105, 149, 58, 107, 147, 27, 53, 178, 50, 98, 155, 147, 198, 110, 242, 251, 102, 52, 100, 153, 119, 170, 117, 234, 248, 102, 100, 150, 122, 69, 119, 137, 115, 166, 118], shape(imolaS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: lajolla = reshape([25, 25, 0, 26, 26, 1, 27, 26, 1, 28, 26, 1, 29, 27, 2, 30, 27, 2, 30, 27, 3, 31, 28, 3, 32, 28, 4, 33, 28, 4, 34, 28, 5, 35, 29, 5, 36, 29, 6, 36, 29, 7, 37, 30, 7, 38, 30, 8, 39, 30, 8, 40, 31, 9, 41, 31, 9, 42, 31, 10, 43, 32, 10, 44, 32, 11, 45, 32, 12, 46, 33, 12, 47, 33, 13, 48, 33, 13, 49, 34, 14, 50, 34, 15, 51, 34, 15, 52, 35, 16, 53, 35, 16, 54, 36, 17, 55, 36, 17, 57, 36, 18, 58, 37, 19, 59, 37, 19, 60, 38, 20, 61, 38, 20, 63, 38, 21, 64, 39, 22, 65, 39, 22, 67, 40, 23, 68, 40, 23, 69, 41, 24, 71, 41, 25, 72, 42, 26, 74, 42, 26, 75, 43, 27, 77, 43, 28, 78, 44, 29, 80, 44, 29, 81, 45, 30, 83, 45, 31, 84, 46, 32, 86, 46, 33, 87, 47, 33, 89, 47, 34, 91, 48, 35, 92, 48, 36, 94, 49, 37, 96, 50, 38, 97, 50, 39, 99, 51, 40, 101, 51, 41, 103, 52, 42, 105, 53, 43, 106, 53, 44, 108, 54, 44, 110, 54, 45, 112, 55, 46, 114, 56, 47, 116, 56, 48, 118, 57, 49, 120, 57, 50, 121, 58, 51, 123, 59, 52, 125, 59, 53, 127, 60, 54, 129, 60, 55, 131, 61, 56, 133, 62, 57, 135, 62, 58, 137, 63, 58, 139, 63, 59, 141, 64, 60, 143, 64, 61, 146, 65, 62, 148, 65, 62, 150, 66, 63, 152, 66, 64, 154, 67, 64, 156, 67, 65, 158, 68, 66, 160, 68, 66, 162, 69, 67, 164, 69, 68, 166, 70, 68, 168, 70, 69, 171, 71, 69, 173, 71, 70, 175, 72, 70, 177, 72, 71, 179, 73, 71, 181, 73, 71, 183, 74, 72, 185, 74, 72, 187, 75, 72, 188, 76, 73, 190, 76, 73, 192, 77, 73, 194, 77, 74, 196, 78, 74, 197, 79, 74, 199, 80, 75, 201, 81, 75, 202, 81, 75, 204, 82, 75, 205, 83, 76, 207, 84, 76, 208, 85, 76, 209, 86, 76, 210, 88, 76, 212, 89, 77, 213, 90, 77, 214, 91, 77, 215, 92, 77, 215, 94, 77, 216, 95, 77, 217, 96, 78, 218, 97, 78, 219, 99, 78, 219, 100, 78, 220, 101, 78, 220, 103, 78, 221, 104, 78, 221, 105, 79, 222, 107, 79, 222, 108, 79, 223, 109, 79, 223, 110, 79, 224, 112, 79, 224, 113, 79, 224, 114, 79, 225, 116, 79, 225, 117, 80, 225, 118, 80, 225, 119, 80, 226, 121, 80, 226, 122, 80, 226, 123, 80, 227, 124, 80, 227, 125, 80, 227, 127, 80, 227, 128, 80, 228, 129, 80, 228, 130, 81, 228, 131, 81, 228, 133, 81, 229, 134, 81, 229, 135, 81, 229, 136, 81, 229, 137, 81, 230, 139, 81, 230, 140, 81, 230, 141, 81, 230, 142, 81, 230, 143, 82, 231, 144, 82, 231, 146, 82, 231, 147, 82, 231, 148, 82, 232, 149, 82, 232, 150, 82, 232, 151, 82, 232, 152, 82, 233, 154, 82, 233, 155, 82, 233, 156, 82, 233, 157, 83, 234, 158, 83, 234, 159, 83, 234, 161, 83, 234, 162, 83, 235, 163, 83, 235, 164, 83, 235, 165, 83, 235, 166, 83, 235, 168, 83, 236, 169, 83, 236, 170, 84, 236, 171, 84, 236, 172, 84, 237, 174, 84, 237, 175, 84, 237, 176, 84, 237, 177, 84, 238, 179, 85, 238, 180, 85, 238, 181, 85, 239, 182, 85, 239, 184, 86, 239, 185, 86, 239, 186, 86, 240, 188, 87, 240, 189, 87, 240, 190, 88, 241, 192, 88, 241, 193, 89, 241, 194, 90, 241, 196, 90, 242, 197, 91, 242, 199, 92, 242, 200, 93, 243, 202, 95, 243, 203, 96, 244, 205, 97, 244, 206, 99, 244, 208, 101, 245, 209, 103, 245, 211, 105, 245, 212, 107, 246, 214, 109, 246, 215, 111, 247, 217, 113, 247, 218, 116, 247, 220, 119, 248, 221, 121, 248, 223, 124, 248, 224, 127, 249, 226, 130, 249, 227, 132, 250, 229, 135, 250, 230, 138, 250, 231, 141, 251, 232, 144, 251, 234, 147, 251, 235, 150, 251, 236, 153, 252, 237, 156, 252, 239, 159, 252, 240, 162, 252, 241, 165, 253, 242, 168, 253, 243, 171, 253, 244, 174, 253, 245, 176, 254, 246, 179, 254, 247, 182, 254, 248, 184, 254, 249, 187, 254, 250, 190, 254, 251, 192, 255, 252, 195, 255, 253, 198, 255, 254, 200, 255, 254, 203], shape(lajolla), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: lajolla10 = reshape([25, 25, 0, 51, 34, 15, 91, 48, 35, 143, 64, 61, 199, 80, 75, 224, 114, 79, 231, 148, 82, 238, 181, 85, 248, 223, 124, 255, 254, 203], shape(lajolla10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: lajolla100 = reshape([25, 25, 0, 28, 26, 1, 30, 27, 2, 32, 28, 4, 34, 28, 5, 36, 29, 7, 38, 30, 8, 41, 31, 9, 44, 32, 11, 46, 33, 12, 49, 34, 14, 51, 34, 15, 54, 36, 17, 57, 36, 18, 60, 38, 20, 64, 39, 22, 67, 40, 23, 71, 41, 25, 74, 42, 26, 78, 44, 29, 83, 45, 31, 86, 46, 33, 91, 48, 35, 94, 49, 37, 99, 51, 40, 103, 52, 42, 108, 54, 44, 114, 56, 47, 118, 57, 49, 123, 59, 52, 127, 60, 54, 133, 62, 57, 137, 63, 58, 143, 64, 61, 150, 66, 63, 154, 67, 64, 160, 68, 66, 164, 69, 68, 171, 71, 69, 175, 72, 70, 181, 73, 71, 187, 75, 72, 190, 76, 73, 196, 78, 74, 199, 80, 75, 204, 82, 75, 207, 84, 76, 210, 88, 76, 214, 91, 77, 215, 94, 77, 218, 97, 78, 219, 100, 78, 221, 104, 78, 222, 108, 79, 223, 110, 79, 224, 114, 79, 225, 117, 80, 226, 121, 80, 226, 123, 80, 227, 127, 80, 228, 130, 81, 228, 133, 81, 229, 136, 81, 230, 139, 81, 230, 142, 81, 231, 144, 82, 231, 148, 82, 232, 151, 82, 233, 154, 82, 233, 157, 83, 234, 159, 83, 235, 163, 83, 235, 165, 83, 236, 169, 83, 236, 172, 84, 237, 175, 84, 238, 179, 85, 238, 181, 85, 239, 185, 86, 240, 188, 87, 241, 192, 88, 241, 196, 90, 242, 199, 92, 243, 203, 96, 244, 206, 99, 245, 211, 105, 246, 215, 111, 247, 218, 116, 248, 223, 124, 249, 226, 130, 250, 230, 138, 251, 232, 144, 251, 236, 153, 252, 240, 162, 253, 242, 168, 253, 245, 176, 254, 247, 182, 254, 250, 190, 255, 252, 195, 255, 254, 203], shape(lajolla100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: lajolla25 = reshape([25, 25, 0, 35, 29, 5, 44, 32, 11, 55, 36, 17, 69, 41, 24, 84, 46, 32, 103, 52, 42, 121, 58, 51, 143, 64, 61, 166, 70, 68, 187, 75, 72, 205, 83, 76, 217, 96, 78, 223, 109, 79, 226, 123, 80, 229, 135, 81, 231, 148, 82, 234, 161, 83, 236, 172, 84, 239, 186, 86, 243, 202, 95, 247, 217, 113, 251, 232, 144, 253, 244, 174, 255, 254, 203], shape(lajolla25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: lajolla50 = reshape([25, 25, 0, 30, 27, 2, 34, 28, 5, 39, 30, 8, 44, 32, 11, 49, 34, 14, 54, 36, 17, 60, 38, 20, 68, 40, 23, 75, 43, 27, 83, 45, 31, 91, 48, 35, 99, 51, 40, 110, 54, 45, 120, 57, 50, 129, 60, 55, 139, 63, 59, 150, 66, 63, 162, 69, 67, 173, 71, 70, 183, 74, 72, 192, 77, 73, 201, 81, 75, 209, 86, 76, 215, 92, 77, 219, 99, 78, 221, 105, 79, 224, 113, 79, 225, 119, 80, 227, 125, 80, 228, 131, 81, 229, 137, 81, 231, 144, 82, 232, 150, 82, 233, 156, 82, 234, 162, 83, 235, 168, 83, 237, 175, 84, 238, 181, 85, 240, 188, 87, 241, 194, 90, 243, 202, 95, 245, 211, 105, 247, 218, 116, 249, 226, 130, 251, 232, 144, 252, 239, 159, 253, 245, 176, 254, 250, 190, 255, 254, 203], shape(lajolla50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: lajollaS = reshape([25, 25, 0, 255, 254, 203, 217, 96, 78, 103, 52, 42, 237, 174, 84, 55, 36, 17, 229, 136, 81, 166, 70, 68, 247, 218, 116, 241, 194, 90, 133, 62, 57, 77, 43, 28, 233, 155, 82, 225, 117, 80, 39, 30, 8, 197, 79, 74, 252, 240, 162, 150, 66, 63, 235, 164, 83, 183, 74, 72, 231, 146, 82, 250, 230, 138, 239, 184, 86, 32, 28, 4, 244, 206, 99, 227, 127, 80, 118, 57, 49, 47, 33, 13, 222, 107, 79, 89, 47, 34, 209, 86, 76, 65, 39, 22, 254, 248, 184, 245, 212, 107, 158, 68, 66, 36, 29, 6, 125, 59, 53, 141, 64, 60, 214, 91, 77, 224, 112, 79, 234, 159, 83, 175, 72, 70, 251, 235, 150, 83, 45, 31, 236, 169, 83, 248, 224, 127, 226, 122, 80, 242, 200, 93, 29, 27, 2, 220, 101, 78, 43, 32, 10, 60, 38, 20, 190, 76, 73, 96, 50, 38, 230, 141, 81, 110, 54, 45, 238, 179, 85, 232, 150, 82, 71, 41, 25, 51, 34, 15, 204, 82, 75, 240, 189, 87, 228, 131, 81, 253, 244, 174, 254, 251, 192, 179, 73, 71, 114, 56, 47, 230, 139, 81, 86, 46, 33, 231, 148, 82, 74, 42, 26, 45, 32, 12, 251, 232, 144, 224, 114, 79, 194, 77, 74, 49, 34, 14, 225, 119, 80, 53, 35, 16, 106, 53, 44, 63, 38, 21, 162, 69, 67, 187, 75, 72, 252, 237, 156, 246, 215, 111, 239, 186, 86, 37, 30, 7, 212, 89, 77, 207, 84, 76, 215, 94, 77, 254, 246, 179, 121, 58, 51, 58, 37, 19, 241, 192, 88, 30, 27, 3, 253, 242, 168, 238, 181, 85, 249, 227, 132, 235, 166, 83, 229, 134, 81, 255, 253, 198], shape(lajollaS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: lapaz = reshape([26, 12, 100, 27, 14, 101, 27, 15, 102, 27, 16, 103, 28, 18, 104, 28, 19, 104, 28, 20, 105, 29, 22, 106, 29, 23, 107, 29, 24, 108, 30, 25, 109, 30, 26, 109, 30, 28, 110, 31, 29, 111, 31, 30, 112, 31, 31, 113, 32, 32, 113, 32, 33, 114, 32, 35, 115, 32, 36, 116, 33, 37, 117, 33, 38, 117, 33, 39, 118, 33, 40, 119, 34, 41, 120, 34, 42, 121, 34, 43, 121, 34, 44, 122, 35, 45, 123, 35, 47, 124, 35, 48, 124, 35, 49, 125, 36, 50, 126, 36, 51, 127, 36, 52, 127, 36, 53, 128, 37, 54, 129, 37, 55, 130, 37, 56, 130, 37, 57, 131, 38, 58, 132, 38, 59, 132, 38, 60, 133, 38, 61, 134, 39, 62, 135, 39, 63, 135, 39, 64, 136, 39, 65, 137, 40, 66, 137, 40, 67, 138, 40, 69, 139, 40, 70, 139, 41, 71, 140, 41, 72, 140, 41, 73, 141, 42, 74, 142, 42, 75, 142, 42, 76, 143, 43, 77, 144, 43, 78, 144, 43, 79, 145, 44, 80, 145, 44, 81, 146, 44, 82, 146, 45, 83, 147, 45, 84, 148, 45, 85, 148, 46, 86, 149, 46, 87, 149, 46, 88, 150, 47, 89, 150, 47, 90, 151, 48, 91, 151, 48, 92, 152, 48, 93, 152, 49, 94, 153, 49, 94, 153, 50, 95, 153, 50, 96, 154, 51, 97, 154, 51, 98, 155, 52, 99, 155, 52, 100, 156, 53, 101, 156, 53, 102, 156, 54, 103, 157, 55, 104, 157, 55, 105, 157, 56, 106, 158, 56, 107, 158, 57, 108, 158, 58, 109, 159, 58, 110, 159, 59, 111, 159, 60, 112, 160, 60, 112, 160, 61, 113, 160, 62, 114, 161, 62, 115, 161, 63, 116, 161, 64, 117, 161, 65, 118, 162, 66, 119, 162, 66, 120, 162, 67, 121, 162, 68, 122, 162, 69, 122, 162, 70, 123, 163, 71, 124, 163, 72, 125, 163, 73, 126, 163, 74, 127, 163, 75, 128, 163, 76, 128, 163, 77, 129, 163, 78, 130, 163, 79, 131, 164, 80, 132, 164, 81, 133, 164, 82, 133, 164, 83, 134, 164, 84, 135, 164, 85, 136, 164, 86, 136, 164, 87, 137, 164, 88, 138, 163, 90, 139, 163, 91, 139, 163, 92, 140, 163, 93, 141, 163, 94, 142, 163, 96, 142, 163, 97, 143, 163, 98, 144, 163, 99, 144, 162, 101, 145, 162, 102, 146, 162, 103, 146, 162, 104, 147, 162, 106, 148, 161, 107, 148, 161, 108, 149, 161, 110, 149, 161, 111, 150, 161, 112, 151, 160, 114, 151, 160, 115, 152, 160, 116, 152, 159, 118, 153, 159, 119, 153, 159, 120, 154, 159, 122, 154, 158, 123, 155, 158, 124, 155, 158, 126, 156, 157, 127, 156, 157, 128, 157, 157, 130, 157, 156, 131, 158, 156, 133, 158, 156, 134, 158, 155, 135, 159, 155, 137, 159, 154, 138, 160, 154, 139, 160, 154, 141, 160, 153, 142, 161, 153, 144, 161, 153, 145, 162, 152, 146, 162, 152, 148, 162, 152, 149, 163, 152, 151, 163, 151, 152, 164, 151, 153, 164, 151, 155, 164, 150, 156, 165, 150, 158, 165, 150, 159, 166, 150, 161, 166, 150, 162, 166, 150, 164, 167, 149, 165, 167, 149, 167, 168, 149, 168, 168, 149, 170, 169, 149, 171, 169, 149, 173, 170, 149, 174, 170, 149, 176, 171, 149, 178, 171, 150, 179, 172, 150, 181, 173, 150, 183, 173, 150, 184, 174, 151, 186, 175, 151, 188, 176, 152, 190, 176, 152, 191, 177, 153, 193, 178, 153, 195, 179, 154, 197, 180, 155, 199, 181, 156, 200, 182, 156, 202, 183, 157, 204, 184, 158, 206, 185, 159, 208, 186, 160, 210, 187, 162, 211, 188, 163, 213, 189, 164, 215, 190, 166, 217, 192, 167, 218, 193, 168, 220, 194, 170, 222, 195, 171, 223, 197, 173, 225, 198, 175, 227, 199, 176, 228, 201, 178, 230, 202, 180, 231, 203, 181, 232, 204, 183, 234, 206, 185, 235, 207, 187, 236, 208, 189, 237, 210, 190, 239, 211, 192, 240, 212, 194, 241, 213, 196, 242, 215, 198, 243, 216, 200, 244, 217, 201, 244, 218, 203, 245, 219, 205, 246, 221, 207, 247, 222, 209, 247, 223, 211, 248, 224, 212, 249, 225, 214, 249, 226, 216, 250, 227, 218, 250, 229, 220, 251, 230, 221, 251, 231, 223, 251, 232, 225, 252, 233, 227, 252, 234, 229, 252, 235, 230, 253, 236, 232, 253, 237, 234, 253, 238, 236, 254, 239, 237, 254, 240, 239, 254, 241, 241, 254, 242, 243], shape(lapaz), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: lapaz10 = reshape([26, 12, 100, 35, 45, 123, 42, 76, 143, 54, 103, 157, 76, 128, 163, 110, 149, 161, 148, 162, 152, 191, 177, 153, 239, 211, 192, 254, 242, 243], shape(lapaz10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: lapaz100 = reshape([26, 12, 100, 27, 16, 103, 28, 19, 104, 29, 23, 107, 30, 25, 109, 31, 29, 111, 31, 31, 113, 32, 35, 115, 33, 38, 117, 33, 40, 119, 34, 43, 121, 35, 45, 123, 35, 49, 125, 36, 51, 127, 37, 54, 129, 37, 57, 131, 38, 59, 132, 39, 62, 135, 39, 64, 136, 40, 67, 138, 41, 71, 140, 41, 73, 141, 42, 76, 143, 43, 78, 144, 44, 81, 146, 45, 83, 147, 46, 86, 149, 47, 89, 150, 48, 91, 151, 49, 94, 153, 50, 95, 153, 51, 98, 155, 52, 100, 156, 54, 103, 157, 56, 106, 158, 57, 108, 158, 59, 111, 159, 60, 112, 160, 62, 115, 161, 64, 117, 161, 66, 120, 162, 69, 122, 162, 71, 124, 163, 74, 127, 163, 76, 128, 163, 79, 131, 164, 81, 133, 164, 84, 135, 164, 87, 137, 164, 90, 139, 163, 93, 141, 163, 96, 142, 163, 99, 144, 162, 103, 146, 162, 106, 148, 161, 110, 149, 161, 112, 151, 160, 116, 152, 159, 119, 153, 159, 123, 155, 158, 127, 156, 157, 130, 157, 156, 134, 158, 155, 137, 159, 154, 141, 160, 153, 144, 161, 153, 148, 162, 152, 152, 164, 151, 155, 164, 150, 159, 166, 150, 162, 166, 150, 167, 168, 149, 170, 169, 149, 174, 170, 149, 179, 172, 150, 183, 173, 150, 188, 176, 152, 191, 177, 153, 197, 180, 155, 200, 182, 156, 206, 185, 159, 211, 188, 163, 215, 190, 166, 220, 194, 170, 223, 197, 173, 228, 201, 178, 232, 204, 183, 235, 207, 187, 239, 211, 192, 241, 213, 196, 244, 217, 201, 245, 219, 205, 247, 223, 211, 249, 226, 216, 250, 229, 220, 251, 232, 225, 252, 234, 229, 253, 237, 234, 254, 239, 237, 254, 242, 243], shape(lapaz100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: lapaz25 = reshape([26, 12, 100, 30, 26, 109, 33, 38, 117, 36, 50, 126, 38, 61, 134, 41, 72, 140, 45, 83, 147, 48, 93, 152, 54, 103, 157, 61, 113, 160, 69, 122, 162, 80, 132, 164, 92, 140, 163, 104, 147, 162, 119, 153, 159, 133, 158, 156, 148, 162, 152, 164, 167, 149, 179, 172, 150, 199, 181, 156, 218, 193, 168, 234, 206, 185, 245, 219, 205, 251, 231, 223, 254, 242, 243], shape(lapaz25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: lapaz50 = reshape([26, 12, 100, 28, 19, 104, 30, 25, 109, 32, 32, 113, 33, 38, 117, 34, 43, 121, 35, 49, 125, 37, 54, 129, 38, 60, 133, 39, 65, 137, 41, 71, 140, 42, 76, 143, 44, 81, 146, 46, 87, 149, 48, 92, 152, 50, 96, 154, 53, 101, 156, 56, 106, 158, 60, 112, 160, 63, 116, 161, 67, 121, 162, 72, 125, 163, 77, 129, 163, 83, 134, 164, 88, 138, 163, 94, 142, 163, 101, 145, 162, 108, 149, 161, 115, 152, 160, 122, 154, 158, 128, 157, 157, 135, 159, 155, 144, 161, 153, 151, 163, 151, 158, 165, 150, 165, 167, 149, 173, 170, 149, 183, 173, 150, 191, 177, 153, 200, 182, 156, 210, 187, 162, 218, 193, 168, 228, 201, 178, 235, 207, 187, 241, 213, 196, 245, 219, 205, 249, 225, 214, 251, 232, 225, 253, 237, 234, 254, 242, 243], shape(lapaz50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: lapazS = reshape([26, 12, 100, 254, 242, 243, 92, 140, 163, 45, 83, 147, 179, 172, 150, 61, 113, 160, 234, 206, 185, 36, 50, 126, 133, 158, 156, 32, 32, 113, 155, 164, 150, 51, 98, 155, 249, 225, 214, 208, 186, 160, 75, 128, 163, 40, 66, 137, 111, 150, 161, 34, 41, 120, 48, 91, 151, 144, 161, 153, 122, 154, 158, 252, 234, 229, 167, 168, 149, 67, 121, 162, 193, 178, 153, 29, 23, 107, 38, 58, 132, 222, 195, 171, 56, 106, 158, 243, 216, 200, 42, 75, 142, 83, 134, 164, 101, 145, 162, 30, 28, 110, 46, 87, 149, 37, 54, 129, 149, 163, 152, 87, 137, 164, 35, 45, 123, 79, 131, 164, 246, 221, 207, 138, 160, 154, 200, 182, 156, 253, 238, 236, 116, 152, 159, 71, 124, 163, 106, 148, 161, 161, 166, 150, 215, 190, 166, 127, 156, 157, 186, 175, 151, 49, 94, 153, 64, 117, 161, 33, 37, 117, 239, 211, 192, 41, 71, 140, 43, 79, 145, 53, 102, 156, 251, 230, 221, 28, 18, 104, 39, 62, 135, 58, 110, 159, 228, 201, 178, 173, 170, 149, 97, 143, 163, 231, 203, 181, 146, 162, 152, 190, 176, 152, 94, 142, 163, 27, 15, 102, 40, 69, 139, 73, 126, 163, 114, 151, 160, 60, 112, 160, 141, 160, 153, 124, 155, 158, 197, 180, 155, 37, 56, 130, 85, 136, 164, 55, 104, 157, 253, 236, 232, 247, 223, 211, 241, 213, 196, 62, 115, 161, 176, 171, 149, 244, 218, 203, 48, 93, 152, 33, 39, 118, 90, 139, 163, 47, 89, 150, 218, 193, 168, 36, 52, 127, 39, 64, 136, 103, 146, 162, 31, 30, 112, 43, 77, 144, 152, 164, 151, 34, 43, 121, 135, 159, 155, 236, 208, 189], shape(lapazS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: lipari = reshape([3, 19, 38, 4, 20, 40, 4, 22, 41, 4, 23, 43, 5, 24, 45, 5, 25, 47, 5, 27, 49, 5, 28, 51, 6, 29, 53, 6, 31, 55, 6, 32, 56, 7, 33, 58, 7, 34, 60, 7, 36, 62, 8, 37, 64, 8, 38, 66, 9, 40, 68, 9, 41, 70, 10, 42, 72, 10, 44, 74, 11, 45, 75, 12, 46, 77, 13, 48, 79, 13, 49, 81, 14, 51, 83, 15, 52, 85, 16, 53, 87, 17, 55, 88, 19, 56, 90, 20, 57, 92, 21, 59, 94, 22, 60, 95, 24, 62, 97, 25, 63, 99, 27, 64, 100, 29, 66, 102, 30, 67, 104, 32, 68, 105, 34, 70, 107, 36, 71, 108, 37, 72, 109, 39, 73, 111, 41, 75, 112, 43, 76, 113, 45, 77, 114, 47, 78, 115, 49, 79, 116, 52, 80, 117, 54, 81, 118, 56, 82, 119, 58, 83, 119, 60, 84, 120, 62, 85, 120, 63, 86, 121, 65, 86, 121, 67, 87, 122, 69, 88, 122, 71, 88, 122, 72, 89, 122, 74, 89, 122, 76, 90, 122, 77, 90, 123, 79, 91, 123, 80, 91, 122, 82, 91, 122, 83, 92, 122, 84, 92, 122, 86, 92, 122, 87, 92, 122, 88, 93, 122, 90, 93, 122, 91, 93, 121, 92, 93, 121, 93, 93, 121, 94, 93, 121, 96, 94, 120, 97, 94, 120, 98, 94, 120, 99, 94, 120, 100, 94, 119, 101, 94, 119, 102, 94, 119, 104, 94, 119, 105, 94, 118, 106, 94, 118, 107, 95, 118, 108, 95, 117, 109, 95, 117, 110, 95, 117, 112, 95, 116, 113, 95, 116, 114, 95, 116, 115, 95, 116, 116, 95, 115, 118, 95, 115, 119, 95, 115, 120, 95, 114, 121, 95, 114, 122, 95, 114, 124, 96, 113, 125, 96, 113, 126, 96, 113, 128, 96, 112, 129, 96, 112, 130, 96, 112, 131, 96, 111, 133, 96, 111, 134, 96, 111, 135, 96, 110, 137, 96, 110, 138, 96, 110, 140, 96, 109, 141, 97, 109, 142, 97, 108, 144, 97, 108, 145, 97, 108, 147, 97, 107, 148, 97, 107, 150, 97, 107, 151, 97, 106, 152, 97, 106, 154, 97, 105, 155, 97, 105, 157, 98, 105, 159, 98, 104, 160, 98, 104, 162, 98, 103, 163, 98, 103, 165, 98, 103, 166, 98, 102, 168, 98, 102, 170, 98, 101, 171, 99, 101, 173, 99, 101, 174, 99, 100, 176, 99, 100, 178, 99, 100, 179, 99, 99, 181, 99, 99, 183, 100, 98, 184, 100, 98, 186, 100, 98, 188, 100, 97, 190, 101, 97, 191, 101, 97, 193, 101, 96, 195, 102, 96, 197, 102, 96, 198, 102, 95, 200, 103, 95, 202, 103, 95, 203, 104, 95, 205, 104, 95, 207, 105, 94, 208, 106, 94, 210, 106, 94, 212, 107, 94, 213, 108, 94, 215, 109, 94, 216, 110, 94, 218, 111, 94, 219, 112, 95, 221, 113, 95, 222, 114, 95, 223, 115, 95, 224, 116, 96, 225, 118, 96, 226, 119, 96, 227, 120, 97, 228, 122, 97, 229, 123, 98, 230, 124, 99, 231, 126, 99, 231, 127, 100, 232, 129, 101, 232, 130, 101, 233, 132, 102, 233, 133, 103, 233, 135, 104, 233, 136, 104, 234, 138, 105, 234, 139, 106, 234, 141, 107, 234, 142, 108, 234, 144, 109, 234, 145, 110, 234, 146, 110, 234, 148, 111, 233, 149, 112, 233, 151, 113, 233, 152, 114, 233, 153, 115, 233, 155, 116, 232, 156, 117, 232, 157, 118, 232, 158, 119, 232, 160, 119, 231, 161, 120, 231, 162, 121, 231, 163, 122, 231, 165, 123, 230, 166, 124, 230, 167, 125, 230, 168, 126, 230, 170, 127, 230, 171, 128, 230, 172, 129, 229, 173, 130, 229, 175, 132, 229, 176, 133, 229, 177, 134, 229, 178, 135, 229, 180, 136, 229, 181, 138, 229, 182, 139, 229, 184, 140, 229, 185, 142, 229, 186, 143, 230, 188, 144, 230, 189, 146, 230, 190, 147, 230, 192, 149, 231, 193, 151, 231, 195, 152, 231, 196, 154, 232, 198, 156, 232, 199, 157, 233, 201, 159, 233, 202, 161, 234, 204, 163, 234, 205, 165, 235, 207, 167, 235, 208, 169, 236, 210, 171, 237, 211, 173, 237, 213, 175, 238, 214, 177, 239, 216, 179, 239, 218, 181, 240, 219, 183, 241, 221, 185, 242, 222, 187, 242, 224, 190, 243, 225, 192, 244, 227, 194, 245, 229, 196, 246, 230, 198, 246, 232, 201, 247, 233, 203, 248, 235, 205, 249, 237, 207, 250, 238, 209, 251, 240, 212, 251, 241, 214, 252, 243, 216, 253, 245, 218], shape(lipari), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: lipari10 = reshape([3, 19, 38, 19, 56, 90, 71, 88, 122, 107, 95, 118, 142, 97, 108, 188, 100, 97, 229, 123, 98, 231, 162, 121, 233, 201, 159, 253, 245, 218], shape(lipari10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: lipari100 = reshape([3, 19, 38, 4, 23, 43, 5, 25, 47, 6, 29, 53, 6, 32, 56, 7, 36, 62, 8, 38, 66, 10, 42, 72, 12, 46, 77, 13, 49, 81, 16, 53, 87, 19, 56, 90, 22, 60, 95, 25, 63, 99, 30, 67, 104, 36, 71, 108, 39, 73, 111, 45, 77, 114, 49, 79, 116, 56, 82, 119, 62, 85, 120, 65, 86, 121, 71, 88, 122, 74, 89, 122, 79, 91, 123, 82, 91, 122, 86, 92, 122, 90, 93, 122, 92, 93, 121, 96, 94, 120, 98, 94, 120, 101, 94, 119, 104, 94, 119, 107, 95, 118, 110, 95, 117, 113, 95, 116, 116, 95, 115, 119, 95, 115, 122, 95, 114, 125, 96, 113, 129, 96, 112, 133, 96, 111, 135, 96, 110, 140, 96, 109, 142, 97, 108, 147, 97, 107, 150, 97, 107, 154, 97, 105, 159, 98, 104, 162, 98, 103, 166, 98, 102, 170, 98, 101, 174, 99, 100, 179, 99, 99, 183, 100, 98, 188, 100, 97, 191, 101, 97, 197, 102, 96, 200, 103, 95, 205, 104, 95, 210, 106, 94, 213, 108, 94, 218, 111, 94, 221, 113, 95, 224, 116, 96, 226, 119, 96, 229, 123, 98, 231, 127, 100, 232, 130, 101, 233, 135, 104, 234, 138, 105, 234, 142, 108, 234, 145, 110, 233, 149, 112, 233, 153, 115, 232, 156, 117, 232, 160, 119, 231, 162, 121, 230, 166, 124, 230, 168, 126, 230, 172, 129, 229, 176, 133, 229, 178, 135, 229, 182, 139, 229, 185, 142, 230, 189, 146, 231, 193, 151, 231, 196, 154, 233, 201, 159, 234, 204, 163, 235, 208, 169, 237, 211, 173, 239, 216, 179, 241, 221, 185, 242, 224, 190, 245, 229, 196, 246, 232, 201, 249, 237, 207, 251, 240, 212, 253, 245, 218], shape(lipari100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: lipari25 = reshape([3, 19, 38, 7, 33, 58, 12, 46, 77, 24, 62, 97, 43, 76, 113, 63, 86, 121, 82, 91, 122, 94, 93, 121, 107, 95, 118, 120, 95, 114, 133, 96, 111, 148, 97, 107, 165, 98, 103, 181, 99, 99, 200, 103, 95, 216, 110, 94, 229, 123, 98, 234, 139, 106, 233, 153, 115, 230, 167, 125, 229, 181, 138, 231, 195, 152, 237, 211, 173, 244, 227, 194, 253, 245, 218], shape(lipari25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: lipari50 = reshape([3, 19, 38, 5, 25, 47, 6, 32, 56, 9, 40, 68, 12, 46, 77, 16, 53, 87, 22, 60, 95, 30, 67, 104, 41, 75, 112, 52, 80, 117, 62, 85, 120, 71, 88, 122, 79, 91, 123, 87, 92, 122, 93, 93, 121, 99, 94, 120, 105, 94, 118, 110, 95, 117, 118, 95, 115, 124, 96, 113, 130, 96, 112, 137, 96, 110, 144, 97, 108, 152, 97, 106, 160, 98, 104, 168, 98, 102, 176, 99, 100, 186, 100, 98, 195, 102, 96, 203, 104, 95, 212, 107, 94, 219, 112, 95, 226, 119, 96, 231, 126, 99, 233, 133, 103, 234, 141, 107, 234, 148, 111, 232, 156, 117, 231, 162, 121, 230, 168, 126, 229, 175, 132, 229, 181, 138, 230, 189, 146, 231, 196, 154, 234, 204, 163, 237, 211, 173, 240, 219, 183, 245, 229, 196, 249, 237, 207, 253, 245, 218], shape(lipari50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: lipariS = reshape([3, 19, 38, 253, 245, 218, 163, 98, 103, 233, 153, 115, 82, 91, 122, 216, 110, 94, 24, 62, 97, 231, 195, 152, 119, 95, 115, 240, 219, 183, 232, 130, 101, 190, 101, 97, 9, 40, 68, 140, 96, 109, 229, 173, 130, 54, 81, 118, 101, 94, 119, 176, 99, 100, 37, 72, 109, 231, 163, 122, 229, 184, 140, 92, 93, 121, 203, 104, 95, 69, 88, 122, 14, 51, 83, 235, 207, 167, 6, 29, 53, 129, 96, 112, 246, 232, 201, 226, 119, 96, 151, 97, 106, 234, 142, 108, 110, 95, 117, 45, 77, 114, 230, 124, 99, 62, 85, 120, 19, 56, 90, 134, 96, 111, 157, 98, 105, 11, 45, 75, 232, 158, 119, 210, 106, 94, 250, 238, 209, 87, 92, 122, 237, 213, 175, 233, 136, 104, 230, 168, 126, 124, 96, 113, 170, 98, 101, 7, 34, 60, 233, 201, 159, 145, 97, 108, 234, 148, 111, 229, 178, 135, 76, 90, 122, 197, 102, 96, 97, 94, 120, 230, 189, 146, 5, 24, 45, 243, 225, 192, 222, 114, 95, 183, 100, 98, 106, 94, 118, 30, 67, 104, 114, 95, 116, 13, 48, 79, 251, 241, 214, 230, 192, 149, 4, 22, 41, 231, 127, 100, 219, 112, 95, 131, 96, 111, 154, 97, 105, 121, 95, 114, 148, 97, 107, 6, 32, 56, 142, 97, 108, 27, 64, 100, 10, 42, 72, 207, 105, 94, 228, 122, 97, 231, 161, 120, 84, 92, 122, 232, 156, 117, 233, 151, 113, 173, 99, 101, 236, 210, 171, 230, 171, 128, 160, 98, 104, 230, 166, 124, 224, 116, 96, 248, 235, 205, 34, 70, 107, 232, 198, 156, 179, 99, 99, 21, 59, 94, 245, 229, 196, 229, 181, 138, 8, 37, 64, 90, 93, 122], shape(lipariS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: lisbon = reshape([230, 229, 255, 227, 227, 253, 224, 226, 252, 221, 224, 250, 219, 222, 249, 216, 220, 247, 213, 218, 245, 211, 216, 244, 208, 214, 242, 205, 212, 241, 203, 210, 239, 200, 208, 237, 197, 206, 236, 195, 204, 234, 192, 202, 233, 189, 200, 231, 187, 198, 229, 184, 196, 228, 181, 194, 226, 179, 192, 225, 176, 190, 223, 173, 188, 222, 171, 186, 220, 168, 185, 218, 165, 183, 217, 163, 181, 215, 160, 179, 214, 158, 177, 212, 155, 175, 211, 152, 173, 209, 150, 171, 207, 147, 169, 206, 144, 167, 204, 142, 165, 203, 139, 163, 201, 137, 162, 200, 134, 160, 198, 132, 158, 196, 129, 156, 195, 126, 154, 193, 124, 152, 192, 121, 150, 190, 119, 148, 189, 116, 146, 187, 114, 144, 185, 111, 142, 184, 109, 141, 182, 106, 139, 181, 104, 137, 179, 101, 135, 177, 98, 133, 176, 96, 131, 174, 94, 129, 172, 91, 127, 171, 89, 125, 169, 86, 123, 167, 84, 121, 166, 81, 119, 164, 79, 117, 162, 76, 115, 160, 74, 114, 158, 72, 112, 157, 69, 110, 155, 67, 108, 153, 65, 106, 151, 63, 104, 149, 61, 102, 147, 58, 100, 145, 56, 98, 143, 54, 96, 140, 52, 94, 138, 50, 92, 136, 48, 90, 134, 47, 89, 132, 45, 87, 130, 43, 85, 127, 42, 83, 125, 40, 81, 123, 39, 79, 120, 37, 78, 118, 36, 76, 116, 34, 74, 113, 33, 72, 111, 32, 71, 109, 31, 69, 106, 30, 67, 104, 29, 66, 102, 28, 64, 100, 27, 63, 97, 26, 61, 95, 25, 60, 93, 25, 58, 90, 24, 57, 88, 23, 55, 86, 23, 54, 83, 22, 52, 81, 22, 51, 79, 21, 49, 77, 21, 48, 75, 20, 46, 72, 20, 45, 70, 19, 44, 68, 19, 42, 66, 19, 41, 64, 18, 40, 62, 18, 39, 60, 18, 37, 58, 18, 36, 55, 17, 35, 53, 17, 34, 51, 17, 33, 50, 17, 32, 48, 17, 31, 46, 17, 30, 44, 17, 29, 42, 17, 28, 40, 17, 27, 39, 18, 27, 37, 18, 26, 36, 18, 26, 34, 18, 25, 33, 19, 25, 32, 19, 25, 30, 20, 24, 29, 20, 24, 28, 21, 24, 27, 21, 24, 26, 22, 25, 26, 23, 25, 25, 24, 25, 25, 24, 26, 24, 25, 26, 24, 26, 27, 24, 27, 28, 23, 28, 28, 23, 30, 29, 23, 31, 30, 24, 32, 31, 24, 33, 32, 24, 35, 33, 24, 36, 35, 25, 37, 36, 25, 39, 37, 26, 40, 38, 26, 42, 40, 27, 43, 41, 28, 45, 43, 28, 47, 44, 29, 48, 45, 30, 50, 47, 31, 51, 48, 32, 53, 50, 32, 55, 52, 33, 56, 53, 34, 58, 55, 35, 60, 56, 36, 62, 58, 37, 63, 60, 38, 65, 61, 39, 67, 63, 40, 69, 64, 41, 70, 66, 42, 72, 68, 43, 74, 69, 44, 76, 71, 45, 77, 73, 46, 79, 75, 47, 81, 76, 49, 83, 78, 50, 85, 80, 51, 87, 81, 52, 88, 83, 53, 90, 85, 54, 92, 87, 55, 94, 88, 56, 96, 90, 57, 98, 92, 58, 100, 94, 60, 102, 96, 61, 104, 97, 62, 105, 99, 63, 107, 101, 64, 109, 103, 65, 111, 105, 67, 113, 107, 68, 115, 108, 69, 117, 110, 70, 119, 112, 71, 121, 114, 73, 123, 116, 74, 125, 118, 75, 127, 120, 76, 129, 122, 78, 131, 123, 79, 133, 125, 80, 135, 127, 82, 137, 129, 83, 139, 131, 85, 141, 133, 86, 143, 135, 88, 145, 137, 89, 148, 139, 91, 150, 141, 92, 152, 143, 94, 154, 145, 96, 156, 147, 97, 158, 150, 99, 160, 152, 101, 162, 154, 103, 164, 156, 105, 166, 158, 106, 168, 160, 108, 171, 162, 110, 173, 164, 112, 175, 167, 114, 177, 169, 117, 179, 171, 119, 181, 173, 121, 183, 175, 123, 185, 177, 125, 187, 179, 128, 189, 182, 130, 191, 184, 132, 193, 186, 135, 195, 188, 137, 197, 190, 139, 199, 192, 142, 201, 195, 144, 203, 197, 147, 205, 199, 149, 207, 201, 152, 209, 203, 154, 211, 205, 157, 213, 207, 159, 215, 210, 162, 217, 212, 164, 218, 214, 167, 220, 216, 169, 222, 218, 172, 224, 220, 175, 226, 222, 177, 228, 225, 180, 230, 227, 182, 232, 229, 185, 234, 231, 188, 236, 233, 190, 238, 235, 193, 240, 238, 195, 241, 240, 198, 243, 242, 201, 245, 244, 203, 247, 246, 206, 249, 248, 209, 251, 251, 211, 253, 253, 214, 255, 255, 217], shape(lisbon), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: lisbon10 = reshape([230, 229, 255, 155, 175, 211, 81, 119, 164, 30, 67, 104, 17, 30, 44, 39, 37, 26, 87, 81, 52, 141, 133, 86, 201, 195, 144, 255, 255, 217], shape(lisbon10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: lisbon100 = reshape([230, 229, 255, 221, 224, 250, 216, 220, 247, 208, 214, 242, 203, 210, 239, 195, 204, 234, 189, 200, 231, 181, 194, 226, 173, 188, 222, 168, 185, 218, 160, 179, 214, 155, 175, 211, 147, 169, 206, 142, 165, 203, 134, 160, 198, 126, 154, 193, 121, 150, 190, 114, 144, 185, 109, 141, 182, 101, 135, 177, 94, 129, 172, 89, 125, 169, 81, 119, 164, 76, 115, 160, 69, 110, 155, 65, 106, 151, 58, 100, 145, 52, 94, 138, 48, 90, 134, 43, 85, 127, 40, 81, 123, 36, 76, 116, 33, 72, 111, 30, 67, 104, 27, 63, 97, 25, 60, 93, 23, 55, 86, 22, 52, 81, 21, 48, 75, 20, 45, 70, 19, 41, 64, 18, 37, 58, 17, 35, 53, 17, 32, 48, 17, 30, 44, 17, 27, 39, 18, 26, 36, 19, 25, 32, 20, 24, 28, 21, 24, 26, 24, 25, 25, 25, 26, 24, 28, 28, 23, 32, 31, 24, 35, 33, 24, 39, 37, 26, 42, 40, 27, 47, 44, 29, 50, 47, 31, 55, 52, 33, 60, 56, 36, 63, 60, 38, 69, 64, 41, 72, 68, 43, 77, 73, 46, 81, 76, 49, 87, 81, 52, 92, 87, 55, 96, 90, 57, 102, 96, 61, 105, 99, 63, 111, 105, 67, 115, 108, 69, 121, 114, 73, 127, 120, 76, 131, 123, 79, 137, 129, 83, 141, 133, 86, 148, 139, 91, 152, 143, 94, 158, 150, 99, 164, 156, 105, 168, 160, 108, 175, 167, 114, 179, 171, 119, 185, 177, 125, 191, 184, 132, 195, 188, 137, 201, 195, 144, 205, 199, 149, 211, 205, 157, 215, 210, 162, 220, 216, 169, 226, 222, 177, 230, 227, 182, 236, 233, 190, 240, 238, 195, 245, 244, 203, 249, 248, 209, 255, 255, 217], shape(lisbon100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: lisbon25 = reshape([230, 229, 255, 200, 208, 237, 173, 188, 222, 144, 167, 204, 116, 146, 187, 91, 127, 171, 65, 106, 151, 45, 87, 130, 30, 67, 104, 22, 51, 79, 18, 37, 58, 18, 27, 37, 23, 25, 25, 33, 32, 24, 50, 47, 31, 67, 63, 40, 87, 81, 52, 107, 101, 64, 127, 120, 76, 150, 141, 92, 173, 164, 112, 193, 186, 135, 215, 210, 162, 234, 231, 188, 255, 255, 217], shape(lisbon25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: lisbon50 = reshape([230, 229, 255, 216, 220, 247, 203, 210, 239, 187, 198, 229, 173, 188, 222, 160, 179, 214, 147, 169, 206, 134, 160, 198, 119, 148, 189, 106, 139, 181, 94, 129, 172, 81, 119, 164, 69, 110, 155, 56, 98, 143, 47, 89, 132, 39, 79, 120, 32, 71, 109, 27, 63, 97, 23, 54, 83, 20, 46, 72, 18, 40, 62, 17, 34, 51, 17, 29, 42, 18, 25, 33, 21, 24, 27, 24, 26, 24, 30, 29, 23, 37, 36, 25, 45, 43, 28, 53, 50, 32, 62, 58, 37, 70, 66, 42, 81, 76, 49, 90, 85, 54, 100, 94, 60, 109, 103, 65, 119, 112, 71, 131, 123, 79, 141, 133, 86, 152, 143, 94, 162, 154, 103, 173, 164, 112, 185, 177, 125, 195, 188, 137, 205, 199, 149, 215, 210, 162, 224, 220, 175, 236, 233, 190, 245, 244, 203, 255, 255, 217], shape(lisbon50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: managua = reshape([255, 207, 103, 254, 205, 102, 253, 203, 102, 251, 201, 101, 250, 199, 100, 249, 197, 100, 248, 195, 99, 246, 193, 98, 245, 191, 98, 244, 189, 97, 243, 187, 96, 241, 185, 96, 240, 183, 95, 239, 181, 94, 238, 179, 94, 236, 177, 93, 235, 176, 93, 234, 174, 92, 233, 172, 91, 232, 170, 91, 230, 168, 90, 229, 166, 89, 228, 164, 89, 227, 163, 88, 225, 161, 88, 224, 159, 87, 223, 157, 86, 222, 156, 86, 221, 154, 85, 219, 152, 85, 218, 150, 84, 217, 149, 84, 216, 147, 83, 215, 145, 82, 213, 144, 82, 212, 142, 81, 211, 140, 81, 210, 139, 80, 209, 137, 80, 207, 135, 79, 206, 134, 79, 205, 132, 78, 204, 130, 77, 203, 129, 77, 201, 127, 76, 200, 126, 76, 199, 124, 75, 198, 123, 75, 197, 121, 74, 195, 119, 74, 194, 118, 73, 193, 116, 73, 192, 115, 72, 190, 113, 72, 189, 112, 71, 188, 111, 71, 187, 109, 70, 185, 108, 70, 184, 106, 69, 183, 105, 69, 182, 103, 69, 180, 102, 68, 179, 100, 68, 178, 99, 67, 177, 98, 67, 175, 96, 66, 174, 95, 66, 173, 94, 66, 171, 92, 65, 170, 91, 65, 168, 89, 64, 167, 88, 64, 166, 87, 63, 164, 85, 63, 163, 84, 63, 161, 83, 62, 160, 81, 62, 158, 80, 62, 157, 79, 61, 156, 77, 61, 154, 76, 61, 152, 75, 60, 151, 73, 60, 149, 72, 60, 148, 71, 59, 146, 70, 59, 145, 68, 59, 143, 67, 59, 142, 66, 58, 140, 65, 58, 138, 63, 58, 137, 62, 58, 135, 61, 57, 134, 60, 57, 132, 59, 57, 130, 58, 57, 129, 57, 57, 127, 56, 57, 126, 55, 57, 124, 54, 57, 122, 53, 57, 121, 52, 57, 119, 51, 57, 118, 50, 57, 116, 49, 57, 115, 48, 57, 113, 47, 58, 112, 47, 58, 110, 46, 58, 109, 45, 58, 107, 45, 59, 106, 44, 59, 105, 43, 60, 103, 43, 60, 102, 42, 61, 101, 42, 61, 99, 42, 62, 98, 41, 63, 97, 41, 63, 96, 41, 64, 95, 41, 65, 94, 41, 66, 93, 40, 67, 92, 40, 67, 91, 40, 68, 90, 40, 70, 89, 41, 71, 88, 41, 72, 87, 41, 73, 86, 41, 74, 85, 42, 76, 84, 42, 77, 84, 42, 78, 83, 43, 80, 82, 43, 81, 82, 44, 83, 81, 45, 84, 81, 45, 86, 80, 46, 88, 80, 47, 89, 79, 48, 91, 79, 49, 93, 78, 49, 94, 78, 50, 96, 78, 51, 98, 77, 52, 100, 77, 53, 102, 77, 54, 104, 77, 55, 106, 76, 57, 107, 76, 58, 109, 76, 59, 111, 76, 60, 113, 76, 61, 115, 76, 63, 117, 76, 64, 119, 76, 65, 121, 76, 67, 123, 76, 68, 125, 76, 69, 127, 76, 71, 129, 76, 72, 131, 76, 74, 133, 76, 75, 134, 77, 76, 136, 77, 78, 138, 77, 79, 140, 77, 81, 142, 77, 82, 144, 78, 84, 145, 78, 85, 147, 78, 87, 149, 79, 88, 151, 79, 90, 152, 79, 91, 154, 80, 93, 156, 80, 94, 157, 81, 96, 159, 81, 97, 161, 81, 99, 162, 82, 100, 164, 82, 102, 165, 83, 103, 167, 83, 105, 168, 84, 106, 170, 84, 108, 171, 85, 110, 172, 85, 111, 174, 86, 113, 175, 86, 114, 177, 87, 116, 178, 87, 117, 179, 88, 119, 181, 88, 120, 182, 89, 122, 183, 89, 123, 184, 90, 125, 186, 91, 126, 187, 91, 128, 188, 92, 129, 189, 92, 131, 191, 93, 133, 192, 93, 134, 193, 94, 136, 194, 95, 137, 195, 95, 139, 197, 96, 141, 198, 96, 142, 199, 97, 144, 200, 98, 146, 201, 98, 147, 203, 99, 149, 204, 100, 151, 205, 100, 152, 206, 101, 154, 207, 102, 156, 208, 102, 158, 210, 103, 159, 211, 104, 161, 212, 104, 163, 213, 105, 165, 214, 105, 166, 215, 106, 168, 217, 107, 170, 218, 107, 172, 219, 108, 173, 220, 109, 175, 221, 109, 177, 222, 110, 179, 223, 111, 181, 225, 111, 182, 226, 112, 184, 227, 113, 186, 228, 114, 188, 229, 114, 190, 230, 115, 192, 231, 116, 194, 233, 116, 196, 234, 117, 197, 235, 118, 199, 236, 118, 201, 237, 119, 203, 238, 120, 205, 240, 120, 207, 241, 121, 209, 242, 122, 211, 243, 122, 213, 244, 123, 215, 245, 124, 217, 247, 124, 219, 248, 125, 221, 249, 126, 223, 250, 126, 225, 251, 127, 227, 253, 128, 229, 254, 129, 231, 255], shape(managua), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: managua10 = reshape([255, 207, 103, 221, 154, 85, 185, 108, 70, 146, 70, 59, 103, 43, 60, 78, 49, 94, 78, 85, 147, 91, 128, 188, 109, 177, 222, 129, 231, 255], shape(managua10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: managua100 = reshape([255, 207, 103, 251, 201, 101, 249, 197, 100, 245, 191, 98, 243, 187, 96, 239, 181, 94, 236, 177, 93, 233, 172, 91, 229, 166, 89, 227, 163, 88, 223, 157, 86, 221, 154, 85, 217, 149, 84, 215, 145, 82, 211, 140, 81, 207, 135, 79, 205, 132, 78, 201, 127, 76, 199, 124, 75, 195, 119, 74, 192, 115, 72, 189, 112, 71, 185, 108, 70, 183, 105, 69, 179, 100, 68, 177, 98, 67, 173, 94, 66, 168, 89, 64, 166, 87, 63, 161, 83, 62, 158, 80, 62, 154, 76, 61, 151, 73, 60, 146, 70, 59, 142, 66, 58, 138, 63, 58, 134, 60, 57, 130, 58, 57, 126, 55, 57, 122, 53, 57, 118, 50, 57, 113, 47, 58, 110, 46, 58, 106, 44, 59, 103, 43, 60, 99, 42, 62, 97, 41, 63, 94, 41, 66, 91, 40, 68, 89, 41, 71, 86, 41, 74, 84, 42, 77, 82, 43, 81, 81, 45, 86, 80, 47, 89, 78, 49, 94, 78, 51, 98, 77, 54, 104, 76, 57, 107, 76, 60, 113, 76, 64, 119, 76, 67, 123, 76, 71, 129, 76, 74, 133, 77, 78, 138, 77, 81, 142, 78, 85, 147, 79, 90, 152, 80, 93, 156, 81, 97, 161, 82, 100, 164, 83, 105, 168, 84, 108, 171, 86, 113, 175, 87, 117, 179, 88, 120, 182, 90, 125, 186, 91, 128, 188, 93, 133, 192, 94, 136, 194, 96, 141, 198, 98, 146, 201, 99, 149, 204, 101, 154, 207, 102, 158, 210, 104, 163, 213, 106, 168, 217, 107, 172, 219, 109, 177, 222, 111, 181, 225, 113, 186, 228, 114, 190, 230, 116, 196, 234, 118, 201, 237, 120, 205, 240, 122, 211, 243, 123, 215, 245, 125, 221, 249, 126, 225, 251, 129, 231, 255], shape(managua100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: managua25 = reshape([255, 207, 103, 241, 185, 96, 229, 166, 89, 216, 147, 83, 203, 129, 77, 190, 113, 72, 177, 98, 67, 163, 84, 63, 146, 70, 59, 129, 57, 57, 113, 47, 58, 98, 41, 63, 87, 41, 73, 80, 46, 88, 76, 57, 107, 76, 69, 127, 78, 85, 147, 82, 102, 165, 87, 117, 179, 93, 134, 193, 100, 152, 206, 107, 170, 218, 114, 190, 230, 121, 209, 242, 129, 231, 255], shape(managua25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: managua50 = reshape([255, 207, 103, 249, 197, 100, 243, 187, 96, 235, 176, 93, 229, 166, 89, 223, 157, 86, 217, 149, 84, 211, 140, 81, 204, 130, 77, 198, 123, 75, 192, 115, 72, 185, 108, 70, 179, 100, 68, 171, 92, 65, 164, 85, 63, 157, 79, 61, 149, 72, 60, 142, 66, 58, 132, 59, 57, 124, 54, 57, 116, 49, 57, 109, 45, 58, 102, 42, 61, 95, 41, 65, 90, 40, 70, 85, 42, 76, 82, 44, 83, 79, 49, 93, 77, 53, 102, 76, 59, 111, 76, 65, 121, 76, 72, 131, 77, 81, 142, 79, 88, 151, 81, 96, 159, 83, 103, 167, 85, 111, 174, 88, 120, 182, 91, 128, 188, 94, 136, 194, 97, 144, 200, 100, 152, 206, 104, 163, 213, 107, 172, 219, 111, 181, 225, 114, 190, 230, 118, 199, 236, 122, 211, 243, 125, 221, 249, 129, 231, 255], shape(managua50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: navia = reshape([3, 19, 39, 4, 21, 41, 4, 22, 43, 4, 23, 44, 4, 24, 46, 4, 25, 48, 5, 26, 50, 5, 27, 52, 5, 28, 54, 5, 29, 56, 5, 30, 58, 5, 32, 60, 5, 33, 62, 5, 34, 64, 5, 35, 66, 5, 36, 68, 5, 37, 70, 5, 38, 72, 6, 40, 74, 6, 41, 76, 6, 42, 78, 6, 43, 80, 6, 44, 82, 6, 46, 84, 6, 47, 86, 6, 48, 88, 6, 49, 90, 7, 50, 92, 7, 52, 94, 7, 53, 96, 7, 54, 98, 7, 55, 100, 7, 57, 102, 8, 58, 104, 8, 59, 106, 8, 60, 107, 8, 62, 109, 9, 63, 111, 9, 64, 113, 10, 65, 115, 10, 67, 116, 11, 68, 118, 11, 69, 120, 11, 70, 121, 12, 72, 123, 13, 73, 125, 13, 74, 126, 14, 76, 128, 14, 77, 129, 15, 78, 130, 16, 79, 132, 16, 81, 133, 17, 82, 134, 18, 83, 135, 19, 84, 136, 19, 86, 137, 20, 87, 138, 21, 88, 139, 22, 89, 140, 23, 90, 141, 23, 92, 141, 24, 93, 142, 25, 94, 142, 26, 95, 143, 27, 96, 143, 27, 97, 144, 28, 98, 144, 29, 99, 144, 30, 100, 145, 30, 101, 145, 31, 102, 145, 32, 103, 145, 32, 104, 145, 33, 105, 145, 34, 106, 145, 34, 107, 145, 35, 108, 145, 36, 108, 145, 36, 109, 145, 37, 110, 144, 38, 111, 144, 38, 111, 144, 39, 112, 144, 39, 113, 143, 40, 113, 143, 40, 114, 143, 41, 115, 143, 42, 115, 142, 42, 116, 142, 43, 117, 142, 43, 117, 141, 44, 118, 141, 44, 118, 141, 45, 119, 140, 45, 120, 140, 46, 120, 140, 47, 121, 139, 47, 121, 139, 48, 122, 139, 48, 122, 138, 49, 123, 138, 49, 124, 138, 50, 124, 137, 50, 125, 137, 51, 125, 137, 52, 126, 136, 52, 126, 136, 53, 127, 136, 53, 127, 135, 54, 128, 135, 54, 128, 134, 55, 129, 134, 55, 129, 134, 56, 130, 133, 57, 131, 133, 57, 131, 133, 58, 132, 132, 58, 132, 132, 59, 133, 132, 60, 133, 131, 60, 134, 131, 61, 134, 130, 61, 135, 130, 62, 136, 130, 63, 136, 129, 63, 137, 129, 64, 137, 129, 64, 138, 128, 65, 138, 128, 66, 139, 127, 66, 140, 127, 67, 140, 127, 68, 141, 126, 68, 141, 126, 69, 142, 125, 70, 143, 125, 71, 143, 125, 71, 144, 124, 72, 145, 124, 73, 145, 123, 73, 146, 123, 74, 147, 122, 75, 147, 122, 76, 148, 122, 76, 149, 121, 77, 149, 121, 78, 150, 120, 79, 151, 120, 80, 152, 119, 80, 152, 119, 81, 153, 118, 82, 154, 118, 83, 155, 117, 84, 155, 117, 85, 156, 116, 86, 157, 116, 87, 158, 115, 87, 159, 115, 88, 160, 114, 89, 160, 114, 90, 161, 113, 91, 162, 113, 92, 163, 112, 93, 164, 112, 94, 165, 111, 95, 166, 111, 96, 167, 110, 98, 168, 110, 99, 169, 109, 100, 170, 109, 101, 171, 108, 102, 172, 108, 103, 173, 107, 105, 174, 107, 106, 175, 106, 107, 176, 106, 109, 177, 105, 110, 178, 105, 112, 179, 105, 113, 180, 105, 115, 181, 104, 116, 182, 104, 118, 183, 104, 120, 185, 104, 121, 186, 104, 123, 187, 104, 125, 188, 104, 127, 189, 104, 129, 191, 104, 131, 192, 104, 133, 193, 105, 135, 194, 105, 137, 195, 106, 140, 197, 106, 142, 198, 107, 144, 199, 108, 147, 200, 109, 149, 202, 110, 152, 203, 111, 154, 204, 112, 156, 205, 114, 159, 206, 115, 162, 207, 116, 164, 209, 118, 167, 210, 120, 169, 211, 121, 172, 212, 123, 174, 213, 125, 177, 214, 127, 179, 215, 129, 181, 216, 131, 184, 217, 133, 186, 218, 135, 188, 219, 137, 191, 220, 139, 193, 220, 141, 195, 221, 144, 197, 222, 146, 199, 223, 148, 201, 224, 150, 203, 224, 152, 205, 225, 155, 207, 226, 157, 209, 227, 159, 211, 227, 161, 213, 228, 163, 215, 229, 165, 216, 229, 168, 218, 230, 170, 220, 231, 172, 221, 231, 174, 223, 232, 176, 224, 232, 178, 226, 233, 180, 227, 234, 182, 229, 234, 184, 230, 235, 186, 232, 235, 188, 233, 236, 190, 234, 237, 191, 235, 237, 193, 237, 238, 195, 238, 238, 197, 239, 239, 198, 240, 239, 200, 241, 240, 202, 243, 240, 203, 244, 241, 205, 245, 241, 207, 246, 242, 208, 247, 242, 210, 248, 243, 211, 249, 243, 213, 250, 243, 214, 251, 244, 215, 252, 244, 217], shape(navia), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: navia10 = reshape([3, 19, 39, 7, 52, 94, 21, 88, 139, 40, 114, 143, 56, 130, 133, 75, 147, 122, 101, 171, 108, 152, 203, 111, 216, 229, 168, 252, 244, 217], shape(navia10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: navia100 = reshape([3, 19, 39, 4, 23, 44, 4, 25, 48, 5, 28, 54, 5, 30, 58, 5, 34, 64, 5, 36, 68, 6, 40, 74, 6, 43, 80, 6, 46, 84, 6, 49, 90, 7, 52, 94, 7, 55, 100, 8, 58, 104, 8, 62, 109, 10, 65, 115, 11, 68, 118, 12, 72, 123, 13, 74, 126, 15, 78, 130, 17, 82, 134, 19, 84, 136, 21, 88, 139, 23, 90, 141, 25, 94, 142, 27, 96, 143, 29, 99, 144, 31, 102, 145, 32, 104, 145, 34, 107, 145, 36, 108, 145, 38, 111, 144, 39, 112, 144, 40, 114, 143, 42, 116, 142, 43, 117, 141, 45, 119, 140, 46, 120, 140, 48, 122, 139, 49, 123, 138, 50, 125, 137, 52, 126, 136, 53, 127, 135, 55, 129, 134, 56, 130, 133, 58, 132, 132, 59, 133, 132, 61, 134, 130, 63, 136, 129, 64, 137, 129, 66, 139, 127, 67, 140, 127, 69, 142, 125, 71, 144, 124, 73, 145, 123, 75, 147, 122, 76, 149, 121, 79, 151, 120, 80, 152, 119, 83, 155, 117, 86, 157, 116, 87, 159, 115, 90, 161, 113, 92, 163, 112, 95, 166, 111, 98, 168, 110, 101, 171, 108, 105, 174, 107, 107, 176, 106, 112, 179, 105, 115, 181, 104, 120, 185, 104, 123, 187, 104, 129, 191, 104, 135, 194, 105, 140, 197, 106, 147, 200, 109, 152, 203, 111, 159, 206, 115, 164, 209, 118, 172, 212, 123, 179, 215, 129, 184, 217, 133, 191, 220, 139, 195, 221, 144, 201, 224, 150, 207, 226, 157, 211, 227, 161, 216, 229, 168, 220, 231, 172, 224, 232, 178, 227, 234, 182, 232, 235, 188, 235, 237, 193, 238, 238, 197, 241, 240, 202, 244, 241, 205, 247, 242, 210, 249, 243, 213, 252, 244, 217], shape(navia100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: navia25 = reshape([3, 19, 39, 5, 32, 60, 6, 43, 80, 7, 57, 102, 11, 70, 121, 18, 83, 135, 27, 96, 143, 34, 106, 145, 40, 114, 143, 47, 121, 139, 52, 126, 136, 58, 132, 132, 65, 138, 128, 72, 145, 124, 80, 152, 119, 89, 160, 114, 101, 171, 108, 116, 182, 104, 135, 194, 105, 162, 207, 116, 188, 219, 137, 209, 227, 159, 227, 234, 182, 240, 239, 200, 252, 244, 217], shape(navia25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: navia50 = reshape([3, 19, 39, 4, 25, 48, 5, 30, 58, 5, 37, 70, 6, 43, 80, 6, 49, 90, 7, 55, 100, 8, 62, 109, 11, 69, 120, 14, 76, 128, 17, 82, 134, 21, 88, 139, 25, 94, 142, 30, 100, 145, 33, 105, 145, 36, 109, 145, 39, 113, 143, 42, 116, 142, 45, 120, 140, 48, 122, 138, 51, 125, 137, 54, 128, 135, 57, 131, 133, 60, 134, 131, 63, 137, 129, 66, 140, 127, 70, 143, 125, 74, 147, 122, 78, 150, 120, 82, 154, 118, 87, 158, 115, 91, 162, 113, 98, 168, 110, 103, 173, 107, 110, 178, 105, 118, 183, 104, 127, 189, 104, 140, 197, 106, 152, 203, 111, 164, 209, 118, 177, 214, 127, 188, 219, 137, 201, 224, 150, 211, 227, 161, 220, 231, 172, 227, 234, 182, 234, 237, 191, 241, 240, 202, 247, 242, 210, 252, 244, 217], shape(navia50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: naviaS = reshape([3, 19, 39, 252, 244, 217, 65, 138, 128, 27, 96, 143, 135, 194, 105, 7, 57, 102, 209, 227, 159, 47, 121, 139, 89, 160, 114, 234, 237, 191, 5, 37, 70, 14, 77, 129, 38, 111, 144, 174, 213, 125, 107, 176, 106, 55, 129, 134, 76, 149, 121, 32, 104, 145, 5, 28, 54, 10, 67, 116, 6, 47, 86, 51, 125, 137, 193, 220, 141, 244, 241, 205, 98, 168, 110, 154, 204, 112, 42, 116, 142, 71, 143, 125, 60, 134, 131, 223, 232, 176, 120, 185, 104, 20, 87, 138, 83, 155, 117, 23, 92, 141, 239, 239, 198, 4, 24, 46, 73, 146, 123, 216, 229, 168, 12, 72, 123, 53, 127, 135, 40, 113, 143, 93, 164, 112, 184, 217, 133, 49, 123, 138, 102, 172, 108, 248, 243, 211, 144, 199, 108, 127, 189, 104, 229, 234, 184, 7, 52, 94, 68, 141, 126, 80, 152, 119, 113, 180, 105, 58, 132, 132, 17, 82, 134, 5, 33, 62, 6, 42, 78, 30, 100, 145, 201, 224, 150, 164, 209, 118, 35, 108, 145, 8, 62, 109, 63, 136, 129, 44, 118, 141, 87, 158, 115, 43, 117, 141, 5, 35, 66, 59, 133, 132, 57, 131, 133, 39, 112, 144, 232, 235, 188, 69, 142, 125, 123, 187, 104, 105, 174, 107, 188, 219, 137, 22, 89, 140, 159, 206, 115, 48, 122, 139, 5, 30, 58, 213, 228, 163, 246, 242, 208, 7, 54, 98, 66, 140, 127, 140, 197, 106, 6, 49, 90, 5, 26, 50, 54, 128, 134, 11, 69, 120, 241, 240, 202, 226, 233, 180, 220, 231, 172, 250, 243, 214, 91, 162, 113, 95, 166, 111, 36, 109, 145, 6, 44, 82, 52, 126, 136, 72, 145, 124, 75, 147, 122, 131, 192, 104], shape(naviaS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: naviaW = reshape([4, 20, 39, 4, 21, 41, 4, 22, 43, 4, 23, 45, 5, 25, 47, 5, 26, 49, 5, 27, 51, 5, 28, 53, 5, 29, 55, 5, 30, 57, 5, 32, 59, 5, 33, 61, 6, 34, 63, 6, 35, 65, 6, 36, 67, 6, 38, 69, 6, 39, 71, 6, 40, 74, 6, 41, 76, 7, 43, 78, 7, 44, 80, 7, 45, 82, 7, 47, 84, 7, 48, 86, 8, 49, 88, 8, 50, 90, 8, 52, 92, 8, 53, 94, 9, 54, 96, 9, 56, 98, 9, 57, 100, 10, 58, 102, 10, 60, 104, 10, 61, 106, 11, 62, 107, 11, 64, 109, 12, 65, 111, 12, 66, 113, 13, 68, 114, 14, 69, 116, 14, 70, 118, 15, 72, 119, 15, 73, 121, 16, 74, 122, 17, 76, 124, 17, 77, 125, 18, 78, 127, 19, 80, 128, 20, 81, 129, 20, 82, 130, 21, 84, 131, 22, 85, 132, 23, 86, 134, 24, 88, 134, 24, 89, 135, 25, 90, 136, 26, 91, 137, 27, 93, 138, 28, 94, 139, 28, 95, 139, 29, 96, 140, 30, 97, 140, 31, 98, 141, 32, 100, 141, 32, 101, 142, 33, 102, 142, 34, 103, 142, 35, 104, 142, 35, 105, 143, 36, 106, 143, 37, 107, 143, 38, 108, 143, 38, 109, 143, 39, 109, 143, 40, 110, 143, 40, 111, 143, 41, 112, 143, 42, 113, 143, 42, 114, 143, 43, 114, 143, 43, 115, 142, 44, 116, 142, 45, 117, 142, 45, 117, 142, 46, 118, 142, 46, 119, 141, 47, 119, 141, 48, 120, 141, 48, 121, 141, 49, 121, 140, 49, 122, 140, 50, 123, 140, 51, 123, 140, 51, 124, 139, 52, 125, 139, 52, 125, 139, 53, 126, 138, 54, 126, 138, 54, 127, 138, 55, 128, 137, 55, 128, 137, 56, 129, 137, 56, 129, 136, 57, 130, 136, 58, 131, 136, 58, 131, 135, 59, 132, 135, 60, 132, 135, 60, 133, 134, 61, 134, 134, 61, 134, 134, 62, 135, 133, 63, 135, 133, 63, 136, 133, 64, 137, 132, 65, 137, 132, 65, 138, 131, 66, 138, 131, 67, 139, 131, 67, 140, 130, 68, 140, 130, 69, 141, 130, 69, 142, 129, 70, 142, 129, 71, 143, 128, 72, 144, 128, 72, 144, 128, 73, 145, 127, 74, 146, 127, 75, 146, 126, 75, 147, 126, 76, 148, 126, 77, 149, 125, 78, 149, 125, 79, 150, 124, 80, 151, 124, 80, 152, 124, 81, 153, 123, 82, 153, 123, 83, 154, 122, 84, 155, 122, 85, 156, 121, 86, 157, 121, 87, 157, 120, 88, 158, 120, 89, 159, 120, 90, 160, 119, 91, 161, 119, 92, 162, 118, 93, 163, 118, 94, 164, 117, 95, 165, 117, 96, 166, 117, 98, 167, 116, 99, 168, 116, 100, 169, 115, 101, 170, 115, 103, 171, 115, 104, 172, 114, 105, 173, 114, 107, 174, 114, 108, 175, 113, 110, 176, 113, 111, 178, 113, 113, 179, 113, 114, 180, 113, 116, 181, 113, 118, 182, 113, 119, 184, 113, 121, 185, 113, 123, 186, 113, 125, 188, 113, 127, 189, 113, 129, 190, 114, 131, 192, 114, 133, 193, 114, 135, 194, 115, 137, 196, 116, 140, 197, 116, 142, 198, 117, 144, 200, 118, 147, 201, 119, 149, 203, 120, 152, 204, 121, 154, 205, 123, 157, 207, 124, 159, 208, 125, 162, 210, 127, 164, 211, 129, 167, 212, 130, 169, 214, 132, 172, 215, 134, 175, 216, 136, 177, 217, 138, 180, 219, 140, 182, 220, 142, 185, 221, 144, 187, 222, 147, 190, 223, 149, 192, 225, 151, 194, 226, 154, 197, 227, 156, 199, 228, 158, 201, 229, 161, 203, 230, 163, 205, 231, 166, 207, 232, 168, 209, 232, 171, 211, 233, 173, 213, 234, 175, 215, 235, 178, 216, 236, 180, 218, 236, 182, 219, 237, 185, 221, 238, 187, 222, 238, 189, 224, 239, 191, 225, 240, 194, 227, 240, 196, 228, 241, 198, 229, 241, 200, 230, 242, 202, 231, 243, 204, 232, 243, 206, 233, 244, 208, 234, 244, 210, 235, 245, 212, 236, 245, 213, 237, 245, 215, 238, 246, 217, 239, 246, 219, 240, 247, 220, 241, 247, 222, 241, 248, 224, 242, 248, 225, 243, 248, 227, 243, 249, 228, 244, 249, 230, 245, 249, 231, 246, 250, 233, 246, 250, 234, 247, 250, 236, 247, 251, 237, 248, 251, 238, 249, 251, 240, 249, 252, 241, 250, 252, 242, 250, 252, 243, 251, 253, 245, 251, 253, 246, 252, 253, 247, 252, 253, 248, 253, 254, 249, 253, 254, 251, 254, 254, 252, 254, 254, 253], shape(naviaW), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: naviaW10 = reshape([4, 20, 39, 9, 54, 96, 27, 93, 138, 46, 119, 141, 63, 136, 133, 86, 157, 121, 123, 186, 113, 190, 223, 149, 236, 245, 213, 254, 254, 253], shape(naviaW10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: naviaW100 = reshape([4, 20, 39, 4, 23, 45, 5, 26, 49, 5, 29, 55, 5, 32, 59, 6, 35, 65, 6, 38, 69, 6, 41, 76, 7, 45, 82, 7, 48, 86, 8, 52, 92, 9, 54, 96, 10, 58, 102, 10, 61, 106, 12, 65, 111, 14, 69, 116, 15, 72, 119, 17, 76, 124, 18, 78, 127, 20, 82, 130, 23, 86, 134, 24, 89, 135, 27, 93, 138, 28, 95, 139, 31, 98, 141, 32, 101, 142, 35, 104, 142, 37, 107, 143, 38, 109, 143, 40, 111, 143, 42, 113, 143, 43, 115, 142, 45, 117, 142, 46, 119, 141, 48, 121, 141, 49, 122, 140, 51, 124, 139, 52, 125, 139, 54, 127, 138, 55, 128, 137, 57, 130, 136, 59, 132, 135, 60, 133, 134, 62, 135, 133, 63, 136, 133, 65, 138, 131, 67, 139, 131, 69, 141, 130, 71, 143, 128, 72, 144, 128, 75, 146, 126, 76, 148, 126, 79, 150, 124, 81, 153, 123, 83, 154, 122, 86, 157, 121, 88, 158, 120, 91, 161, 119, 93, 163, 118, 96, 166, 117, 100, 169, 115, 103, 171, 115, 107, 174, 114, 110, 176, 113, 114, 180, 113, 118, 182, 113, 123, 186, 113, 129, 190, 114, 133, 193, 114, 140, 197, 116, 144, 200, 118, 152, 204, 121, 157, 207, 124, 164, 211, 129, 172, 215, 134, 177, 217, 138, 185, 221, 144, 190, 223, 149, 197, 227, 156, 201, 229, 161, 207, 232, 168, 213, 234, 175, 216, 236, 180, 221, 238, 187, 224, 239, 191, 228, 241, 198, 231, 243, 204, 233, 244, 208, 236, 245, 213, 238, 246, 217, 241, 247, 222, 242, 248, 225, 244, 249, 230, 246, 250, 234, 247, 251, 237, 249, 252, 241, 250, 252, 243, 252, 253, 247, 253, 254, 249, 254, 254, 253], shape(naviaW100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: naviaW25 = reshape([4, 20, 39, 5, 33, 61, 7, 45, 82, 10, 60, 104, 16, 74, 122, 24, 88, 134, 32, 101, 142, 40, 110, 143, 46, 119, 141, 53, 126, 138, 59, 132, 135, 66, 138, 131, 74, 146, 127, 82, 153, 123, 93, 163, 118, 105, 173, 114, 123, 186, 113, 147, 201, 119, 172, 215, 134, 199, 228, 158, 219, 237, 185, 232, 243, 206, 242, 248, 225, 249, 251, 240, 254, 254, 253], shape(naviaW25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: naviaW50 = reshape([4, 20, 39, 5, 26, 49, 5, 32, 59, 6, 39, 71, 7, 45, 82, 8, 52, 92, 10, 58, 102, 12, 65, 111, 15, 73, 121, 19, 80, 128, 23, 86, 134, 27, 93, 138, 31, 98, 141, 35, 105, 143, 39, 109, 143, 42, 114, 143, 45, 117, 142, 48, 121, 141, 52, 125, 139, 55, 128, 137, 58, 131, 136, 61, 134, 134, 64, 137, 132, 68, 140, 130, 72, 144, 128, 75, 147, 126, 80, 151, 124, 85, 156, 121, 90, 160, 119, 95, 165, 117, 101, 170, 115, 108, 175, 113, 118, 182, 113, 127, 189, 113, 137, 196, 116, 149, 203, 120, 162, 210, 127, 177, 217, 138, 190, 223, 149, 201, 229, 161, 211, 233, 173, 219, 237, 185, 228, 241, 198, 233, 244, 208, 238, 246, 217, 242, 248, 225, 246, 250, 233, 249, 252, 241, 252, 253, 247, 254, 254, 253], shape(naviaW50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: naviaWS = reshape([4, 20, 39, 251, 253, 246, 72, 144, 128, 31, 98, 141, 162, 210, 127, 227, 240, 196, 10, 58, 102, 52, 125, 139, 101, 170, 115, 42, 114, 143, 6, 39, 71, 85, 156, 121, 19, 80, 128, 242, 248, 225, 61, 134, 134, 201, 229, 161, 127, 189, 113, 47, 119, 141, 37, 107, 143, 182, 220, 142, 66, 138, 131, 235, 245, 212, 5, 29, 55, 14, 69, 116, 113, 179, 113, 78, 149, 125, 93, 163, 118, 8, 49, 88, 247, 250, 236, 142, 198, 117, 56, 129, 137, 215, 235, 178, 24, 89, 135, 11, 64, 109, 28, 94, 139, 40, 110, 143, 69, 141, 130, 6, 34, 63, 239, 246, 219, 231, 243, 204, 75, 146, 126, 81, 153, 123, 49, 122, 140, 221, 238, 187, 58, 131, 135, 7, 44, 80, 172, 215, 134, 63, 136, 133, 34, 103, 142, 89, 159, 120, 5, 25, 47, 16, 74, 122, 249, 252, 241, 192, 225, 151, 119, 184, 113, 45, 117, 142, 152, 204, 121, 107, 174, 114, 8, 53, 94, 54, 126, 138, 207, 232, 168, 135, 194, 115, 98, 167, 116, 22, 85, 132, 244, 249, 230, 17, 77, 125, 123, 186, 113, 20, 82, 130, 51, 123, 140, 104, 172, 114, 187, 222, 147, 6, 41, 76, 241, 247, 222, 177, 217, 138, 67, 140, 130, 60, 132, 135, 62, 135, 133, 38, 109, 143, 76, 148, 126, 73, 145, 127, 218, 236, 182, 197, 227, 156, 95, 165, 117, 43, 115, 142, 211, 233, 173, 70, 142, 129, 35, 105, 143, 246, 250, 233, 229, 241, 200, 80, 151, 124, 87, 157, 120, 83, 154, 122, 10, 61, 106, 26, 91, 137, 55, 128, 137, 12, 66, 113, 224, 239, 191, 7, 47, 84, 15, 72, 119, 6, 36, 67], shape(naviaWS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: nuuk = reshape([5, 89, 140, 7, 90, 140, 9, 90, 140, 11, 90, 139, 13, 91, 139, 14, 91, 139, 16, 91, 138, 17, 91, 138, 19, 92, 137, 20, 92, 137, 21, 92, 137, 23, 92, 136, 24, 93, 136, 25, 93, 136, 26, 93, 135, 27, 94, 135, 28, 94, 135, 30, 94, 134, 31, 95, 134, 32, 95, 134, 33, 95, 134, 34, 96, 133, 35, 96, 133, 36, 96, 133, 37, 97, 133, 38, 97, 132, 39, 97, 132, 40, 98, 132, 41, 98, 132, 42, 99, 131, 43, 99, 131, 44, 99, 131, 45, 100, 131, 46, 100, 131, 47, 101, 131, 48, 101, 130, 50, 102, 130, 51, 102, 130, 52, 103, 130, 53, 103, 130, 54, 104, 130, 55, 104, 130, 56, 105, 130, 57, 105, 130, 59, 106, 130, 60, 106, 130, 61, 107, 130, 62, 108, 130, 63, 108, 130, 64, 109, 130, 66, 109, 130, 67, 110, 130, 68, 111, 130, 69, 111, 130, 70, 112, 131, 72, 113, 131, 73, 113, 131, 74, 114, 131, 75, 115, 131, 77, 115, 132, 78, 116, 132, 79, 117, 132, 81, 117, 132, 82, 118, 133, 83, 119, 133, 85, 120, 133, 86, 120, 134, 87, 121, 134, 88, 122, 134, 90, 122, 135, 91, 123, 135, 92, 124, 135, 94, 125, 136, 95, 125, 136, 96, 126, 136, 98, 127, 137, 99, 128, 137, 100, 129, 138, 102, 129, 138, 103, 130, 138, 104, 131, 139, 106, 132, 139, 107, 132, 140, 108, 133, 140, 110, 134, 140, 111, 135, 141, 112, 135, 141, 114, 136, 142, 115, 137, 142, 116, 138, 143, 118, 139, 143, 119, 139, 143, 120, 140, 144, 121, 141, 144, 123, 142, 145, 124, 142, 145, 125, 143, 145, 127, 144, 146, 128, 145, 146, 129, 145, 146, 130, 146, 147, 132, 147, 147, 133, 148, 147, 134, 148, 148, 135, 149, 148, 137, 150, 148, 138, 151, 149, 139, 151, 149, 140, 152, 149, 141, 153, 150, 142, 154, 150, 144, 154, 150, 145, 155, 150, 146, 156, 150, 147, 156, 151, 148, 157, 151, 149, 158, 151, 150, 158, 151, 151, 159, 151, 152, 160, 151, 153, 160, 151, 154, 161, 152, 155, 162, 152, 156, 162, 152, 157, 163, 152, 158, 164, 152, 159, 164, 152, 160, 165, 152, 161, 166, 152, 162, 166, 152, 162, 167, 152, 163, 167, 152, 164, 168, 151, 165, 168, 151, 166, 169, 151, 166, 170, 151, 167, 170, 151, 168, 171, 151, 169, 171, 151, 169, 172, 151, 170, 172, 150, 171, 173, 150, 171, 173, 150, 172, 174, 150, 173, 174, 149, 173, 175, 149, 174, 175, 149, 174, 176, 149, 175, 176, 148, 176, 177, 148, 176, 177, 148, 177, 177, 148, 177, 178, 147, 178, 178, 147, 178, 179, 147, 179, 179, 146, 179, 180, 146, 180, 180, 146, 180, 181, 145, 181, 181, 145, 181, 181, 145, 182, 182, 144, 182, 182, 144, 183, 183, 144, 183, 183, 143, 183, 183, 143, 184, 184, 142, 184, 184, 142, 185, 185, 142, 185, 185, 141, 186, 185, 141, 186, 186, 141, 186, 186, 140, 187, 187, 140, 187, 187, 139, 188, 187, 139, 188, 188, 139, 189, 188, 138, 189, 189, 138, 189, 189, 138, 190, 189, 137, 190, 190, 137, 191, 190, 136, 191, 191, 136, 192, 191, 136, 192, 192, 135, 192, 192, 135, 193, 193, 135, 193, 193, 134, 194, 193, 134, 194, 194, 134, 195, 194, 133, 195, 195, 133, 196, 195, 133, 196, 196, 133, 197, 196, 132, 197, 197, 132, 198, 198, 132, 199, 198, 132, 199, 199, 132, 200, 199, 131, 200, 200, 131, 201, 201, 131, 202, 201, 131, 202, 202, 131, 203, 203, 131, 204, 203, 131, 205, 204, 131, 205, 205, 131, 206, 206, 131, 207, 207, 132, 208, 207, 132, 209, 208, 132, 210, 209, 132, 210, 210, 133, 211, 211, 133, 212, 212, 134, 213, 213, 134, 214, 214, 135, 215, 215, 135, 216, 216, 136, 217, 217, 136, 219, 218, 137, 220, 219, 138, 221, 221, 139, 222, 222, 140, 223, 223, 141, 224, 224, 142, 225, 225, 143, 227, 226, 144, 228, 227, 145, 229, 229, 146, 230, 230, 147, 231, 231, 148, 232, 232, 149, 233, 233, 151, 235, 234, 152, 236, 235, 153, 237, 237, 154, 238, 238, 156, 239, 239, 157, 240, 240, 158, 241, 241, 160, 242, 242, 161, 243, 243, 163, 244, 244, 164, 245, 245, 165, 246, 246, 167, 247, 247, 168, 248, 248, 170, 249, 249, 171, 250, 250, 173, 251, 251, 174, 252, 252, 175, 253, 253, 177, 254, 254, 178], shape(nuuk), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: nuuk10 = reshape([5, 89, 140, 41, 98, 132, 74, 114, 131, 111, 135, 141, 146, 156, 150, 171, 173, 150, 186, 185, 141, 199, 198, 132, 224, 224, 142, 254, 254, 178], shape(nuuk10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: nuuk100 = reshape([5, 89, 140, 11, 90, 139, 14, 91, 139, 19, 92, 137, 21, 92, 137, 25, 93, 136, 27, 94, 135, 31, 95, 134, 34, 96, 133, 36, 96, 133, 39, 97, 132, 41, 98, 132, 44, 99, 131, 46, 100, 131, 50, 102, 130, 53, 103, 130, 55, 104, 130, 59, 106, 130, 61, 107, 130, 64, 109, 130, 68, 111, 130, 70, 112, 131, 74, 114, 131, 77, 115, 132, 81, 117, 132, 83, 119, 133, 87, 121, 134, 91, 123, 135, 94, 125, 136, 98, 127, 137, 100, 129, 138, 104, 131, 139, 107, 132, 140, 111, 135, 141, 115, 137, 142, 118, 139, 143, 121, 141, 144, 124, 142, 145, 128, 145, 146, 130, 146, 147, 134, 148, 148, 138, 151, 149, 140, 152, 149, 144, 154, 150, 146, 156, 150, 149, 158, 151, 151, 159, 151, 154, 161, 152, 157, 163, 152, 159, 164, 152, 162, 166, 152, 163, 167, 152, 166, 169, 151, 168, 171, 151, 169, 172, 151, 171, 173, 150, 173, 174, 149, 174, 176, 149, 176, 177, 148, 177, 178, 147, 179, 179, 146, 180, 180, 146, 181, 181, 145, 182, 182, 144, 183, 183, 143, 184, 184, 142, 186, 185, 141, 187, 187, 140, 188, 187, 139, 189, 189, 138, 190, 189, 137, 191, 191, 136, 192, 192, 135, 193, 193, 134, 195, 194, 133, 196, 195, 133, 197, 197, 132, 199, 198, 132, 200, 200, 131, 202, 201, 131, 204, 203, 131, 206, 206, 131, 208, 207, 132, 210, 210, 133, 212, 212, 134, 215, 215, 135, 219, 218, 137, 221, 221, 139, 224, 224, 142, 227, 226, 144, 230, 230, 147, 232, 232, 149, 236, 235, 153, 239, 239, 157, 241, 241, 160, 244, 244, 164, 246, 246, 167, 249, 249, 171, 251, 251, 174, 254, 254, 178], shape(nuuk100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: nuuk25 = reshape([5, 89, 140, 23, 92, 136, 34, 96, 133, 45, 100, 131, 57, 105, 130, 69, 111, 130, 83, 119, 133, 96, 126, 136, 111, 135, 141, 125, 143, 145, 138, 151, 149, 150, 158, 151, 161, 166, 152, 169, 171, 151, 176, 177, 148, 181, 181, 145, 186, 185, 141, 190, 190, 137, 195, 194, 133, 201, 201, 131, 210, 209, 132, 220, 219, 138, 232, 232, 149, 243, 243, 163, 254, 254, 178], shape(nuuk25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: nuuk50 = reshape([5, 89, 140, 14, 91, 139, 21, 92, 137, 28, 94, 135, 34, 96, 133, 39, 97, 132, 44, 99, 131, 50, 102, 130, 56, 105, 130, 62, 108, 130, 68, 111, 130, 74, 114, 131, 81, 117, 132, 88, 122, 134, 95, 125, 136, 102, 129, 138, 108, 133, 140, 115, 137, 142, 123, 142, 145, 129, 145, 146, 135, 149, 148, 141, 153, 150, 147, 156, 151, 153, 160, 151, 158, 164, 152, 162, 167, 152, 166, 170, 151, 171, 173, 150, 174, 175, 149, 177, 177, 148, 179, 180, 146, 182, 182, 144, 184, 184, 142, 186, 186, 140, 189, 188, 138, 191, 190, 136, 193, 193, 135, 196, 195, 133, 199, 198, 132, 202, 201, 131, 205, 205, 131, 210, 209, 132, 215, 215, 135, 221, 221, 139, 227, 226, 144, 232, 232, 149, 238, 238, 156, 244, 244, 164, 249, 249, 171, 254, 254, 178], shape(nuuk50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: nuukS = reshape([5, 89, 140, 254, 254, 178, 161, 166, 152, 83, 119, 133, 195, 195, 133, 45, 100, 131, 181, 181, 145, 125, 143, 145, 221, 221, 139, 188, 188, 139, 173, 174, 149, 145, 155, 150, 104, 131, 139, 63, 108, 130, 28, 94, 135, 205, 205, 131, 238, 238, 156, 135, 149, 148, 177, 178, 147, 94, 125, 136, 115, 137, 142, 200, 199, 131, 246, 246, 167, 192, 191, 136, 153, 160, 151, 212, 212, 134, 73, 113, 131, 167, 170, 151, 185, 185, 142, 19, 92, 137, 37, 97, 133, 54, 104, 130, 230, 230, 147, 99, 128, 137, 170, 172, 150, 175, 176, 148, 183, 183, 143, 179, 180, 146, 50, 102, 130, 130, 146, 147, 110, 134, 140, 24, 93, 136, 78, 116, 132, 250, 250, 173, 225, 225, 143, 202, 202, 131, 41, 98, 132, 164, 168, 151, 13, 91, 139, 193, 193, 134, 209, 208, 132, 216, 216, 136, 59, 106, 130, 120, 140, 144, 190, 189, 137, 149, 158, 151, 157, 163, 152, 242, 242, 161, 197, 197, 132, 33, 95, 134, 88, 122, 134, 186, 186, 140, 140, 152, 149, 68, 111, 130, 235, 234, 152, 147, 156, 151, 192, 192, 135, 171, 173, 150, 252, 252, 175, 118, 139, 143, 219, 218, 137, 214, 214, 135, 112, 135, 141, 189, 189, 138, 228, 227, 145, 210, 210, 133, 31, 95, 134, 16, 91, 138, 166, 169, 151, 9, 90, 140, 66, 109, 130, 21, 92, 137, 196, 196, 133, 70, 112, 131, 240, 240, 158, 191, 190, 136, 199, 198, 132, 133, 148, 147, 96, 126, 136, 180, 181, 145, 204, 203, 131, 207, 207, 132, 223, 223, 141, 187, 187, 139, 138, 151, 149, 142, 154, 150, 39, 97, 132, 128, 145, 146, 162, 167, 152, 47, 101, 131], shape(nuukS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: oleron = reshape([26, 38, 89, 27, 40, 91, 29, 41, 92, 30, 43, 94, 32, 44, 95, 33, 46, 97, 35, 47, 98, 36, 49, 100, 38, 50, 101, 40, 52, 103, 41, 53, 104, 43, 55, 106, 44, 56, 107, 46, 58, 109, 47, 59, 111, 49, 61, 112, 50, 63, 114, 52, 64, 115, 53, 66, 117, 55, 67, 118, 57, 69, 120, 58, 71, 122, 60, 72, 123, 61, 74, 125, 63, 75, 126, 65, 77, 128, 66, 79, 130, 68, 80, 131, 69, 82, 133, 71, 84, 135, 73, 85, 136, 74, 87, 138, 76, 89, 140, 78, 90, 141, 79, 92, 143, 81, 94, 145, 83, 95, 146, 84, 97, 148, 86, 99, 150, 88, 100, 151, 89, 102, 153, 91, 104, 155, 93, 105, 156, 94, 107, 158, 96, 109, 160, 98, 111, 162, 100, 112, 163, 101, 114, 165, 103, 116, 167, 105, 117, 169, 107, 119, 170, 108, 121, 172, 110, 123, 174, 112, 125, 176, 114, 126, 177, 115, 128, 179, 117, 130, 181, 119, 132, 183, 121, 133, 184, 122, 135, 186, 124, 137, 188, 126, 139, 190, 128, 141, 192, 130, 142, 193, 131, 144, 195, 133, 146, 197, 135, 148, 199, 137, 150, 201, 139, 151, 202, 141, 153, 204, 142, 155, 206, 144, 157, 208, 146, 159, 210, 148, 161, 211, 150, 162, 213, 152, 164, 215, 153, 166, 217, 155, 168, 219, 157, 170, 220, 159, 172, 222, 161, 173, 224, 163, 175, 225, 164, 177, 227, 166, 179, 229, 168, 181, 230, 170, 183, 232, 172, 184, 233, 173, 186, 234, 175, 188, 236, 177, 189, 237, 178, 191, 238, 180, 193, 239, 182, 194, 240, 183, 196, 241, 185, 198, 242, 186, 199, 243, 188, 201, 243, 189, 202, 244, 191, 203, 244, 192, 205, 245, 194, 206, 245, 195, 208, 246, 196, 209, 246, 198, 210, 247, 199, 212, 247, 200, 213, 248, 202, 214, 248, 203, 216, 248, 204, 217, 249, 206, 218, 249, 207, 220, 249, 208, 221, 250, 210, 222, 250, 211, 224, 250, 212, 225, 251, 214, 226, 251, 215, 228, 251, 216, 229, 252, 218, 230, 252, 219, 232, 252, 220, 233, 253, 222, 234, 253, 223, 236, 253, 224, 237, 254, 226, 238, 254, 227, 240, 254, 228, 241, 255, 230, 242, 255, 26, 76, 0, 29, 77, 0, 31, 78, 0, 34, 79, 0, 37, 79, 0, 39, 80, 0, 42, 81, 0, 44, 81, 0, 47, 82, 0, 49, 83, 0, 51, 84, 0, 53, 84, 0, 56, 85, 0, 58, 86, 0, 60, 86, 0, 62, 87, 0, 64, 87, 0, 66, 88, 0, 68, 89, 0, 70, 89, 0, 73, 90, 1, 75, 91, 1, 77, 92, 1, 79, 92, 2, 81, 93, 2, 83, 94, 2, 85, 95, 3, 87, 96, 4, 90, 96, 5, 92, 97, 6, 94, 98, 7, 96, 99, 9, 99, 100, 10, 101, 102, 12, 103, 103, 14, 106, 104, 16, 108, 105, 18, 110, 106, 20, 113, 108, 22, 115, 109, 24, 117, 110, 26, 120, 112, 29, 122, 113, 31, 124, 114, 33, 126, 116, 35, 129, 117, 37, 131, 118, 40, 133, 120, 42, 135, 121, 44, 138, 123, 46, 140, 124, 49, 142, 125, 51, 144, 127, 53, 146, 128, 55, 148, 130, 58, 151, 131, 60, 153, 132, 62, 155, 134, 64, 157, 135, 67, 159, 137, 69, 161, 138, 71, 163, 140, 73, 166, 141, 76, 168, 143, 78, 170, 144, 80, 172, 146, 83, 174, 147, 85, 177, 149, 87, 179, 151, 89, 181, 152, 92, 183, 154, 94, 186, 156, 96, 188, 157, 99, 190, 159, 101, 193, 161, 103, 195, 163, 106, 197, 164, 108, 199, 166, 110, 202, 168, 113, 204, 170, 115, 206, 172, 117, 209, 173, 120, 211, 175, 122, 213, 177, 124, 215, 179, 127, 217, 181, 129, 220, 182, 132, 222, 184, 134, 224, 186, 137, 226, 188, 139, 228, 190, 142, 229, 192, 144, 231, 194, 147, 233, 196, 149, 234, 197, 152, 236, 199, 154, 237, 201, 157, 238, 203, 159, 240, 205, 162, 241, 206, 164, 242, 208, 167, 242, 210, 169, 243, 212, 171, 244, 213, 174, 245, 215, 176, 245, 217, 178, 246, 218, 181, 246, 220, 183, 247, 222, 185, 247, 223, 188, 247, 225, 190, 248, 226, 192, 248, 228, 195, 248, 230, 197, 249, 231, 199, 249, 233, 201, 249, 234, 204, 250, 236, 206, 250, 238, 208, 250, 239, 211, 251, 241, 213, 251, 243, 215, 251, 244, 218, 251, 246, 220, 252, 248, 222, 252, 249, 225, 252, 251, 227, 253, 253, 230], shape(oleron), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: oleron10 = reshape([26, 38, 89, 69, 82, 133, 119, 132, 183, 170, 183, 232, 211, 224, 250, 60, 86, 0, 122, 113, 31, 183, 154, 94, 241, 206, 164, 253, 253, 230], shape(oleron10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: oleron100 = reshape([26, 38, 89, 30, 43, 94, 33, 46, 97, 38, 50, 101, 41, 53, 104, 46, 58, 109, 49, 61, 112, 53, 66, 117, 58, 71, 122, 61, 74, 125, 66, 79, 130, 69, 82, 133, 74, 87, 138, 78, 90, 141, 83, 95, 146, 88, 100, 151, 91, 104, 155, 96, 109, 160, 100, 112, 163, 105, 117, 169, 110, 123, 174, 114, 126, 177, 119, 132, 183, 122, 135, 186, 128, 141, 192, 131, 144, 195, 137, 150, 201, 142, 155, 206, 146, 159, 210, 152, 164, 215, 155, 168, 219, 161, 173, 224, 164, 177, 227, 170, 183, 232, 175, 188, 236, 178, 191, 238, 183, 196, 241, 186, 199, 243, 191, 203, 244, 194, 206, 245, 198, 210, 247, 202, 214, 248, 204, 217, 249, 208, 221, 250, 211, 224, 250, 215, 228, 251, 218, 230, 252, 222, 234, 253, 226, 238, 254, 228, 241, 255, 29, 77, 0, 34, 79, 0, 42, 81, 0, 49, 83, 0, 53, 84, 0, 60, 86, 0, 64, 87, 0, 70, 89, 0, 75, 91, 1, 81, 93, 2, 87, 96, 4, 92, 97, 6, 99, 100, 10, 103, 103, 14, 110, 106, 20, 115, 109, 24, 122, 113, 31, 129, 117, 37, 133, 120, 42, 140, 124, 49, 144, 127, 53, 151, 131, 60, 155, 134, 64, 161, 138, 71, 168, 143, 78, 172, 146, 83, 179, 151, 89, 183, 154, 94, 190, 159, 101, 195, 163, 106, 202, 168, 113, 209, 173, 120, 213, 177, 124, 220, 182, 132, 224, 186, 137, 229, 192, 144, 234, 197, 152, 237, 201, 157, 241, 206, 164, 242, 210, 169, 245, 215, 176, 246, 218, 181, 247, 223, 188, 248, 228, 195, 249, 231, 199, 250, 236, 206, 250, 239, 211, 251, 244, 218, 252, 248, 222, 253, 253, 230], shape(oleron100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: oleron25 = reshape([26, 38, 89, 43, 55, 106, 58, 71, 122, 76, 89, 140, 94, 107, 158, 112, 125, 176, 131, 144, 195, 150, 162, 213, 170, 183, 232, 188, 201, 243, 202, 214, 248, 216, 229, 252, 26, 76, 0, 51, 84, 0, 75, 91, 1, 96, 99, 9, 122, 113, 31, 146, 128, 55, 168, 143, 78, 193, 161, 103, 217, 181, 129, 236, 199, 154, 246, 218, 181, 249, 234, 204, 253, 253, 230], shape(oleron25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: oleron50 = reshape([26, 38, 89, 33, 46, 97, 41, 53, 104, 50, 63, 114, 58, 71, 122, 66, 79, 130, 74, 87, 138, 83, 95, 146, 93, 105, 156, 101, 114, 165, 110, 123, 174, 119, 132, 183, 128, 141, 192, 139, 151, 202, 148, 161, 211, 157, 170, 220, 166, 179, 229, 175, 188, 236, 185, 198, 242, 192, 205, 245, 199, 212, 247, 206, 218, 249, 212, 225, 251, 220, 233, 253, 227, 240, 254, 31, 78, 0, 44, 81, 0, 58, 86, 0, 68, 89, 0, 79, 92, 2, 90, 96, 5, 101, 102, 12, 115, 109, 24, 126, 116, 35, 138, 123, 46, 148, 130, 58, 159, 137, 69, 172, 146, 83, 183, 154, 94, 195, 163, 106, 206, 172, 117, 217, 181, 129, 229, 192, 144, 237, 201, 157, 242, 210, 169, 246, 218, 181, 248, 226, 192, 250, 236, 206, 251, 244, 218, 253, 253, 230], shape(oleron50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: oslo = reshape([1, 1, 1, 1, 2, 3, 2, 4, 5, 2, 5, 7, 3, 6, 9, 4, 7, 11, 4, 8, 13, 5, 9, 15, 5, 10, 16, 6, 11, 18, 6, 12, 19, 7, 13, 21, 8, 14, 22, 8, 15, 23, 9, 16, 24, 9, 17, 25, 10, 18, 27, 11, 19, 28, 11, 19, 29, 11, 20, 30, 12, 21, 31, 12, 22, 32, 13, 22, 34, 13, 23, 35, 13, 24, 36, 13, 25, 37, 13, 25, 39, 13, 26, 40, 13, 27, 41, 14, 27, 42, 14, 28, 44, 14, 29, 45, 14, 30, 46, 14, 30, 47, 14, 31, 49, 14, 32, 50, 15, 33, 51, 15, 33, 53, 15, 34, 54, 15, 35, 55, 15, 36, 57, 15, 37, 58, 16, 38, 60, 16, 38, 61, 16, 39, 62, 16, 40, 64, 16, 41, 65, 17, 42, 67, 17, 43, 68, 17, 43, 69, 17, 44, 71, 18, 45, 72, 18, 46, 74, 18, 47, 75, 18, 48, 76, 19, 49, 78, 19, 50, 79, 19, 50, 81, 20, 51, 82, 20, 52, 84, 20, 53, 85, 20, 54, 87, 21, 55, 88, 21, 56, 90, 21, 57, 91, 22, 58, 93, 22, 59, 94, 23, 59, 96, 23, 60, 97, 23, 61, 99, 24, 62, 100, 24, 63, 102, 25, 64, 103, 25, 65, 105, 25, 66, 106, 26, 67, 108, 26, 68, 109, 27, 69, 111, 27, 70, 112, 28, 71, 114, 28, 72, 115, 29, 72, 117, 29, 73, 118, 30, 74, 120, 30, 75, 122, 31, 76, 123, 32, 77, 125, 32, 78, 126, 33, 79, 128, 33, 80, 129, 34, 81, 131, 35, 82, 133, 35, 83, 134, 36, 84, 136, 37, 85, 137, 38, 86, 139, 38, 87, 140, 39, 88, 142, 40, 89, 144, 41, 90, 145, 42, 91, 147, 43, 92, 148, 44, 93, 150, 45, 94, 152, 46, 95, 153, 47, 96, 155, 48, 97, 156, 49, 98, 158, 50, 99, 160, 51, 100, 161, 52, 101, 163, 54, 102, 164, 55, 103, 166, 56, 105, 168, 58, 106, 169, 59, 107, 171, 61, 108, 172, 62, 109, 174, 64, 110, 175, 65, 112, 177, 67, 113, 178, 68, 114, 179, 70, 115, 181, 71, 117, 182, 73, 118, 184, 75, 119, 185, 76, 120, 186, 78, 122, 187, 80, 123, 188, 81, 124, 189, 83, 125, 190, 84, 126, 191, 86, 127, 192, 88, 129, 193, 89, 130, 194, 91, 131, 195, 92, 132, 195, 94, 133, 196, 96, 134, 197, 97, 135, 197, 99, 136, 198, 100, 137, 198, 101, 138, 199, 103, 139, 199, 104, 140, 199, 106, 141, 200, 107, 142, 200, 108, 143, 200, 110, 144, 200, 111, 144, 201, 112, 145, 201, 114, 146, 201, 115, 147, 201, 116, 148, 201, 117, 148, 201, 119, 149, 201, 120, 150, 201, 121, 151, 202, 122, 152, 202, 123, 152, 202, 125, 153, 202, 126, 154, 202, 127, 155, 202, 128, 155, 202, 129, 156, 202, 131, 157, 202, 132, 158, 202, 133, 158, 202, 134, 159, 202, 135, 160, 202, 137, 160, 202, 138, 161, 202, 139, 162, 201, 140, 163, 201, 141, 163, 201, 142, 164, 201, 144, 165, 201, 145, 166, 201, 146, 166, 201, 147, 167, 201, 148, 168, 201, 150, 169, 201, 151, 169, 201, 152, 170, 201, 153, 171, 201, 154, 172, 201, 156, 172, 201, 157, 173, 201, 158, 174, 201, 159, 175, 201, 160, 175, 201, 162, 176, 202, 163, 177, 202, 164, 178, 202, 165, 179, 202, 167, 180, 202, 168, 180, 202, 169, 181, 202, 170, 182, 202, 172, 183, 202, 173, 184, 203, 174, 185, 203, 176, 186, 203, 177, 187, 203, 178, 188, 204, 180, 189, 204, 181, 189, 204, 182, 190, 205, 184, 191, 205, 185, 193, 205, 186, 194, 206, 188, 195, 206, 189, 196, 207, 191, 197, 207, 192, 198, 208, 194, 199, 209, 195, 200, 209, 197, 201, 210, 198, 203, 211, 199, 204, 211, 201, 205, 212, 202, 206, 213, 204, 208, 214, 206, 209, 215, 207, 210, 216, 209, 211, 217, 210, 213, 218, 212, 214, 219, 213, 216, 220, 215, 217, 221, 216, 218, 222, 218, 220, 223, 219, 221, 224, 221, 222, 225, 222, 224, 226, 224, 225, 228, 226, 227, 229, 227, 228, 230, 229, 230, 231, 230, 231, 233, 232, 233, 234, 233, 234, 235, 235, 236, 237, 236, 237, 238, 238, 238, 239, 239, 240, 241, 241, 241, 242, 243, 243, 244, 244, 244, 245, 246, 246, 246, 247, 247, 248, 249, 249, 249, 250, 250, 251, 252, 252, 252, 253, 253, 254, 255, 255, 255], shape(oslo), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: oslo10 = reshape([1, 1, 1, 13, 27, 41, 19, 50, 81, 31, 76, 123, 56, 105, 168, 101, 138, 199, 137, 160, 202, 170, 182, 202, 212, 214, 219, 255, 255, 255], shape(oslo10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: oslo100 = reshape([1, 1, 1, 2, 5, 7, 4, 7, 11, 5, 10, 16, 6, 12, 19, 8, 15, 23, 9, 17, 25, 11, 19, 29, 12, 22, 32, 13, 23, 35, 13, 25, 39, 13, 27, 41, 14, 29, 45, 14, 30, 47, 15, 33, 51, 15, 35, 55, 15, 37, 58, 16, 39, 62, 16, 41, 65, 17, 43, 69, 18, 46, 74, 18, 48, 76, 19, 50, 81, 20, 52, 84, 21, 55, 88, 21, 57, 91, 23, 59, 96, 24, 62, 100, 25, 64, 103, 26, 67, 108, 27, 69, 111, 28, 72, 115, 29, 73, 118, 31, 76, 123, 33, 79, 128, 34, 81, 131, 36, 84, 136, 38, 86, 139, 40, 89, 144, 42, 91, 147, 45, 94, 152, 48, 97, 156, 50, 99, 160, 54, 102, 164, 56, 105, 168, 61, 108, 172, 64, 110, 175, 68, 114, 179, 73, 118, 184, 76, 120, 186, 81, 124, 189, 84, 126, 191, 89, 130, 194, 94, 133, 196, 97, 135, 197, 101, 138, 199, 104, 140, 199, 108, 143, 200, 111, 144, 201, 115, 147, 201, 119, 149, 201, 121, 151, 202, 125, 153, 202, 127, 155, 202, 131, 157, 202, 133, 158, 202, 137, 160, 202, 140, 163, 201, 142, 164, 201, 146, 166, 201, 148, 168, 201, 152, 170, 201, 154, 172, 201, 158, 174, 201, 162, 176, 202, 164, 178, 202, 168, 180, 202, 170, 182, 202, 174, 185, 203, 177, 187, 203, 181, 189, 204, 185, 193, 205, 188, 195, 206, 192, 198, 208, 195, 200, 209, 199, 204, 211, 204, 208, 214, 207, 210, 216, 212, 214, 219, 215, 217, 221, 219, 221, 224, 222, 224, 226, 227, 228, 230, 232, 233, 234, 235, 236, 237, 239, 240, 241, 243, 243, 244, 247, 247, 248, 250, 250, 251, 255, 255, 255], shape(oslo100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: oslo25 = reshape([1, 1, 1, 7, 13, 21, 12, 22, 32, 14, 30, 46, 16, 38, 61, 18, 47, 75, 21, 57, 91, 25, 66, 106, 31, 76, 123, 38, 87, 140, 48, 97, 156, 62, 109, 174, 80, 123, 188, 96, 134, 197, 111, 144, 201, 123, 152, 202, 137, 160, 202, 150, 169, 201, 162, 176, 202, 176, 186, 203, 191, 197, 207, 206, 209, 215, 222, 224, 226, 238, 238, 239, 255, 255, 255], shape(oslo25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: oslo50 = reshape([1, 1, 1, 4, 7, 11, 6, 12, 19, 10, 18, 27, 12, 22, 32, 13, 25, 39, 14, 29, 45, 15, 33, 51, 16, 38, 60, 17, 42, 67, 18, 46, 74, 19, 50, 81, 21, 55, 88, 23, 60, 97, 25, 65, 105, 27, 70, 112, 30, 74, 120, 33, 79, 128, 37, 85, 137, 41, 90, 145, 46, 95, 153, 51, 100, 161, 58, 106, 169, 67, 113, 178, 75, 119, 185, 83, 125, 190, 91, 131, 195, 100, 137, 198, 107, 142, 200, 114, 146, 201, 120, 150, 201, 126, 154, 202, 133, 158, 202, 139, 162, 201, 145, 166, 201, 151, 169, 201, 157, 173, 201, 164, 178, 202, 170, 182, 202, 177, 187, 203, 184, 191, 205, 191, 197, 207, 199, 204, 211, 207, 210, 216, 215, 217, 221, 222, 224, 226, 230, 231, 233, 239, 240, 241, 247, 247, 248, 255, 255, 255], shape(oslo50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: osloS = reshape([3, 6, 9, 249, 249, 249, 80, 123, 188, 22, 59, 94, 160, 175, 201, 14, 32, 50, 123, 152, 202, 39, 88, 142, 202, 206, 213, 11, 20, 30, 18, 45, 72, 55, 103, 166, 181, 189, 204, 103, 139, 199, 29, 73, 118, 141, 163, 201, 226, 227, 229, 25, 66, 106, 16, 38, 61, 114, 146, 201, 151, 169, 201, 67, 113, 178, 13, 26, 40, 170, 182, 202, 47, 96, 155, 215, 217, 221, 34, 81, 131, 191, 197, 207, 20, 52, 84, 238, 238, 239, 132, 158, 202, 8, 14, 22, 91, 131, 195, 32, 77, 125, 13, 23, 35, 73, 118, 184, 137, 160, 202, 24, 62, 100, 61, 108, 172, 14, 29, 45, 108, 143, 200, 27, 70, 112, 5, 10, 16, 209, 211, 217, 19, 49, 78, 165, 179, 202, 17, 42, 67, 232, 233, 234, 146, 166, 201, 197, 201, 210, 156, 172, 201, 97, 135, 197, 119, 149, 201, 43, 92, 148, 15, 35, 55, 176, 186, 203, 50, 99, 160, 243, 243, 244, 10, 18, 27, 36, 84, 136, 86, 127, 192, 127, 155, 202, 219, 221, 224, 186, 194, 206, 21, 55, 88, 17, 43, 69, 6, 12, 19, 70, 115, 181, 23, 60, 97, 212, 214, 219, 148, 168, 201, 76, 120, 186, 13, 25, 37, 100, 137, 198, 139, 162, 201, 121, 151, 202, 45, 94, 152, 14, 30, 47, 184, 191, 205, 25, 64, 103, 94, 133, 196, 178, 188, 204, 83, 125, 190, 28, 72, 115, 206, 209, 215, 12, 22, 32, 158, 174, 201, 222, 224, 226, 52, 101, 163, 58, 106, 169, 15, 37, 58, 235, 236, 237, 194, 199, 209, 64, 110, 175, 33, 79, 128, 15, 33, 53, 229, 230, 231, 4, 8, 13, 19, 50, 81, 30, 75, 122], shape(osloS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: roma = reshape([126, 23, 0, 127, 26, 1, 128, 29, 2, 129, 32, 3, 130, 34, 4, 131, 37, 4, 132, 39, 5, 133, 42, 6, 134, 44, 6, 135, 46, 7, 136, 48, 8, 138, 50, 8, 139, 52, 9, 140, 54, 10, 141, 56, 11, 142, 58, 11, 143, 60, 12, 144, 62, 13, 144, 64, 14, 145, 66, 15, 146, 68, 15, 147, 70, 16, 148, 71, 17, 149, 73, 18, 150, 75, 18, 151, 77, 19, 152, 78, 20, 153, 80, 20, 153, 82, 21, 154, 83, 22, 155, 85, 23, 156, 87, 23, 157, 88, 24, 158, 90, 25, 158, 92, 25, 159, 93, 26, 160, 95, 27, 161, 97, 28, 162, 98, 28, 162, 100, 29, 163, 101, 30, 164, 103, 30, 165, 104, 31, 166, 106, 32, 166, 108, 32, 167, 109, 33, 168, 111, 34, 169, 112, 35, 169, 114, 35, 170, 115, 36, 171, 117, 37, 172, 119, 38, 173, 120, 38, 173, 122, 39, 174, 124, 40, 175, 125, 41, 176, 127, 42, 176, 128, 43, 177, 130, 44, 178, 132, 45, 179, 134, 46, 180, 135, 47, 181, 137, 48, 181, 139, 49, 182, 140, 50, 183, 142, 51, 184, 144, 52, 185, 146, 53, 186, 148, 55, 186, 149, 56, 187, 151, 57, 188, 153, 59, 189, 155, 60, 190, 157, 62, 191, 159, 64, 192, 161, 65, 193, 163, 67, 193, 165, 69, 194, 166, 71, 195, 168, 72, 196, 170, 74, 197, 172, 76, 198, 174, 79, 199, 176, 81, 199, 178, 83, 200, 180, 85, 201, 182, 88, 202, 184, 90, 203, 186, 93, 203, 188, 95, 204, 190, 98, 205, 192, 100, 206, 194, 103, 206, 196, 106, 207, 198, 109, 207, 200, 111, 208, 202, 114, 208, 204, 117, 209, 205, 120, 209, 207, 123, 210, 209, 126, 210, 211, 129, 210, 212, 132, 210, 214, 135, 210, 215, 138, 210, 217, 141, 210, 218, 144, 210, 220, 147, 210, 221, 150, 210, 222, 152, 209, 223, 155, 209, 225, 158, 209, 226, 161, 208, 227, 163, 208, 228, 166, 207, 229, 168, 206, 229, 171, 205, 230, 173, 204, 231, 176, 204, 231, 178, 203, 232, 180, 201, 233, 182, 200, 233, 184, 199, 233, 186, 198, 234, 188, 196, 234, 190, 195, 234, 192, 193, 234, 194, 192, 234, 195, 190, 234, 197, 189, 234, 198, 187, 234, 200, 185, 234, 201, 183, 234, 202, 181, 234, 204, 179, 233, 205, 177, 233, 206, 175, 232, 207, 173, 232, 208, 171, 231, 209, 169, 231, 210, 166, 230, 210, 164, 229, 211, 162, 229, 212, 159, 228, 212, 157, 227, 213, 155, 226, 213, 152, 225, 214, 149, 224, 214, 147, 223, 214, 144, 222, 215, 142, 221, 215, 139, 220, 215, 137, 218, 215, 134, 217, 215, 131, 216, 215, 129, 215, 215, 126, 213, 215, 123, 212, 215, 121, 210, 215, 118, 209, 215, 116, 207, 214, 113, 206, 214, 110, 204, 214, 108, 203, 214, 105, 201, 213, 103, 199, 213, 100, 198, 213, 98, 196, 212, 96, 195, 212, 93, 193, 211, 91, 191, 211, 89, 189, 210, 87, 188, 210, 85, 186, 209, 83, 184, 209, 81, 183, 208, 79, 181, 208, 77, 179, 207, 75, 178, 206, 73, 176, 206, 71, 174, 205, 70, 172, 204, 68, 171, 204, 67, 169, 203, 65, 167, 203, 64, 166, 202, 62, 164, 201, 61, 162, 201, 60, 161, 200, 58, 159, 199, 57, 157, 199, 56, 156, 198, 55, 154, 197, 54, 152, 197, 53, 151, 196, 52, 149, 195, 51, 148, 195, 50, 146, 194, 49, 144, 193, 48, 143, 193, 48, 141, 192, 47, 140, 191, 46, 138, 191, 45, 136, 190, 45, 135, 189, 44, 133, 189, 43, 132, 188, 43, 130, 187, 42, 129, 187, 41, 127, 186, 41, 126, 185, 40, 124, 185, 40, 122, 184, 39, 121, 183, 38, 119, 183, 38, 118, 182, 37, 116, 181, 37, 115, 181, 36, 113, 180, 36, 111, 179, 35, 110, 179, 35, 108, 178, 34, 106, 177, 34, 105, 176, 33, 103, 176, 33, 102, 175, 32, 100, 174, 32, 98, 174, 31, 96, 173, 30, 95, 172, 30, 93, 171, 29, 91, 171, 29, 90, 170, 28, 88, 169, 27, 86, 168, 27, 84, 168, 26, 83, 167, 25, 81, 166, 25, 79, 165, 24, 77, 164, 23, 76, 164, 22, 74, 163, 21, 72, 162, 20, 70, 161, 19, 68, 160, 18, 66, 160, 17, 64, 159, 15, 63, 158, 14, 61, 157, 12, 59, 156, 11, 57, 156, 9, 55, 155, 7, 53, 154, 5, 51, 153, 3, 49, 152], shape(roma), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: roma10 = reshape([126, 23, 0, 153, 82, 21, 176, 128, 43, 200, 180, 85, 208, 227, 163, 164, 229, 211, 93, 193, 211, 50, 146, 194, 32, 100, 174, 3, 49, 152], shape(roma10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: roma100 = reshape([126, 23, 0, 129, 32, 3, 131, 37, 4, 134, 44, 6, 136, 48, 8, 140, 54, 10, 142, 58, 11, 144, 64, 14, 147, 70, 16, 149, 73, 18, 152, 78, 20, 153, 82, 21, 156, 87, 23, 158, 90, 25, 160, 95, 27, 162, 100, 29, 164, 103, 30, 166, 108, 32, 168, 111, 34, 170, 115, 36, 173, 120, 38, 174, 124, 40, 176, 128, 43, 178, 132, 45, 181, 137, 48, 182, 140, 50, 185, 146, 53, 187, 151, 57, 189, 155, 60, 192, 161, 65, 193, 165, 69, 196, 170, 74, 198, 174, 79, 200, 180, 85, 203, 186, 93, 204, 190, 98, 206, 196, 106, 207, 200, 111, 209, 205, 120, 210, 209, 126, 210, 214, 135, 210, 218, 144, 210, 221, 150, 209, 225, 158, 208, 227, 163, 206, 229, 171, 204, 231, 176, 201, 233, 182, 198, 234, 188, 195, 234, 192, 190, 234, 197, 187, 234, 200, 181, 234, 204, 175, 232, 207, 171, 231, 209, 164, 229, 211, 159, 228, 212, 152, 225, 214, 147, 223, 214, 139, 220, 215, 131, 216, 215, 126, 213, 215, 118, 209, 215, 113, 206, 214, 105, 201, 213, 100, 198, 213, 93, 193, 211, 87, 188, 210, 83, 184, 209, 77, 179, 207, 73, 176, 206, 68, 171, 204, 65, 167, 203, 61, 162, 201, 57, 157, 199, 55, 154, 197, 52, 149, 195, 50, 146, 194, 48, 141, 192, 46, 138, 191, 44, 133, 189, 42, 129, 187, 41, 126, 185, 39, 121, 183, 38, 118, 182, 36, 113, 180, 35, 108, 178, 34, 105, 176, 32, 100, 174, 31, 96, 173, 29, 91, 171, 28, 88, 169, 26, 83, 167, 24, 77, 164, 22, 74, 163, 19, 68, 160, 17, 64, 159, 12, 59, 156, 9, 55, 155, 3, 49, 152], shape(roma100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: roma25 = reshape([126, 23, 0, 138, 50, 8, 147, 70, 16, 157, 88, 24, 166, 106, 32, 173, 122, 39, 182, 140, 50, 191, 159, 64, 200, 180, 85, 208, 202, 114, 210, 218, 144, 205, 230, 173, 192, 234, 195, 173, 232, 208, 147, 223, 214, 121, 210, 215, 93, 193, 211, 71, 174, 205, 57, 157, 199, 47, 140, 191, 40, 122, 184, 34, 106, 177, 28, 88, 169, 20, 70, 161, 3, 49, 152], shape(roma25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: roma50 = reshape([126, 23, 0, 131, 37, 4, 136, 48, 8, 143, 60, 12, 147, 70, 16, 152, 78, 20, 156, 87, 23, 160, 95, 27, 165, 104, 31, 169, 112, 35, 173, 120, 38, 176, 128, 43, 181, 137, 48, 186, 148, 55, 190, 157, 62, 194, 166, 71, 199, 176, 81, 203, 186, 93, 207, 198, 109, 209, 207, 123, 210, 215, 138, 210, 222, 152, 208, 228, 166, 203, 232, 180, 196, 234, 190, 189, 234, 198, 179, 233, 205, 166, 230, 210, 155, 226, 213, 142, 221, 215, 129, 215, 215, 116, 207, 214, 100, 198, 213, 89, 189, 210, 79, 181, 208, 70, 172, 204, 62, 164, 201, 55, 154, 197, 50, 146, 194, 46, 138, 191, 43, 130, 187, 40, 122, 184, 36, 113, 180, 34, 105, 176, 31, 96, 173, 28, 88, 169, 25, 79, 165, 19, 68, 160, 12, 59, 156, 3, 49, 152], shape(roma50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: romaO = reshape([115, 57, 87, 116, 57, 86, 117, 57, 84, 117, 56, 83, 118, 56, 81, 119, 56, 80, 119, 56, 79, 120, 56, 77, 121, 56, 76, 121, 56, 75, 122, 56, 73, 123, 56, 72, 124, 56, 71, 124, 57, 70, 125, 57, 69, 126, 57, 67, 126, 57, 66, 127, 58, 65, 128, 58, 64, 129, 59, 63, 129, 59, 62, 130, 60, 61, 131, 60, 60, 132, 61, 59, 132, 61, 58, 133, 62, 57, 134, 63, 56, 135, 64, 55, 135, 64, 55, 136, 65, 54, 137, 66, 53, 138, 67, 52, 139, 68, 51, 140, 69, 51, 140, 70, 50, 141, 71, 49, 142, 72, 49, 143, 73, 48, 144, 74, 48, 145, 76, 47, 146, 77, 47, 147, 78, 46, 148, 80, 46, 148, 81, 45, 149, 82, 45, 150, 84, 45, 151, 85, 44, 152, 87, 44, 153, 88, 44, 154, 90, 44, 155, 91, 44, 156, 93, 43, 157, 95, 43, 158, 96, 43, 159, 98, 43, 160, 100, 44, 162, 102, 44, 163, 103, 44, 164, 105, 44, 165, 107, 45, 166, 109, 45, 167, 111, 45, 168, 113, 46, 169, 115, 46, 170, 117, 47, 171, 119, 48, 173, 121, 48, 174, 123, 49, 175, 125, 50, 176, 127, 51, 177, 129, 52, 178, 131, 53, 180, 134, 54, 181, 136, 55, 182, 138, 57, 183, 140, 58, 184, 142, 59, 185, 145, 61, 187, 147, 63, 188, 149, 64, 189, 152, 66, 190, 154, 68, 191, 156, 70, 193, 159, 71, 194, 161, 73, 195, 163, 75, 196, 165, 78, 197, 168, 80, 198, 170, 82, 200, 172, 84, 201, 175, 87, 202, 177, 89, 203, 179, 92, 204, 181, 94, 205, 183, 97, 206, 186, 99, 207, 188, 102, 207, 190, 104, 208, 192, 107, 209, 194, 110, 210, 196, 112, 210, 198, 115, 211, 200, 118, 212, 201, 120, 212, 203, 123, 212, 205, 126, 213, 206, 129, 213, 208, 131, 213, 209, 134, 214, 211, 136, 214, 212, 139, 214, 213, 142, 214, 215, 144, 214, 216, 147, 213, 217, 149, 213, 218, 152, 213, 219, 154, 212, 220, 156, 212, 221, 159, 211, 221, 161, 211, 222, 163, 210, 223, 165, 209, 223, 167, 208, 224, 169, 207, 224, 171, 206, 224, 173, 205, 225, 175, 204, 225, 177, 203, 225, 179, 202, 225, 181, 200, 225, 182, 199, 225, 184, 197, 225, 185, 196, 225, 187, 194, 225, 188, 193, 225, 190, 191, 225, 191, 189, 224, 192, 187, 224, 194, 185, 223, 195, 184, 223, 196, 182, 222, 197, 180, 222, 198, 177, 221, 199, 175, 220, 200, 173, 220, 200, 171, 219, 201, 169, 218, 202, 167, 217, 203, 164, 216, 203, 162, 215, 204, 160, 214, 204, 157, 213, 205, 155, 212, 205, 153, 211, 206, 150, 209, 206, 148, 208, 206, 146, 207, 206, 143, 206, 207, 141, 204, 207, 139, 203, 207, 136, 201, 207, 134, 200, 207, 132, 198, 207, 129, 197, 207, 127, 195, 207, 125, 194, 206, 123, 192, 206, 120, 190, 206, 118, 189, 206, 116, 187, 205, 114, 185, 205, 112, 184, 205, 110, 182, 204, 108, 180, 204, 106, 178, 203, 104, 177, 203, 103, 175, 202, 101, 173, 202, 99, 171, 201, 98, 169, 201, 96, 168, 200, 95, 166, 199, 93, 164, 199, 92, 162, 198, 90, 160, 197, 89, 158, 196, 88, 156, 196, 87, 155, 195, 86, 153, 194, 85, 151, 193, 84, 149, 192, 83, 147, 191, 82, 145, 190, 82, 143, 189, 81, 141, 188, 80, 139, 187, 80, 138, 186, 79, 136, 185, 79, 134, 184, 79, 132, 183, 79, 130, 182, 78, 128, 180, 78, 126, 179, 78, 124, 178, 78, 122, 176, 79, 120, 175, 79, 118, 174, 79, 117, 172, 79, 115, 171, 80, 113, 169, 80, 111, 168, 81, 109, 166, 81, 107, 164, 82, 105, 163, 82, 103, 161, 83, 102, 159, 84, 100, 158, 84, 98, 156, 85, 96, 154, 86, 95, 152, 87, 93, 150, 87, 91, 148, 88, 89, 147, 89, 88, 145, 90, 86, 143, 91, 85, 141, 92, 83, 139, 92, 82, 137, 93, 80, 135, 94, 79, 133, 95, 77, 131, 96, 76, 129, 97, 75, 127, 98, 73, 125, 99, 72, 123, 99, 71, 121, 100, 70, 119, 101, 69, 118, 102, 68, 116, 103, 67, 114, 104, 66, 112, 104, 65, 110, 105, 64, 108, 106, 63, 107, 107, 63, 105, 108, 62, 103, 108, 61, 101, 109, 61, 100, 110, 60, 98, 111, 59, 96, 111, 59, 95, 112, 58, 93, 113, 58, 92, 114, 58, 90, 114, 57, 89], shape(romaO), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: romaO10 = reshape([115, 57, 87, 135, 64, 55, 163, 103, 44, 195, 163, 75, 214, 216, 147, 180, 222, 198, 116, 187, 205, 79, 136, 185, 92, 83, 139, 114, 57, 89], shape(romaO10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: romaO100 = reshape([115, 57, 87, 117, 56, 83, 119, 56, 80, 121, 56, 76, 122, 56, 73, 124, 57, 70, 126, 57, 67, 128, 58, 64, 130, 60, 61, 132, 61, 59, 134, 63, 56, 135, 64, 55, 138, 67, 52, 140, 69, 51, 142, 72, 49, 145, 76, 47, 147, 78, 46, 149, 82, 45, 151, 85, 44, 154, 90, 44, 157, 95, 43, 159, 98, 43, 163, 103, 44, 165, 107, 45, 168, 113, 46, 170, 117, 47, 174, 123, 49, 177, 129, 52, 180, 134, 54, 183, 140, 58, 185, 145, 61, 189, 152, 66, 191, 156, 70, 195, 163, 75, 198, 170, 82, 201, 175, 87, 204, 181, 94, 206, 186, 99, 208, 192, 107, 210, 196, 112, 212, 201, 120, 213, 206, 129, 213, 209, 134, 214, 213, 142, 214, 216, 147, 213, 219, 154, 212, 221, 159, 210, 223, 165, 207, 224, 171, 205, 225, 175, 202, 225, 181, 199, 225, 184, 194, 225, 188, 189, 224, 192, 185, 223, 195, 180, 222, 198, 175, 220, 200, 169, 218, 202, 164, 216, 203, 157, 213, 205, 150, 209, 206, 146, 207, 206, 139, 203, 207, 134, 200, 207, 127, 195, 207, 123, 192, 206, 116, 187, 205, 110, 182, 204, 106, 178, 203, 101, 173, 202, 98, 169, 201, 93, 164, 199, 90, 160, 197, 87, 155, 195, 84, 149, 192, 82, 145, 190, 80, 139, 187, 79, 136, 185, 79, 130, 182, 78, 126, 179, 79, 120, 175, 79, 115, 171, 80, 111, 168, 82, 105, 163, 83, 102, 159, 85, 96, 154, 87, 91, 148, 89, 88, 145, 92, 83, 139, 93, 80, 135, 96, 76, 129, 98, 73, 125, 100, 70, 119, 103, 67, 114, 104, 65, 110, 107, 63, 105, 108, 61, 101, 111, 59, 96, 112, 58, 93, 114, 57, 89], shape(romaO100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: romaO25 = reshape([115, 57, 87, 123, 56, 72, 130, 60, 61, 139, 68, 51, 148, 81, 45, 158, 96, 43, 170, 117, 47, 182, 138, 57, 195, 163, 75, 207, 188, 102, 213, 206, 129, 212, 220, 156, 203, 225, 179, 187, 224, 194, 164, 216, 203, 141, 204, 207, 116, 187, 205, 96, 168, 200, 84, 149, 192, 78, 128, 180, 81, 107, 164, 88, 89, 147, 98, 73, 125, 106, 63, 107, 114, 57, 89], shape(romaO25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: romaO50 = reshape([115, 57, 87, 119, 56, 80, 122, 56, 73, 126, 57, 66, 130, 60, 61, 134, 63, 56, 138, 67, 52, 142, 72, 49, 148, 80, 46, 152, 87, 44, 157, 95, 43, 163, 103, 44, 168, 113, 46, 175, 125, 50, 181, 136, 55, 187, 147, 63, 193, 159, 71, 198, 170, 82, 205, 183, 97, 209, 194, 110, 212, 203, 123, 214, 211, 136, 213, 217, 149, 211, 222, 163, 206, 224, 173, 200, 225, 182, 193, 225, 190, 182, 222, 197, 171, 219, 201, 160, 214, 204, 148, 208, 206, 136, 201, 207, 123, 192, 206, 112, 184, 205, 103, 175, 202, 95, 166, 199, 88, 156, 196, 82, 145, 190, 79, 136, 185, 78, 126, 179, 79, 117, 172, 81, 107, 164, 85, 96, 154, 89, 88, 145, 93, 80, 135, 98, 73, 125, 102, 68, 116, 107, 63, 105, 111, 59, 96, 114, 57, 89], shape(romaO50), order=[2, 1])
character(len=*), public, parameter, dimension(222) :: scientific_colour_maps_list = [character(colormap_name_length)::"acton", "acton10", "acton100", "acton25", "acton50", "actonS", "bam", "bam10", "bam100", "bam25", "bam50", "bamako", "bamako10", "bamako100", "bamako25", "bamako50", "bamakoS", "bamO", "bamO10", "bamO100", "bamO25", "bamO50", "batlow", "batlow10", "batlow100", "batlow25", "batlow50", "batlowK", "batlowK10", "batlowK100", "batlowK25", "batlowK50", "batlowKS", "batlowS", "batlowW", "batlowW10", "batlowW100", "batlowW25", "batlowW50", "batlowWS", "berlin", "berlin10", "berlin100", "berlin25", "berlin50", "bilbao", "bilbao10", "bilbao100", "bilbao25", "bilbao50", "bilbaoS", "broc", "broc10", "broc100", "broc25", "broc50", "brocO", "brocO10", "brocO100", "brocO25", "brocO50", "buda", "buda10", "buda100", "buda25", "buda50", "budaS", "bukavu", "bukavu10", "bukavu100", "bukavu25", "bukavu50", "cork", "cork10", "cork100", "cork25", "cork50", "corkO", "corkO10", "corkO100", "corkO25", "corkO50", "davos", "davos10", "davos100", "davos25", "davos50", "davosS", "devon", "devon10", "devon100", "devon25", "devon50", "devonS", "fes", "fes10", "fes100", "fes25", "fes50", "glasgow", "glasgow10", "glasgow100", "glasgow25", "glasgow50", "glasgowS", "grayC", "grayC10", "grayC100", "grayC25", "grayC50", "grayCS", "hawaii", "hawaii10", "hawaii100", "hawaii25", "hawaii50", "hawaiiS", "imola", "imola10", "imola100", "imola25", "imola50", "imolaS", "lajolla", "lajolla10", "lajolla100", "lajolla25", "lajolla50", "lajollaS", "lapaz", "lapaz10", "lapaz100", "lapaz25", "lapaz50", "lapazS", "lipari", "lipari10", "lipari100", "lipari25", "lipari50", "lipariS", "lisbon", "lisbon10", "lisbon100", "lisbon25", "lisbon50", "managua", "managua10", "managua100", "managua25", "managua50", "navia", "navia10", "navia100", "navia25", "navia50", "naviaS", "naviaW", "naviaW10", "naviaW100", "naviaW25", "naviaW50", "naviaWS", "nuuk", "nuuk10", "nuuk100", "nuuk25", "nuuk50", "nuukS", "oleron", "oleron10", "oleron100", "oleron25", "oleron50", "oslo", "oslo10", "oslo100", "oslo25", "oslo50", "osloS", "roma", "roma10", "roma100", "roma25", "roma50", "romaO", "romaO10", "romaO100", "romaO25", "romaO50", "tofino", "tofino10", "tofino100", "tofino25", "tofino50", "tokyo", "tokyo10", "tokyo100", "tokyo25", "tokyo50", "tokyoS", "turku", "turku10", "turku100", "turku25", "turku50", "turkuS", "vanimo", "vanimo10", "vanimo100", "vanimo25", "vanimo50", "vik", "vik10", "vik100", "vik25", "vik50", "vikO", "vikO10", "vikO100", "vikO25", "vikO50"]
integer, public, dimension(0:255, 1:3) :: tofino = reshape([222, 217, 255, 219, 215, 254, 217, 213, 253, 214, 211, 251, 211, 209, 250, 208, 207, 249, 206, 205, 248, 203, 203, 247, 200, 202, 246, 198, 200, 244, 195, 198, 243, 192, 196, 242, 190, 194, 241, 187, 192, 240, 184, 190, 239, 182, 188, 237, 179, 187, 236, 176, 185, 235, 174, 183, 234, 171, 181, 233, 168, 179, 232, 166, 177, 230, 163, 175, 229, 160, 173, 228, 158, 172, 227, 155, 170, 226, 152, 168, 225, 150, 166, 223, 147, 164, 222, 144, 162, 221, 142, 160, 220, 139, 159, 219, 136, 157, 217, 134, 155, 216, 131, 153, 215, 128, 151, 213, 126, 149, 212, 123, 147, 211, 121, 145, 209, 118, 143, 208, 115, 141, 206, 113, 139, 205, 110, 137, 203, 107, 135, 202, 105, 133, 200, 102, 131, 198, 100, 129, 197, 97, 127, 195, 95, 125, 193, 92, 123, 191, 90, 121, 189, 87, 119, 186, 85, 117, 184, 83, 115, 182, 81, 113, 180, 79, 111, 177, 76, 109, 175, 74, 107, 172, 73, 105, 170, 71, 103, 167, 69, 101, 165, 67, 99, 162, 66, 98, 160, 64, 96, 157, 62, 94, 154, 61, 92, 152, 60, 90, 149, 58, 89, 147, 57, 87, 144, 56, 85, 141, 55, 84, 139, 53, 82, 136, 52, 80, 134, 51, 79, 131, 50, 77, 128, 49, 76, 126, 48, 74, 123, 47, 73, 121, 46, 71, 118, 45, 69, 116, 44, 68, 113, 43, 66, 111, 42, 65, 108, 41, 63, 106, 40, 62, 103, 39, 60, 101, 38, 59, 98, 37, 58, 96, 36, 56, 93, 35, 55, 91, 34, 53, 89, 34, 52, 86, 33, 50, 84, 32, 49, 81, 31, 48, 79, 30, 46, 77, 29, 45, 74, 28, 43, 72, 28, 42, 70, 27, 41, 67, 26, 40, 65, 25, 38, 63, 25, 37, 61, 24, 36, 59, 23, 35, 56, 22, 33, 54, 22, 32, 52, 21, 31, 50, 21, 30, 48, 20, 29, 46, 19, 28, 44, 19, 27, 42, 18, 26, 40, 18, 25, 38, 17, 24, 36, 17, 24, 35, 17, 23, 33, 16, 22, 32, 16, 22, 30, 15, 21, 29, 15, 21, 27, 14, 21, 26, 14, 21, 25, 13, 21, 24, 13, 21, 23, 13, 21, 22, 13, 21, 21, 13, 21, 20, 13, 22, 19, 13, 22, 19, 13, 23, 18, 13, 23, 18, 13, 24, 18, 14, 25, 18, 14, 26, 17, 15, 27, 18, 15, 28, 18, 16, 28, 18, 16, 30, 18, 17, 31, 18, 17, 32, 19, 17, 33, 19, 18, 34, 20, 18, 35, 20, 19, 37, 21, 19, 38, 21, 20, 39, 22, 20, 41, 22, 21, 42, 23, 21, 44, 24, 22, 45, 24, 22, 47, 25, 23, 48, 26, 24, 50, 26, 24, 51, 27, 25, 53, 28, 26, 54, 28, 26, 56, 29, 27, 57, 30, 28, 59, 31, 29, 61, 32, 29, 62, 32, 30, 64, 33, 31, 66, 34, 32, 67, 35, 32, 69, 36, 33, 71, 37, 34, 72, 37, 35, 74, 38, 35, 76, 39, 36, 77, 40, 37, 79, 41, 38, 81, 42, 39, 83, 43, 39, 84, 44, 40, 86, 44, 41, 88, 45, 42, 90, 46, 43, 91, 47, 44, 93, 48, 44, 95, 49, 45, 97, 50, 46, 98, 51, 47, 100, 52, 48, 102, 53, 49, 104, 54, 50, 106, 55, 51, 108, 56, 52, 109, 57, 53, 111, 58, 54, 113, 59, 55, 115, 60, 56, 117, 61, 57, 119, 62, 58, 121, 63, 59, 123, 64, 61, 125, 65, 62, 127, 66, 63, 129, 68, 65, 131, 69, 66, 133, 70, 68, 135, 71, 70, 137, 73, 72, 139, 74, 74, 141, 75, 76, 143, 77, 78, 145, 78, 80, 147, 80, 82, 149, 81, 85, 151, 83, 87, 154, 84, 90, 156, 86, 92, 158, 87, 95, 160, 89, 98, 162, 90, 100, 164, 92, 103, 166, 94, 106, 168, 95, 109, 169, 97, 112, 171, 99, 115, 173, 100, 118, 175, 102, 121, 177, 103, 124, 179, 105, 127, 180, 107, 130, 182, 108, 133, 184, 110, 136, 185, 112, 139, 187, 113, 142, 189, 115, 145, 190, 116, 148, 192, 118, 151, 194, 120, 154, 195, 121, 157, 197, 123, 160, 198, 124, 163, 200, 126, 166, 202, 127, 169, 203, 129, 172, 205, 131, 175, 206, 132, 178, 208, 134, 181, 209, 135, 183, 211, 137, 186, 212, 138, 189, 214, 140, 192, 216, 141, 195, 217, 143, 198, 219, 145, 201, 220, 146, 204, 222, 148, 207, 223, 149, 210, 225, 151, 213, 226, 152, 216, 228, 154, 219, 230, 155], shape(tofino), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: tofino10 = reshape([222, 217, 255, 147, 164, 222, 74, 107, 172, 39, 60, 101, 18, 25, 38, 18, 34, 20, 36, 77, 40, 63, 129, 68, 136, 185, 112, 219, 230, 155], shape(tofino10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: tofino100 = reshape([222, 217, 255, 214, 211, 251, 208, 207, 249, 200, 202, 246, 195, 198, 243, 187, 192, 240, 182, 188, 237, 174, 183, 234, 166, 177, 230, 160, 173, 228, 152, 168, 225, 147, 164, 222, 139, 159, 219, 134, 155, 216, 126, 149, 212, 118, 143, 208, 113, 139, 205, 105, 133, 200, 100, 129, 197, 92, 123, 191, 85, 117, 184, 81, 113, 180, 74, 107, 172, 71, 103, 167, 66, 98, 160, 62, 94, 154, 58, 89, 147, 55, 84, 139, 52, 80, 134, 49, 76, 126, 47, 73, 121, 44, 68, 113, 42, 65, 108, 39, 60, 101, 36, 56, 93, 34, 53, 89, 32, 49, 81, 30, 46, 77, 28, 42, 70, 26, 40, 65, 24, 36, 59, 22, 32, 52, 21, 30, 48, 19, 27, 42, 18, 25, 38, 17, 23, 33, 16, 22, 30, 14, 21, 26, 13, 21, 23, 13, 21, 21, 13, 22, 19, 13, 23, 18, 14, 26, 17, 16, 28, 18, 17, 31, 18, 18, 34, 20, 19, 37, 21, 20, 41, 22, 21, 44, 24, 23, 48, 26, 25, 53, 28, 26, 56, 29, 29, 61, 32, 30, 64, 33, 32, 69, 36, 34, 72, 37, 36, 77, 40, 39, 83, 43, 40, 86, 44, 43, 91, 47, 44, 95, 49, 47, 100, 52, 49, 104, 54, 52, 109, 57, 55, 115, 60, 57, 119, 62, 61, 125, 65, 63, 129, 68, 68, 135, 71, 72, 139, 74, 78, 145, 78, 85, 151, 83, 90, 156, 86, 98, 162, 90, 103, 166, 94, 112, 171, 99, 121, 177, 103, 127, 180, 107, 136, 185, 112, 142, 189, 115, 151, 194, 120, 157, 197, 123, 166, 202, 127, 175, 206, 132, 181, 209, 135, 189, 214, 140, 195, 217, 143, 204, 222, 148, 210, 225, 151, 219, 230, 155], shape(tofino100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: tofino25 = reshape([222, 217, 255, 192, 196, 242, 166, 177, 230, 136, 157, 217, 107, 135, 202, 83, 115, 182, 62, 94, 154, 50, 77, 128, 39, 60, 101, 29, 45, 74, 22, 32, 52, 16, 22, 32, 13, 22, 19, 16, 30, 18, 21, 44, 24, 28, 59, 31, 36, 77, 40, 45, 97, 50, 55, 115, 60, 70, 137, 73, 95, 160, 89, 124, 179, 105, 157, 197, 123, 186, 212, 138, 219, 230, 155], shape(tofino25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: tofino50 = reshape([222, 217, 255, 208, 207, 249, 195, 198, 243, 179, 187, 236, 166, 177, 230, 152, 168, 225, 139, 159, 219, 126, 149, 212, 110, 137, 203, 97, 127, 195, 85, 117, 184, 74, 107, 172, 66, 98, 160, 57, 87, 144, 51, 79, 131, 46, 71, 118, 41, 63, 106, 36, 56, 93, 31, 48, 79, 27, 41, 67, 23, 35, 56, 20, 29, 46, 17, 24, 36, 15, 21, 27, 13, 21, 22, 13, 23, 18, 15, 27, 18, 17, 33, 19, 20, 39, 22, 22, 47, 25, 26, 54, 28, 29, 62, 32, 34, 72, 37, 38, 81, 42, 42, 90, 46, 46, 98, 51, 51, 108, 56, 57, 119, 62, 63, 129, 68, 72, 139, 74, 82, 149, 81, 95, 160, 89, 112, 171, 99, 127, 180, 107, 142, 189, 115, 157, 197, 123, 172, 205, 131, 189, 214, 140, 204, 222, 148, 219, 230, 155], shape(tofino50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: tokyo = reshape([28, 14, 52, 29, 15, 52, 31, 15, 53, 33, 16, 53, 35, 16, 54, 36, 16, 54, 38, 17, 55, 40, 17, 56, 41, 18, 56, 43, 18, 57, 45, 19, 57, 47, 19, 58, 48, 20, 58, 50, 21, 59, 52, 21, 60, 53, 22, 60, 55, 22, 61, 57, 23, 61, 58, 24, 62, 60, 25, 62, 62, 25, 63, 63, 26, 64, 65, 27, 64, 67, 28, 65, 68, 29, 65, 70, 30, 66, 72, 30, 67, 73, 31, 67, 75, 32, 68, 76, 33, 68, 78, 34, 69, 79, 35, 69, 81, 36, 70, 82, 38, 70, 83, 39, 71, 85, 40, 71, 86, 41, 72, 87, 42, 72, 89, 43, 73, 90, 44, 73, 91, 45, 73, 92, 47, 74, 93, 48, 74, 94, 49, 75, 95, 50, 75, 96, 51, 75, 97, 52, 76, 98, 53, 76, 99, 55, 76, 100, 56, 77, 100, 57, 77, 101, 58, 77, 102, 59, 77, 102, 60, 78, 103, 61, 78, 104, 62, 78, 104, 63, 78, 105, 64, 78, 105, 65, 79, 106, 66, 79, 106, 67, 79, 106, 68, 79, 107, 69, 79, 107, 70, 79, 108, 71, 80, 108, 72, 80, 108, 73, 80, 108, 74, 80, 109, 75, 80, 109, 75, 80, 109, 76, 80, 109, 77, 80, 110, 78, 80, 110, 79, 80, 110, 79, 81, 110, 80, 81, 110, 81, 81, 111, 82, 81, 111, 82, 81, 111, 83, 81, 111, 84, 81, 111, 84, 81, 111, 85, 81, 111, 86, 81, 112, 86, 81, 112, 87, 81, 112, 88, 81, 112, 88, 81, 112, 89, 81, 112, 89, 81, 112, 90, 82, 112, 91, 82, 112, 91, 82, 112, 92, 82, 113, 92, 82, 113, 93, 82, 113, 93, 82, 113, 94, 82, 113, 94, 82, 113, 95, 82, 113, 95, 82, 113, 96, 82, 113, 97, 82, 113, 97, 82, 113, 98, 82, 113, 98, 82, 114, 99, 82, 114, 99, 82, 114, 100, 82, 114, 100, 82, 114, 101, 82, 114, 101, 82, 114, 102, 83, 114, 103, 83, 114, 103, 83, 114, 104, 83, 114, 104, 83, 115, 105, 83, 115, 105, 83, 115, 106, 83, 115, 107, 83, 115, 107, 83, 115, 108, 83, 115, 109, 83, 115, 109, 83, 115, 110, 83, 116, 110, 83, 116, 111, 83, 116, 112, 83, 116, 113, 83, 116, 113, 83, 116, 114, 84, 116, 115, 84, 116, 115, 84, 116, 116, 84, 117, 117, 84, 117, 118, 84, 117, 119, 84, 117, 119, 84, 117, 120, 84, 117, 121, 84, 117, 122, 84, 118, 123, 84, 118, 124, 84, 118, 124, 84, 118, 125, 85, 118, 126, 85, 118, 127, 85, 119, 128, 85, 119, 129, 85, 119, 130, 85, 119, 131, 85, 119, 132, 85, 120, 133, 85, 120, 134, 86, 120, 135, 86, 120, 136, 86, 120, 137, 86, 121, 138, 86, 121, 139, 86, 121, 141, 87, 121, 142, 87, 121, 143, 87, 122, 144, 87, 122, 145, 87, 122, 146, 88, 123, 148, 88, 123, 149, 88, 123, 150, 88, 123, 151, 89, 124, 152, 89, 124, 154, 89, 124, 155, 90, 125, 156, 90, 125, 158, 90, 125, 159, 91, 126, 160, 91, 126, 162, 92, 127, 163, 92, 127, 164, 93, 128, 166, 93, 128, 167, 94, 129, 169, 94, 129, 170, 95, 130, 172, 96, 130, 173, 96, 131, 175, 97, 132, 176, 98, 132, 178, 99, 133, 179, 100, 134, 181, 101, 135, 182, 102, 135, 184, 103, 136, 185, 104, 137, 187, 105, 138, 189, 106, 139, 190, 107, 140, 192, 109, 141, 193, 110, 142, 195, 112, 143, 197, 113, 145, 198, 115, 146, 200, 116, 147, 202, 118, 149, 203, 120, 150, 205, 121, 152, 207, 123, 153, 208, 125, 155, 210, 127, 156, 212, 129, 158, 213, 131, 160, 215, 133, 162, 216, 135, 164, 218, 138, 165, 220, 140, 167, 221, 142, 169, 223, 144, 171, 224, 147, 173, 226, 149, 175, 227, 152, 178, 228, 154, 180, 230, 156, 182, 231, 159, 184, 232, 161, 186, 234, 164, 188, 235, 166, 190, 236, 169, 193, 237, 171, 195, 238, 173, 197, 239, 176, 199, 240, 178, 201, 241, 180, 203, 242, 183, 205, 243, 185, 207, 244, 187, 209, 244, 189, 211, 245, 191, 213, 246, 193, 214, 246, 195, 216, 247, 197, 218, 247, 199, 220, 248, 201, 221, 248, 202, 223, 249, 204, 224, 249, 206, 226, 249, 207, 227, 250, 209, 229, 250, 210, 230, 250, 212, 232, 251, 213, 233, 251, 215, 234, 251, 216, 235, 251, 217, 237, 252, 218, 238, 252, 220, 239, 252, 221], shape(tokyo), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: tokyo10 = reshape([28, 14, 52, 75, 32, 68, 105, 64, 78, 112, 87, 81, 114, 103, 83, 118, 123, 84, 124, 152, 89, 141, 193, 110, 193, 237, 171, 239, 252, 221], shape(tokyo10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: tokyo100 = reshape([28, 14, 52, 33, 16, 53, 36, 16, 54, 41, 18, 56, 45, 19, 57, 50, 21, 59, 53, 22, 60, 58, 24, 62, 63, 26, 64, 67, 28, 65, 72, 30, 67, 75, 32, 68, 79, 35, 69, 82, 38, 70, 86, 41, 72, 90, 44, 73, 92, 47, 74, 95, 50, 75, 97, 52, 76, 100, 56, 77, 102, 59, 77, 103, 61, 78, 105, 64, 78, 106, 66, 79, 107, 69, 79, 108, 71, 80, 108, 74, 80, 109, 76, 80, 110, 78, 80, 110, 80, 81, 111, 82, 81, 111, 84, 81, 111, 85, 81, 112, 87, 81, 112, 89, 81, 112, 90, 82, 112, 92, 82, 113, 93, 82, 113, 94, 82, 113, 95, 82, 113, 97, 82, 114, 99, 82, 114, 100, 82, 114, 101, 82, 114, 103, 83, 114, 104, 83, 115, 105, 83, 115, 107, 83, 115, 109, 83, 116, 110, 83, 116, 113, 83, 116, 114, 84, 116, 116, 84, 117, 119, 84, 117, 120, 84, 118, 123, 84, 118, 124, 84, 118, 127, 85, 119, 129, 85, 119, 132, 85, 120, 135, 86, 120, 137, 86, 121, 141, 87, 121, 143, 87, 122, 146, 88, 123, 149, 88, 124, 152, 89, 125, 156, 90, 125, 159, 91, 127, 163, 92, 128, 166, 93, 129, 170, 95, 130, 173, 96, 132, 178, 99, 135, 182, 102, 136, 185, 104, 139, 190, 107, 141, 193, 110, 145, 198, 115, 147, 202, 118, 152, 207, 123, 156, 212, 129, 160, 215, 133, 165, 220, 140, 169, 223, 144, 175, 227, 152, 182, 231, 159, 186, 234, 164, 193, 237, 171, 197, 239, 176, 203, 242, 183, 207, 244, 187, 213, 246, 193, 218, 247, 199, 221, 248, 202, 226, 249, 207, 229, 250, 210, 233, 251, 215, 235, 251, 217, 239, 252, 221], shape(tokyo100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: tokyo25 = reshape([28, 14, 52, 47, 19, 58, 63, 26, 64, 81, 36, 70, 94, 49, 75, 102, 60, 78, 108, 71, 80, 110, 79, 81, 112, 87, 81, 113, 93, 82, 114, 99, 82, 115, 105, 83, 116, 112, 83, 117, 119, 84, 119, 129, 85, 121, 139, 86, 124, 152, 89, 128, 167, 94, 135, 182, 102, 146, 200, 116, 164, 218, 138, 184, 232, 161, 207, 244, 187, 224, 249, 206, 239, 252, 221], shape(tokyo25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: tokyo50 = reshape([28, 14, 52, 36, 16, 54, 45, 19, 57, 55, 22, 61, 63, 26, 64, 72, 30, 67, 79, 35, 69, 86, 41, 72, 93, 48, 74, 98, 53, 76, 102, 59, 77, 105, 64, 78, 107, 69, 79, 109, 75, 80, 110, 79, 80, 111, 82, 81, 111, 86, 81, 112, 89, 81, 113, 92, 82, 113, 95, 82, 113, 98, 82, 114, 100, 82, 114, 103, 83, 115, 107, 83, 115, 110, 83, 116, 113, 83, 117, 117, 84, 117, 122, 84, 118, 126, 85, 119, 131, 85, 120, 136, 86, 121, 142, 87, 123, 149, 88, 124, 155, 90, 126, 162, 92, 129, 169, 94, 132, 176, 98, 136, 185, 104, 141, 193, 110, 147, 202, 118, 155, 210, 127, 164, 218, 138, 175, 227, 152, 186, 234, 164, 197, 239, 176, 207, 244, 187, 216, 247, 197, 226, 249, 207, 233, 251, 215, 239, 252, 221], shape(tokyo50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: tokyoS = reshape([28, 14, 52, 239, 252, 221, 116, 111, 83, 135, 182, 102, 107, 70, 79, 121, 139, 86, 113, 93, 82, 184, 232, 161, 81, 36, 70, 55, 22, 61, 153, 208, 125, 216, 247, 197, 114, 101, 82, 111, 83, 81, 125, 159, 91, 118, 124, 84, 99, 55, 76, 129, 170, 95, 68, 29, 65, 167, 221, 142, 91, 45, 73, 119, 131, 85, 117, 117, 84, 41, 18, 56, 229, 250, 210, 123, 149, 88, 142, 195, 112, 113, 97, 82, 115, 106, 83, 112, 88, 81, 109, 77, 80, 201, 241, 180, 104, 63, 78, 111, 86, 81, 114, 99, 82, 193, 237, 171, 117, 120, 84, 35, 16, 54, 108, 74, 80, 138, 189, 106, 115, 109, 83, 110, 80, 81, 95, 50, 75, 102, 59, 77, 120, 135, 86, 48, 20, 58, 116, 114, 84, 118, 127, 85, 113, 95, 82, 112, 91, 82, 175, 227, 152, 75, 32, 68, 209, 244, 189, 122, 144, 87, 124, 154, 89, 147, 202, 118, 62, 25, 63, 223, 249, 204, 160, 215, 133, 234, 251, 216, 86, 41, 72, 132, 176, 98, 127, 164, 93, 114, 104, 83, 106, 66, 79, 125, 156, 90, 188, 235, 166, 112, 87, 81, 116, 115, 84, 114, 103, 83, 93, 48, 74, 171, 224, 147, 45, 19, 57, 117, 119, 84, 106, 68, 79, 205, 243, 185, 118, 125, 85, 72, 30, 67, 164, 218, 138, 52, 21, 60, 89, 43, 73, 109, 75, 80, 140, 192, 109, 113, 96, 82, 38, 17, 55, 156, 212, 129, 113, 98, 82, 145, 198, 115, 213, 246, 193, 123, 151, 89, 117, 122, 84, 220, 248, 201, 78, 34, 69, 83, 39, 71, 58, 24, 62, 112, 92, 82, 108, 72, 80, 237, 252, 218, 115, 107, 83, 130, 173, 96], shape(tokyoS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: turku = reshape([0, 0, 0, 2, 2, 2, 4, 4, 3, 6, 6, 5, 7, 7, 7, 9, 9, 8, 11, 11, 10, 13, 13, 12, 14, 14, 13, 16, 16, 14, 17, 17, 16, 18, 18, 17, 20, 19, 18, 21, 21, 19, 22, 22, 20, 23, 23, 21, 24, 24, 22, 25, 25, 23, 26, 26, 24, 27, 27, 25, 28, 28, 25, 29, 29, 26, 30, 30, 27, 31, 31, 28, 32, 32, 29, 33, 33, 30, 34, 34, 31, 35, 35, 31, 36, 36, 32, 37, 37, 33, 38, 38, 34, 39, 39, 35, 40, 40, 35, 41, 41, 36, 42, 42, 37, 43, 43, 38, 44, 44, 39, 45, 45, 39, 46, 46, 40, 47, 47, 41, 48, 48, 42, 50, 49, 42, 51, 50, 43, 52, 51, 44, 53, 52, 45, 54, 54, 45, 55, 55, 46, 56, 56, 47, 57, 57, 48, 58, 58, 48, 59, 59, 49, 60, 60, 50, 61, 61, 50, 62, 62, 51, 63, 63, 52, 64, 64, 52, 65, 65, 53, 66, 66, 53, 67, 67, 54, 68, 68, 55, 69, 69, 55, 70, 70, 56, 71, 71, 56, 72, 72, 57, 73, 73, 58, 75, 74, 58, 76, 75, 59, 77, 76, 59, 78, 77, 60, 79, 78, 60, 80, 79, 61, 81, 80, 61, 82, 81, 62, 83, 82, 62, 84, 83, 63, 85, 84, 63, 86, 86, 64, 87, 87, 64, 88, 88, 65, 89, 89, 65, 90, 90, 66, 91, 91, 66, 92, 92, 67, 93, 93, 67, 94, 94, 68, 95, 95, 68, 96, 96, 69, 97, 97, 69, 98, 98, 70, 99, 99, 70, 100, 100, 71, 101, 101, 71, 102, 102, 71, 103, 103, 72, 104, 104, 72, 106, 105, 73, 107, 106, 73, 108, 107, 74, 109, 108, 74, 110, 109, 75, 111, 110, 75, 112, 111, 76, 113, 112, 76, 114, 113, 77, 115, 114, 77, 117, 115, 78, 118, 116, 78, 119, 117, 79, 120, 118, 79, 121, 119, 80, 123, 121, 80, 124, 122, 81, 125, 123, 81, 126, 124, 82, 127, 125, 82, 129, 126, 83, 130, 127, 83, 131, 128, 84, 133, 129, 84, 134, 130, 85, 135, 131, 86, 137, 132, 86, 138, 133, 87, 139, 134, 88, 141, 135, 88, 142, 136, 89, 144, 138, 89, 145, 139, 90, 147, 140, 91, 148, 141, 91, 150, 142, 92, 151, 143, 93, 153, 144, 94, 154, 145, 94, 156, 146, 95, 157, 147, 96, 159, 148, 97, 161, 148, 97, 162, 149, 98, 164, 150, 99, 165, 151, 100, 167, 152, 100, 169, 153, 101, 170, 154, 102, 172, 154, 103, 173, 155, 104, 175, 156, 104, 176, 157, 105, 178, 157, 106, 179, 158, 107, 181, 159, 108, 182, 159, 108, 184, 160, 109, 185, 160, 110, 187, 161, 111, 188, 161, 112, 190, 162, 112, 191, 162, 113, 192, 162, 114, 194, 163, 115, 195, 163, 116, 196, 164, 116, 198, 164, 117, 199, 164, 118, 200, 164, 119, 201, 165, 120, 203, 165, 120, 204, 165, 121, 205, 165, 122, 206, 166, 123, 207, 166, 124, 208, 166, 124, 209, 166, 125, 210, 166, 126, 211, 166, 127, 212, 167, 128, 214, 167, 128, 215, 167, 129, 216, 167, 130, 217, 167, 131, 218, 167, 132, 219, 168, 133, 219, 168, 134, 220, 168, 135, 221, 168, 136, 222, 168, 137, 223, 169, 138, 224, 169, 139, 225, 169, 140, 226, 169, 141, 227, 170, 142, 228, 170, 143, 229, 170, 144, 230, 171, 146, 231, 171, 147, 232, 172, 148, 233, 172, 149, 233, 173, 151, 234, 173, 152, 235, 174, 153, 236, 174, 155, 237, 175, 156, 238, 176, 158, 239, 176, 159, 239, 177, 161, 240, 178, 162, 241, 179, 163, 242, 179, 165, 242, 180, 167, 243, 181, 168, 244, 182, 170, 244, 183, 171, 245, 184, 173, 246, 185, 174, 246, 186, 176, 247, 187, 177, 247, 188, 179, 248, 189, 180, 248, 190, 182, 249, 191, 183, 249, 192, 185, 250, 193, 186, 250, 194, 188, 251, 195, 189, 251, 196, 191, 251, 197, 192, 252, 198, 193, 252, 199, 195, 252, 200, 196, 253, 201, 198, 253, 203, 199, 253, 204, 200, 253, 205, 202, 253, 206, 203, 254, 207, 204, 254, 208, 206, 254, 209, 207, 254, 210, 208, 254, 211, 209, 254, 212, 211, 254, 214, 212, 254, 215, 213, 255, 216, 214, 255, 217, 215, 255, 218, 217, 255, 219, 218, 255, 220, 219, 255, 221, 220, 255, 222, 221, 255, 223, 223, 255, 224, 224, 255, 226, 225, 255, 227, 226, 255, 228, 227, 255, 229, 229, 255, 230, 230], shape(turku), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: turku10 = reshape([0, 0, 0, 36, 36, 32, 66, 66, 53, 95, 95, 68, 126, 124, 82, 169, 153, 101, 207, 166, 124, 234, 173, 152, 252, 199, 195, 255, 230, 230], shape(turku10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: turku100 = reshape([0, 0, 0, 6, 6, 5, 9, 9, 8, 14, 14, 13, 17, 17, 16, 21, 21, 19, 23, 23, 21, 26, 26, 24, 29, 29, 26, 31, 31, 28, 34, 34, 31, 36, 36, 32, 39, 39, 35, 41, 41, 36, 44, 44, 39, 47, 47, 41, 50, 49, 42, 53, 52, 45, 55, 55, 46, 58, 58, 48, 61, 61, 50, 63, 63, 52, 66, 66, 53, 68, 68, 55, 71, 71, 56, 73, 73, 58, 77, 76, 59, 80, 79, 61, 82, 81, 62, 85, 84, 63, 87, 87, 64, 90, 90, 66, 92, 92, 67, 95, 95, 68, 98, 98, 70, 100, 100, 71, 103, 103, 72, 106, 105, 73, 109, 108, 74, 111, 110, 75, 114, 113, 77, 118, 116, 78, 120, 118, 79, 124, 122, 81, 126, 124, 82, 130, 127, 83, 133, 129, 84, 137, 132, 86, 141, 135, 88, 144, 138, 89, 148, 141, 91, 151, 143, 93, 156, 146, 95, 161, 148, 97, 164, 150, 99, 169, 153, 101, 172, 154, 103, 176, 157, 105, 179, 158, 107, 184, 160, 109, 188, 161, 112, 191, 162, 113, 195, 163, 116, 198, 164, 117, 201, 165, 120, 204, 165, 121, 207, 166, 124, 210, 166, 126, 212, 167, 128, 216, 167, 130, 218, 167, 132, 220, 168, 135, 222, 168, 137, 225, 169, 140, 228, 170, 143, 230, 171, 146, 233, 172, 149, 234, 173, 152, 237, 175, 156, 239, 176, 159, 241, 179, 163, 243, 181, 168, 244, 183, 171, 246, 186, 176, 247, 188, 179, 249, 191, 183, 250, 194, 188, 251, 196, 191, 252, 199, 195, 253, 201, 198, 253, 205, 202, 254, 207, 204, 254, 210, 208, 254, 214, 212, 255, 216, 214, 255, 219, 218, 255, 221, 220, 255, 224, 224, 255, 227, 226, 255, 230, 230], shape(turku100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: turku25 = reshape([0, 0, 0, 18, 18, 17, 29, 29, 26, 40, 40, 35, 52, 51, 44, 62, 62, 51, 73, 73, 58, 84, 83, 63, 95, 95, 68, 107, 106, 73, 118, 116, 78, 131, 128, 84, 147, 140, 91, 162, 149, 98, 179, 158, 107, 194, 163, 115, 207, 166, 124, 219, 168, 133, 228, 170, 143, 238, 176, 158, 246, 185, 174, 251, 195, 189, 254, 207, 204, 255, 218, 217, 255, 230, 230], shape(turku25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: turku50 = reshape([0, 0, 0, 9, 9, 8, 17, 17, 16, 24, 24, 22, 29, 29, 26, 34, 34, 31, 39, 39, 35, 44, 44, 39, 51, 50, 43, 56, 56, 47, 61, 61, 50, 66, 66, 53, 71, 71, 56, 78, 77, 60, 83, 82, 62, 88, 88, 65, 93, 93, 67, 98, 98, 70, 104, 104, 72, 110, 109, 75, 115, 114, 77, 121, 119, 80, 127, 125, 82, 135, 131, 86, 142, 136, 89, 150, 142, 92, 157, 147, 96, 167, 152, 100, 175, 156, 104, 182, 159, 108, 190, 162, 112, 196, 164, 116, 204, 165, 121, 209, 166, 125, 215, 167, 129, 219, 168, 134, 224, 169, 139, 230, 171, 146, 234, 173, 152, 239, 176, 159, 242, 180, 167, 246, 185, 174, 249, 191, 183, 251, 196, 191, 253, 201, 198, 254, 207, 204, 254, 212, 211, 255, 219, 218, 255, 224, 224, 255, 230, 230], shape(turku50), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: turkuS = reshape([7, 7, 7, 255, 230, 230, 150, 142, 92, 77, 76, 59, 229, 170, 144, 44, 44, 39, 109, 108, 74, 196, 164, 116, 251, 195, 189, 28, 28, 25, 254, 212, 211, 127, 125, 82, 92, 92, 67, 214, 167, 128, 242, 179, 165, 175, 156, 104, 60, 60, 50, 253, 204, 200, 20, 19, 18, 118, 116, 78, 100, 100, 71, 162, 149, 98, 68, 68, 55, 255, 221, 220, 36, 36, 32, 247, 187, 177, 138, 133, 87, 221, 168, 136, 205, 165, 122, 187, 161, 111, 235, 174, 153, 85, 84, 63, 52, 51, 44, 225, 169, 140, 244, 183, 171, 156, 146, 95, 14, 14, 13, 24, 24, 22, 255, 226, 225, 72, 72, 57, 249, 191, 183, 104, 104, 72, 133, 129, 84, 40, 40, 35, 239, 176, 159, 123, 121, 80, 96, 96, 69, 113, 112, 76, 169, 153, 101, 144, 138, 89, 218, 167, 132, 252, 199, 195, 32, 32, 29, 56, 56, 47, 181, 159, 108, 254, 208, 206, 255, 217, 215, 81, 80, 61, 64, 64, 52, 209, 166, 125, 201, 165, 120, 232, 172, 148, 192, 162, 114, 89, 89, 65, 48, 48, 42, 255, 223, 223, 153, 144, 94, 248, 189, 180, 253, 201, 198, 254, 210, 208, 120, 118, 79, 223, 169, 138, 253, 206, 203, 233, 173, 151, 251, 197, 192, 107, 106, 73, 237, 175, 156, 255, 228, 227, 87, 87, 64, 42, 42, 37, 219, 168, 134, 147, 140, 91, 254, 215, 213, 115, 114, 77, 62, 62, 51, 178, 157, 106, 243, 181, 168, 141, 135, 88, 70, 70, 56, 111, 110, 75, 83, 82, 62, 22, 22, 20, 159, 148, 97, 240, 178, 162, 130, 127, 83, 58, 58, 48, 246, 185, 174, 207, 166, 124, 199, 164, 118, 125, 123, 81], shape(turkuS), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: vanimo = reshape([255, 205, 253, 253, 202, 251, 252, 199, 249, 250, 196, 247, 249, 193, 244, 247, 190, 242, 246, 187, 240, 244, 185, 238, 243, 182, 236, 241, 179, 234, 240, 176, 232, 238, 173, 230, 236, 171, 228, 235, 168, 226, 233, 165, 224, 232, 162, 222, 230, 160, 220, 229, 157, 218, 227, 154, 216, 226, 152, 214, 224, 149, 212, 222, 147, 210, 221, 144, 208, 219, 142, 206, 218, 139, 204, 216, 137, 202, 215, 134, 200, 213, 132, 198, 211, 129, 196, 210, 127, 194, 208, 125, 192, 207, 122, 191, 205, 120, 189, 203, 118, 187, 202, 115, 185, 200, 113, 183, 199, 111, 181, 197, 109, 179, 195, 107, 178, 194, 105, 176, 192, 103, 174, 190, 101, 172, 189, 99, 170, 187, 97, 168, 185, 95, 167, 184, 93, 165, 182, 91, 163, 180, 90, 161, 178, 88, 159, 177, 86, 158, 175, 85, 156, 173, 83, 154, 171, 81, 152, 169, 80, 150, 167, 78, 148, 165, 76, 146, 163, 75, 144, 161, 73, 142, 159, 72, 140, 157, 70, 138, 155, 68, 136, 153, 67, 134, 150, 65, 132, 148, 64, 130, 146, 62, 128, 144, 61, 126, 141, 60, 123, 139, 58, 121, 136, 57, 119, 134, 55, 117, 131, 54, 114, 129, 53, 112, 126, 51, 110, 124, 50, 107, 121, 49, 105, 118, 48, 103, 116, 46, 100, 113, 45, 98, 110, 44, 96, 108, 43, 93, 105, 42, 91, 102, 41, 89, 100, 39, 86, 97, 38, 84, 94, 37, 81, 92, 36, 79, 89, 35, 77, 86, 34, 74, 84, 33, 72, 81, 33, 70, 79, 32, 68, 76, 31, 65, 73, 30, 63, 71, 29, 61, 69, 28, 59, 66, 28, 57, 64, 27, 55, 62, 26, 53, 59, 26, 51, 57, 25, 49, 55, 25, 47, 53, 24, 45, 51, 23, 44, 49, 23, 42, 47, 23, 40, 46, 22, 39, 44, 22, 37, 42, 21, 36, 41, 21, 35, 40, 21, 33, 38, 21, 32, 37, 20, 31, 36, 20, 30, 35, 20, 29, 34, 20, 28, 33, 20, 27, 32, 20, 26, 31, 20, 25, 30, 20, 24, 29, 20, 24, 29, 20, 23, 28, 20, 22, 28, 20, 22, 27, 20, 21, 27, 20, 21, 26, 20, 20, 26, 21, 20, 26, 21, 19, 26, 21, 19, 25, 22, 19, 25, 22, 18, 25, 22, 18, 25, 23, 18, 25, 23, 18, 25, 24, 17, 25, 24, 17, 26, 25, 17, 26, 26, 17, 26, 26, 17, 26, 27, 17, 27, 28, 17, 27, 29, 17, 27, 30, 17, 28, 31, 17, 28, 32, 17, 29, 33, 18, 29, 34, 18, 30, 36, 18, 31, 37, 18, 31, 38, 18, 32, 39, 19, 33, 41, 19, 34, 42, 19, 35, 44, 20, 35, 45, 20, 36, 47, 20, 37, 48, 20, 38, 50, 21, 39, 52, 21, 41, 53, 22, 42, 55, 22, 43, 57, 22, 44, 59, 23, 45, 60, 23, 46, 62, 24, 47, 64, 24, 49, 66, 24, 50, 68, 25, 51, 70, 25, 52, 71, 26, 54, 73, 26, 55, 75, 27, 56, 77, 27, 58, 79, 28, 59, 81, 28, 60, 83, 29, 61, 85, 29, 63, 86, 30, 64, 88, 31, 65, 90, 31, 67, 92, 32, 68, 94, 32, 69, 96, 33, 71, 98, 33, 72, 99, 34, 73, 101, 35, 75, 103, 35, 76, 105, 36, 77, 107, 36, 78, 108, 37, 80, 110, 37, 81, 112, 38, 82, 114, 39, 84, 116, 39, 85, 117, 40, 86, 119, 41, 87, 121, 41, 89, 123, 42, 90, 124, 42, 91, 126, 43, 92, 128, 44, 94, 129, 45, 95, 131, 45, 96, 133, 46, 98, 135, 47, 99, 136, 47, 100, 138, 48, 101, 140, 49, 103, 142, 50, 104, 144, 51, 106, 146, 52, 107, 147, 53, 108, 149, 54, 110, 151, 55, 111, 153, 56, 113, 155, 57, 114, 157, 59, 116, 159, 60, 117, 161, 61, 119, 163, 63, 121, 166, 64, 122, 168, 66, 124, 170, 67, 126, 172, 69, 127, 174, 71, 129, 176, 73, 131, 179, 75, 133, 181, 77, 135, 183, 79, 136, 186, 81, 138, 188, 83, 140, 190, 85, 142, 193, 88, 144, 195, 90, 146, 198, 93, 148, 200, 96, 150, 203, 98, 152, 205, 101, 154, 208, 104, 156, 210, 107, 158, 213, 110, 160, 215, 114, 162, 218, 117, 164, 221, 120, 166, 223, 124, 169, 226, 127, 171, 228, 131, 173, 231, 134, 175, 234, 138, 177, 236, 142, 179, 239, 146, 181, 242, 149, 183, 245, 153, 186, 247, 157, 188, 250, 161, 190, 253, 165], shape(vanimo), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: vanimo10 = reshape([255, 205, 253, 211, 129, 196, 161, 73, 142, 92, 36, 79, 35, 20, 29, 27, 30, 17, 54, 73, 26, 90, 124, 42, 133, 181, 77, 190, 253, 165], shape(vanimo10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: vanimo100 = reshape([255, 205, 253, 250, 196, 247, 247, 190, 242, 243, 182, 236, 240, 176, 232, 235, 168, 226, 232, 162, 222, 227, 154, 216, 222, 147, 210, 219, 142, 206, 215, 134, 200, 211, 129, 196, 207, 122, 191, 203, 118, 187, 199, 111, 181, 194, 105, 176, 190, 101, 172, 185, 95, 167, 182, 91, 163, 177, 86, 158, 171, 81, 152, 167, 78, 148, 161, 73, 142, 157, 70, 138, 150, 65, 132, 146, 62, 128, 139, 58, 121, 131, 54, 114, 126, 51, 110, 118, 48, 103, 113, 45, 98, 105, 42, 91, 100, 39, 86, 92, 36, 79, 84, 33, 72, 79, 32, 68, 71, 29, 61, 66, 28, 57, 59, 26, 51, 55, 25, 47, 49, 23, 42, 44, 22, 37, 41, 21, 35, 37, 20, 31, 35, 20, 29, 32, 20, 26, 30, 20, 24, 28, 20, 22, 27, 20, 21, 26, 21, 20, 25, 22, 19, 25, 22, 18, 25, 24, 17, 26, 26, 17, 26, 27, 17, 27, 30, 17, 28, 32, 17, 30, 36, 18, 31, 38, 18, 34, 42, 19, 36, 47, 20, 38, 50, 21, 42, 55, 22, 44, 59, 23, 47, 64, 24, 50, 68, 25, 54, 73, 26, 58, 79, 28, 60, 83, 29, 64, 88, 31, 67, 92, 32, 71, 98, 33, 73, 101, 35, 77, 107, 36, 81, 112, 38, 84, 116, 39, 87, 121, 41, 90, 124, 42, 94, 129, 45, 96, 133, 46, 100, 138, 48, 104, 144, 51, 107, 147, 53, 111, 153, 56, 114, 157, 59, 119, 163, 63, 124, 170, 67, 127, 174, 71, 133, 181, 77, 136, 186, 81, 142, 193, 88, 146, 198, 93, 152, 205, 101, 158, 213, 110, 162, 218, 117, 169, 226, 127, 173, 231, 134, 179, 239, 146, 183, 245, 153, 190, 253, 165], shape(vanimo100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: vanimo25 = reshape([255, 205, 253, 238, 173, 230, 222, 147, 210, 205, 120, 189, 187, 97, 168, 169, 80, 150, 146, 62, 128, 121, 49, 105, 92, 36, 79, 64, 27, 55, 44, 22, 37, 31, 20, 25, 26, 21, 19, 26, 26, 17, 31, 38, 18, 41, 53, 22, 54, 73, 26, 68, 94, 32, 81, 112, 38, 95, 131, 45, 110, 151, 55, 126, 172, 69, 146, 198, 93, 166, 223, 124, 190, 253, 165], shape(vanimo25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: vanimo50 = reshape([255, 205, 253, 247, 190, 242, 240, 176, 232, 230, 160, 220, 222, 147, 210, 215, 134, 200, 207, 122, 191, 199, 111, 181, 189, 99, 170, 180, 90, 161, 171, 81, 152, 161, 73, 142, 150, 65, 132, 136, 57, 119, 124, 50, 107, 110, 44, 96, 97, 38, 84, 84, 33, 72, 69, 28, 59, 57, 25, 49, 47, 23, 40, 40, 21, 33, 34, 20, 28, 29, 20, 23, 26, 20, 20, 25, 22, 18, 25, 24, 17, 27, 29, 17, 29, 34, 18, 33, 41, 19, 37, 48, 20, 43, 57, 22, 50, 68, 25, 56, 77, 27, 63, 86, 30, 69, 96, 33, 76, 105, 36, 84, 116, 39, 90, 124, 42, 96, 133, 46, 103, 142, 50, 110, 151, 55, 119, 163, 63, 127, 174, 71, 136, 186, 81, 146, 198, 93, 156, 210, 107, 169, 226, 127, 179, 239, 146, 190, 253, 165], shape(vanimo50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: vik = reshape([0, 18, 97, 1, 20, 98, 1, 21, 99, 1, 23, 100, 1, 24, 101, 1, 26, 102, 2, 28, 103, 2, 29, 104, 2, 31, 105, 2, 32, 106, 2, 34, 107, 2, 35, 108, 2, 37, 109, 2, 39, 110, 2, 40, 111, 2, 42, 112, 2, 43, 113, 2, 45, 114, 2, 46, 115, 2, 48, 116, 2, 49, 117, 2, 51, 118, 2, 52, 119, 2, 54, 120, 2, 55, 121, 2, 57, 122, 2, 58, 123, 3, 60, 124, 3, 62, 125, 3, 63, 126, 3, 65, 127, 3, 66, 128, 3, 68, 129, 3, 69, 130, 3, 71, 131, 3, 73, 132, 3, 74, 133, 4, 76, 134, 4, 77, 135, 4, 79, 136, 5, 81, 137, 5, 82, 138, 6, 84, 139, 6, 86, 140, 7, 87, 141, 8, 89, 143, 9, 91, 144, 11, 93, 145, 12, 94, 146, 14, 96, 147, 16, 98, 148, 17, 100, 150, 19, 102, 151, 21, 103, 152, 23, 105, 153, 25, 107, 154, 28, 109, 156, 30, 111, 157, 32, 113, 158, 35, 115, 160, 37, 117, 161, 40, 119, 162, 43, 121, 164, 45, 123, 165, 48, 125, 166, 51, 127, 168, 54, 129, 169, 57, 131, 171, 60, 133, 172, 63, 135, 173, 66, 137, 175, 69, 139, 176, 72, 141, 178, 75, 144, 179, 78, 146, 180, 81, 148, 182, 84, 150, 183, 87, 152, 185, 90, 154, 186, 93, 156, 187, 97, 158, 189, 100, 160, 190, 103, 162, 192, 106, 164, 193, 109, 166, 194, 113, 168, 196, 116, 170, 197, 119, 172, 198, 122, 174, 200, 125, 176, 201, 128, 178, 202, 132, 180, 204, 135, 182, 205, 138, 184, 206, 141, 186, 208, 144, 188, 209, 148, 190, 210, 151, 192, 212, 154, 194, 213, 157, 196, 214, 160, 197, 216, 163, 199, 217, 167, 201, 218, 170, 203, 220, 173, 205, 221, 176, 207, 222, 179, 209, 223, 182, 211, 225, 186, 213, 226, 189, 214, 227, 192, 216, 228, 195, 218, 229, 198, 219, 230, 201, 221, 231, 204, 223, 232, 207, 224, 232, 210, 225, 233, 213, 227, 233, 216, 228, 233, 219, 229, 233, 222, 230, 233, 224, 230, 233, 226, 231, 232, 229, 231, 232, 231, 231, 231, 232, 231, 229, 234, 230, 228, 235, 230, 226, 236, 229, 224, 237, 228, 222, 238, 227, 220, 238, 225, 218, 238, 224, 216, 238, 222, 213, 238, 221, 211, 238, 219, 208, 238, 217, 205, 237, 215, 203, 237, 213, 200, 236, 211, 197, 236, 209, 195, 235, 208, 192, 234, 206, 189, 233, 204, 186, 233, 202, 184, 232, 200, 181, 231, 198, 178, 230, 196, 176, 229, 193, 173, 228, 191, 170, 228, 190, 168, 227, 188, 165, 226, 186, 162, 225, 184, 160, 224, 182, 157, 223, 180, 154, 223, 178, 152, 222, 176, 149, 221, 174, 147, 220, 172, 144, 219, 170, 141, 219, 168, 139, 218, 166, 136, 217, 164, 134, 216, 162, 131, 215, 160, 129, 214, 159, 126, 214, 157, 124, 213, 155, 121, 212, 153, 119, 211, 151, 116, 211, 149, 114, 210, 148, 112, 209, 146, 109, 208, 144, 107, 207, 142, 104, 207, 140, 102, 206, 139, 100, 205, 137, 97, 204, 135, 95, 204, 133, 93, 203, 131, 90, 202, 130, 88, 201, 128, 86, 201, 126, 83, 200, 124, 81, 199, 123, 79, 198, 121, 76, 198, 119, 74, 197, 117, 72, 196, 116, 69, 195, 114, 67, 194, 112, 65, 194, 110, 63, 193, 109, 60, 192, 107, 58, 191, 105, 56, 190, 103, 54, 190, 101, 51, 189, 100, 49, 188, 98, 47, 187, 96, 45, 186, 94, 42, 184, 92, 40, 183, 90, 38, 182, 88, 36, 181, 85, 33, 179, 83, 31, 178, 81, 29, 176, 79, 27, 175, 76, 24, 173, 74, 22, 171, 72, 20, 169, 69, 18, 167, 67, 16, 165, 64, 15, 163, 62, 13, 161, 60, 11, 159, 57, 10, 156, 55, 9, 154, 53, 8, 152, 51, 7, 150, 49, 7, 148, 47, 6, 145, 45, 6, 143, 43, 6, 141, 41, 6, 139, 39, 6, 137, 38, 6, 135, 36, 6, 133, 34, 6, 131, 33, 6, 129, 31, 6, 127, 30, 6, 126, 29, 6, 124, 27, 6, 122, 26, 6, 120, 24, 6, 118, 23, 6, 116, 21, 6, 115, 20, 6, 113, 19, 7, 111, 17, 7, 109, 16, 7, 108, 14, 7, 106, 13, 7, 104, 12, 7, 103, 10, 7, 101, 9, 7, 99, 7, 7, 98, 6, 7, 96, 4, 8, 94, 3, 8, 93, 2, 8, 91, 1, 8, 89, 0, 8], shape(vik), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: vik10 = reshape([0, 18, 97, 3, 62, 125, 30, 111, 157, 113, 168, 196, 201, 221, 231, 234, 206, 189, 211, 151, 116, 190, 101, 51, 139, 39, 6, 89, 0, 8], shape(vik10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: vik100 = reshape([0, 18, 97, 1, 23, 100, 1, 26, 102, 2, 31, 105, 2, 34, 107, 2, 39, 110, 2, 42, 112, 2, 46, 115, 2, 51, 118, 2, 54, 120, 2, 58, 123, 3, 62, 125, 3, 66, 128, 3, 69, 130, 3, 74, 133, 4, 79, 136, 5, 82, 138, 7, 87, 141, 9, 91, 144, 14, 96, 147, 19, 102, 151, 23, 105, 153, 30, 111, 157, 35, 115, 160, 43, 121, 164, 48, 125, 166, 57, 131, 171, 66, 137, 175, 72, 141, 178, 81, 148, 182, 87, 152, 185, 97, 158, 189, 103, 162, 192, 113, 168, 196, 122, 174, 200, 128, 178, 202, 138, 184, 206, 144, 188, 209, 154, 194, 213, 160, 197, 216, 170, 203, 220, 179, 209, 223, 186, 213, 226, 195, 218, 229, 201, 221, 231, 210, 225, 233, 216, 228, 233, 224, 230, 233, 231, 231, 231, 234, 230, 228, 237, 228, 222, 238, 225, 218, 238, 221, 211, 237, 215, 203, 236, 211, 197, 234, 206, 189, 233, 202, 184, 230, 196, 176, 228, 191, 170, 226, 186, 162, 223, 180, 154, 222, 176, 149, 219, 170, 141, 218, 166, 136, 215, 160, 129, 214, 157, 124, 211, 151, 116, 209, 146, 109, 207, 142, 104, 205, 137, 97, 204, 133, 93, 201, 128, 86, 200, 124, 81, 198, 119, 74, 195, 114, 67, 194, 110, 63, 191, 105, 56, 190, 101, 51, 187, 96, 45, 184, 92, 40, 181, 85, 33, 176, 79, 27, 173, 74, 22, 167, 67, 16, 163, 62, 13, 156, 55, 9, 150, 49, 7, 145, 45, 6, 139, 39, 6, 135, 36, 6, 129, 31, 6, 126, 29, 6, 120, 24, 6, 115, 20, 6, 111, 17, 7, 106, 13, 7, 103, 10, 7, 98, 6, 7, 94, 3, 8, 89, 0, 8], shape(vik100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: vik25 = reshape([0, 18, 97, 2, 35, 108, 2, 51, 118, 3, 68, 129, 6, 86, 140, 21, 103, 152, 48, 125, 166, 78, 146, 180, 113, 168, 196, 148, 190, 210, 179, 209, 223, 213, 227, 233, 236, 229, 224, 237, 213, 200, 228, 191, 170, 220, 172, 144, 211, 151, 116, 203, 131, 90, 195, 114, 67, 186, 94, 42, 169, 69, 18, 148, 47, 6, 126, 29, 6, 108, 14, 7, 89, 0, 8], shape(vik25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: vik50 = reshape([0, 18, 97, 1, 26, 102, 2, 34, 107, 2, 43, 113, 2, 51, 118, 2, 58, 123, 3, 66, 128, 3, 74, 133, 6, 84, 139, 11, 93, 145, 19, 102, 151, 30, 111, 157, 43, 121, 164, 60, 133, 172, 75, 144, 179, 90, 154, 186, 106, 164, 193, 122, 174, 200, 141, 186, 208, 157, 196, 214, 173, 205, 221, 189, 214, 227, 204, 223, 232, 222, 230, 233, 232, 231, 229, 238, 227, 220, 238, 219, 208, 235, 208, 192, 231, 198, 178, 227, 188, 165, 223, 178, 152, 219, 168, 139, 214, 157, 124, 210, 148, 112, 206, 139, 100, 202, 130, 88, 198, 121, 76, 194, 110, 63, 190, 101, 51, 184, 92, 40, 178, 81, 29, 169, 69, 18, 156, 55, 9, 145, 45, 6, 135, 36, 6, 126, 29, 6, 116, 21, 6, 106, 13, 7, 98, 6, 7, 89, 0, 8], shape(vik50), order=[2, 1])
integer, public, dimension(0:255, 1:3) :: vikO = reshape([79, 26, 61, 78, 26, 62, 78, 27, 63, 77, 27, 65, 76, 28, 66, 75, 29, 67, 75, 29, 68, 74, 30, 70, 73, 31, 71, 72, 32, 73, 72, 33, 74, 71, 33, 75, 70, 34, 77, 69, 35, 78, 69, 36, 80, 68, 37, 81, 67, 38, 83, 67, 39, 84, 66, 40, 86, 65, 41, 88, 64, 42, 89, 63, 44, 91, 63, 45, 93, 62, 46, 94, 61, 47, 96, 61, 49, 98, 60, 50, 99, 59, 51, 101, 58, 53, 103, 58, 54, 104, 57, 56, 106, 56, 57, 108, 56, 59, 110, 55, 60, 111, 54, 62, 113, 54, 63, 115, 53, 65, 116, 53, 67, 118, 52, 68, 120, 52, 70, 122, 52, 72, 123, 52, 73, 125, 51, 75, 127, 51, 77, 128, 51, 79, 130, 51, 81, 132, 51, 82, 133, 52, 84, 135, 52, 86, 137, 52, 88, 138, 53, 90, 140, 53, 92, 141, 54, 94, 143, 55, 95, 144, 56, 97, 146, 57, 99, 148, 58, 101, 149, 59, 103, 151, 60, 105, 152, 61, 107, 154, 63, 109, 155, 64, 111, 156, 66, 113, 158, 67, 115, 159, 69, 117, 161, 71, 119, 162, 73, 121, 164, 75, 123, 165, 77, 125, 166, 79, 127, 168, 81, 129, 169, 83, 131, 171, 85, 133, 172, 87, 135, 173, 90, 137, 175, 92, 139, 176, 94, 141, 177, 97, 143, 178, 99, 145, 180, 102, 147, 181, 104, 149, 182, 107, 151, 183, 109, 152, 184, 112, 154, 186, 114, 156, 187, 117, 158, 188, 120, 160, 189, 122, 162, 190, 125, 164, 191, 128, 165, 192, 131, 167, 193, 133, 169, 194, 136, 170, 194, 139, 172, 195, 142, 174, 196, 144, 175, 197, 147, 177, 197, 150, 178, 198, 153, 180, 198, 155, 181, 199, 158, 182, 199, 161, 184, 200, 164, 185, 200, 166, 186, 200, 169, 187, 200, 171, 188, 200, 174, 189, 200, 176, 190, 200, 179, 191, 200, 181, 192, 200, 184, 192, 199, 186, 193, 199, 188, 193, 198, 190, 194, 198, 192, 194, 197, 194, 194, 196, 196, 194, 195, 198, 195, 194, 200, 195, 193, 201, 194, 192, 203, 194, 191, 205, 194, 190, 206, 194, 188, 207, 193, 187, 209, 193, 185, 210, 192, 184, 211, 192, 182, 212, 191, 181, 213, 190, 179, 213, 189, 177, 214, 189, 175, 215, 188, 173, 215, 187, 172, 216, 186, 170, 216, 184, 168, 217, 183, 166, 217, 182, 164, 217, 181, 161, 217, 180, 159, 217, 178, 157, 217, 177, 155, 217, 175, 153, 217, 174, 151, 217, 172, 148, 217, 171, 146, 217, 169, 144, 216, 168, 141, 216, 166, 139, 216, 165, 137, 215, 163, 135, 215, 161, 132, 214, 160, 130, 213, 158, 128, 213, 156, 125, 212, 154, 123, 212, 152, 121, 211, 151, 118, 210, 149, 116, 209, 147, 114, 208, 145, 111, 208, 143, 109, 207, 141, 107, 206, 139, 104, 205, 138, 102, 204, 136, 100, 203, 134, 97, 202, 132, 95, 200, 130, 93, 199, 128, 91, 198, 126, 88, 197, 124, 86, 196, 121, 84, 194, 119, 82, 193, 117, 79, 192, 115, 77, 190, 113, 75, 189, 111, 73, 187, 109, 71, 186, 106, 69, 184, 104, 67, 183, 102, 65, 181, 100, 63, 179, 98, 61, 178, 95, 59, 176, 93, 57, 174, 91, 55, 172, 89, 53, 170, 86, 51, 169, 84, 50, 167, 82, 48, 165, 80, 47, 163, 77, 45, 161, 75, 44, 159, 73, 42, 157, 71, 41, 155, 69, 40, 153, 67, 39, 151, 65, 38, 149, 62, 37, 147, 60, 36, 145, 59, 35, 143, 57, 34, 141, 55, 33, 140, 53, 33, 138, 51, 32, 136, 49, 32, 134, 48, 31, 132, 46, 31, 130, 44, 31, 129, 43, 30, 127, 41, 30, 125, 40, 30, 124, 39, 30, 122, 37, 30, 121, 36, 30, 119, 35, 30, 118, 34, 31, 116, 33, 31, 115, 32, 31, 114, 31, 31, 112, 30, 32, 111, 29, 32, 110, 28, 32, 108, 27, 33, 107, 26, 33, 106, 26, 34, 105, 25, 34, 104, 25, 35, 103, 24, 35, 102, 24, 36, 101, 23, 37, 100, 23, 37, 99, 22, 38, 98, 22, 39, 97, 22, 39, 96, 22, 40, 95, 22, 41, 94, 21, 42, 93, 21, 43, 92, 21, 43, 91, 21, 44, 90, 21, 45, 90, 21, 46, 89, 21, 47, 88, 22, 48, 87, 22, 49, 86, 22, 50, 86, 22, 51, 85, 22, 52, 84, 23, 53, 83, 23, 54, 83, 23, 55, 82, 24, 56, 81, 24, 57, 80, 25, 58, 80, 25, 60], shape(vikO), order=[2, 1])
integer, public, dimension(0:9, 1:3) :: vikO10 = reshape([79, 26, 61, 58, 53, 103, 59, 103, 151, 117, 158, 188, 190, 194, 198, 217, 174, 151, 197, 124, 86, 149, 62, 37, 104, 25, 35, 80, 25, 60], shape(vikO10), order=[2, 1])
integer, public, dimension(0:99, 1:3) :: vikO100 = reshape([79, 26, 61, 77, 27, 65, 75, 29, 67, 73, 31, 71, 72, 33, 74, 69, 35, 78, 68, 37, 81, 66, 40, 86, 63, 44, 91, 62, 46, 94, 60, 50, 99, 58, 53, 103, 56, 57, 108, 55, 60, 111, 53, 65, 116, 52, 70, 122, 52, 73, 125, 51, 79, 130, 51, 82, 133, 52, 88, 138, 54, 94, 143, 56, 97, 146, 59, 103, 151, 61, 107, 154, 66, 113, 158, 69, 117, 161, 75, 123, 165, 81, 129, 169, 85, 133, 172, 92, 139, 176, 97, 143, 178, 104, 149, 182, 109, 152, 184, 117, 158, 188, 125, 164, 191, 131, 167, 193, 139, 172, 195, 144, 175, 197, 153, 180, 198, 158, 182, 199, 166, 186, 200, 174, 189, 200, 179, 191, 200, 186, 193, 199, 190, 194, 198, 196, 194, 195, 200, 195, 193, 205, 194, 190, 209, 193, 185, 211, 192, 182, 213, 189, 177, 215, 188, 173, 216, 184, 168, 217, 181, 161, 217, 178, 157, 217, 174, 151, 217, 171, 146, 216, 166, 139, 215, 163, 135, 213, 158, 128, 212, 152, 121, 210, 149, 116, 208, 143, 109, 206, 139, 104, 203, 134, 97, 200, 130, 93, 197, 124, 86, 193, 117, 79, 190, 113, 75, 186, 106, 69, 183, 102, 65, 178, 95, 59, 174, 91, 55, 169, 84, 50, 163, 77, 45, 159, 73, 42, 153, 67, 39, 149, 62, 37, 143, 57, 34, 140, 53, 33, 134, 48, 31, 129, 43, 30, 125, 40, 30, 121, 36, 30, 118, 34, 31, 114, 31, 31, 110, 28, 32, 107, 26, 33, 104, 25, 35, 102, 24, 36, 99, 22, 38, 97, 22, 39, 94, 21, 42, 91, 21, 44, 90, 21, 46, 87, 22, 49, 86, 22, 51, 83, 23, 54, 82, 24, 56, 80, 25, 60], shape(vikO100), order=[2, 1])
integer, public, dimension(0:24, 1:3) :: vikO25 = reshape([79, 26, 61, 71, 33, 75, 63, 44, 91, 56, 59, 110, 51, 77, 128, 55, 95, 144, 69, 117, 161, 90, 137, 175, 117, 158, 188, 147, 177, 197, 174, 189, 200, 198, 195, 194, 213, 190, 179, 217, 180, 159, 215, 163, 135, 208, 145, 111, 197, 124, 86, 181, 100, 63, 163, 77, 45, 141, 55, 33, 122, 37, 30, 108, 27, 33, 97, 22, 39, 88, 22, 48, 80, 25, 60], shape(vikO25), order=[2, 1])
integer, public, dimension(0:49, 1:3) :: vikO50 = reshape([79, 26, 61, 75, 29, 67, 72, 33, 74, 67, 38, 83, 63, 44, 91, 60, 50, 99, 56, 57, 108, 53, 65, 116, 51, 75, 127, 52, 84, 135, 54, 94, 143, 59, 103, 151, 66, 113, 158, 77, 125, 166, 87, 135, 173, 99, 145, 180, 112, 154, 186, 125, 164, 191, 142, 174, 196, 155, 181, 199, 169, 187, 200, 181, 192, 200, 192, 194, 197, 203, 194, 191, 210, 192, 184, 214, 189, 175, 217, 183, 166, 217, 175, 153, 216, 168, 141, 214, 160, 130, 211, 151, 118, 207, 141, 107, 200, 130, 93, 194, 119, 82, 187, 109, 71, 179, 98, 61, 170, 86, 51, 159, 73, 42, 149, 62, 37, 140, 53, 33, 130, 44, 31, 122, 37, 30, 114, 31, 31, 107, 26, 33, 102, 24, 36, 97, 22, 39, 92, 21, 43, 87, 22, 49, 83, 23, 54, 80, 25, 60], shape(vikO50), order=[2, 1])