V26 pptasm 17 MODULE_PPTASM.f90 S582 0 07/31/2020 17:57:58 use f77kinds public 0 direct enduse D 56 21 8 2 49 48 0 1 0 0 1 32 36 44 32 36 34 38 42 46 38 42 40 D 59 21 6 1 0 29 0 0 0 0 0 0 29 0 3 29 0 D 62 21 8 2 64 63 0 1 0 0 1 53 56 61 53 56 54 57 60 62 57 60 58 D 65 21 6 1 0 29 0 0 0 0 0 0 29 0 3 29 0 D 68 21 8 3 89 88 0 1 0 0 1 70 73 84 70 73 71 74 77 85 74 77 75 79 83 87 79 83 81 D 71 21 6 1 0 68 0 0 0 0 0 0 68 0 3 68 0 D 74 21 8 3 110 109 0 1 0 0 1 94 97 106 94 97 95 98 101 107 98 101 99 102 105 108 102 105 103 D 77 21 6 1 0 68 0 0 0 0 0 0 68 0 3 68 0 D 80 21 8 3 131 130 0 1 0 0 1 115 118 127 115 118 116 119 122 128 119 122 120 123 126 129 123 126 124 D 83 21 6 1 0 68 0 0 0 0 0 0 68 0 3 68 0 S 582 24 0 0 0 8 1 0 4658 5 0 A 0 0 0 0 0 0 0 0 0 0 0 0 57 0 0 0 0 0 0 0 0 18 0 0 0 0 0 0 pptasm S 586 3 0 0 0 6 1 1 0 0 0 A 0 0 0 0 0 0 0 0 0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 599 6 4 0 0 6 600 582 4710 40800006 0 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_0 S 600 6 4 0 0 6 615 582 4716 40800006 0 A 0 0 0 0 0 4 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_1 S 601 7 6 0 0 56 1 582 4722 10a00024 51 A 0 0 0 0 0 0 604 0 0 0 606 0 0 0 0 0 0 0 0 603 0 0 605 582 0 0 0 0 phour S 602 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 603 8 4 0 0 59 618 582 4728 40822064 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 phour$sd S 604 6 4 0 0 7 605 582 4737 40802061 1020 A 0 0 0 0 0 96 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 phour$p S 605 6 4 0 0 7 603 582 4745 40802060 1020 A 0 0 0 0 0 104 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 phour$o S 606 22 1 0 0 8 1 582 4753 40000000 1000 A 0 0 0 0 0 0 0 601 0 0 0 0 603 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 phour$arrdsc S 607 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 608 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 609 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 610 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 611 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 612 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 613 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 614 7 6 0 0 62 1 582 4766 10a00024 51 A 0 0 0 0 0 0 618 0 0 0 620 0 0 0 0 0 0 0 0 617 0 0 619 582 0 0 0 0 aprec S 615 6 4 0 0 6 616 582 4772 40800006 0 A 0 0 0 0 0 8 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_2 S 616 6 4 0 0 6 621 582 4778 40800006 0 A 0 0 0 0 0 12 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_3 S 617 8 4 0 0 65 627 582 4784 40822064 1020 A 0 0 0 0 0 112 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 aprec$sd S 618 6 4 0 0 7 619 582 4793 40802061 1020 A 0 0 0 0 0 208 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 aprec$p S 619 6 4 0 0 7 617 582 4801 40802060 1020 A 0 0 0 0 0 216 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 aprec$o S 620 22 1 0 0 8 1 582 4809 40000000 1000 A 0 0 0 0 0 0 0 614 0 0 0 0 617 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 aprec$arrdsc S 621 6 4 0 0 6 622 582 4822 40800006 0 A 0 0 0 0 0 16 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_4 S 622 6 4 0 0 6 623 582 4828 40800006 0 A 0 0 0 0 0 20 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_5 S 623 6 4 0 0 6 634 582 4834 40800006 0 A 0 0 0 0 0 24 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_6 S 624 7 6 0 0 68 1 582 4840 10a00024 51 A 0 0 0 0 0 0 627 0 0 0 629 0 0 0 0 0 0 0 0 626 0 0 628 582 0 0 0 0 tlatcu S 625 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 30 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 626 8 4 0 0 71 638 582 4847 40822064 1020 A 0 0 0 0 0 224 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatcu$sd S 627 6 4 0 0 7 628 582 4857 40802061 1020 A 0 0 0 0 0 344 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatcu$p S 628 6 4 0 0 7 626 582 4866 40802060 1020 A 0 0 0 0 0 352 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatcu$o S 629 22 1 0 0 8 1 582 4875 40000000 1000 A 0 0 0 0 0 0 0 624 0 0 0 0 626 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatcu$arrdsc S 630 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 25 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 631 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 26 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 632 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 29 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 633 7 6 0 0 74 1 582 4889 10a00024 51 A 0 0 0 0 0 0 638 0 0 0 640 0 0 0 0 0 0 0 0 637 0 0 639 582 0 0 0 0 tlatgs S 634 6 4 0 0 6 635 582 4896 40800006 0 A 0 0 0 0 0 28 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_7 S 635 6 4 0 0 6 636 582 4902 40800006 0 A 0 0 0 0 0 32 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_8 S 636 6 4 0 0 6 641 582 4908 40800006 0 A 0 0 0 0 0 36 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_9 S 637 8 4 0 0 77 646 582 4914 40822064 1020 A 0 0 0 0 0 360 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatgs$sd S 638 6 4 0 0 7 639 582 4924 40802061 1020 A 0 0 0 0 0 480 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatgs$p S 639 6 4 0 0 7 637 582 4933 40802060 1020 A 0 0 0 0 0 488 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatgs$o S 640 22 1 0 0 8 1 582 4942 40000000 1000 A 0 0 0 0 0 0 0 633 0 0 0 0 637 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 tlatgs$arrdsc S 641 6 4 0 0 6 642 582 4956 40800006 0 A 0 0 0 0 0 40 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_10 S 642 6 4 0 0 6 643 582 4963 40800006 0 A 0 0 0 0 0 44 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_11 S 643 6 4 0 0 6 649 582 4970 40800006 0 A 0 0 0 0 0 48 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_12 S 644 7 6 0 0 80 1 582 4977 10a00024 51 A 0 0 0 0 0 0 646 0 0 0 648 0 0 0 0 0 0 0 0 645 0 0 647 582 0 0 0 0 pptdat S 645 8 4 0 0 83 599 582 4984 40822064 1020 A 0 0 0 0 0 496 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pptdat$sd S 646 6 4 0 0 7 647 582 4994 40802061 1020 A 0 0 0 0 0 616 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pptdat$p S 647 6 4 0 0 7 645 582 5003 40802060 1020 A 0 0 0 0 0 624 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pptdat$o S 648 22 1 0 0 8 1 582 5012 40000000 1000 A 0 0 0 0 0 0 0 644 0 0 0 0 645 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 pptdat$arrdsc S 649 6 4 0 0 8 650 582 5026 4 0 A 0 0 0 0 0 52 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 mtstpe S 650 6 4 0 0 8 651 582 5033 4 0 A 0 0 0 0 0 56 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 itstloc S 651 6 4 0 0 8 1 582 5041 4 0 A 0 0 0 0 0 60 0 0 0 0 0 0 652 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 jtstloc S 652 11 0 0 0 8 1 582 5049 40800000 801000 A 0 0 0 0 0 696 0 0 604 651 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 _pptasm$0 A 18 2 0 0 0 6 586 0 0 0 18 0 0 0 0 0 0 0 0 0 A 29 2 0 0 0 6 602 0 0 0 29 0 0 0 0 0 0 0 0 0 A 30 2 0 0 0 6 607 0 0 0 30 0 0 0 0 0 0 0 0 0 A 31 1 0 1 0 59 603 0 0 0 0 0 0 0 0 0 0 0 0 0 A 32 10 0 0 0 6 31 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 30 A 33 2 0 0 0 6 608 0 0 0 33 0 0 0 0 0 0 0 0 0 A 34 10 0 0 32 6 31 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 33 A 35 4 0 0 0 6 34 0 3 0 0 0 0 2 0 0 0 0 0 0 A 36 4 0 0 0 6 32 0 35 0 0 0 0 1 0 0 0 0 0 0 A 37 2 0 0 0 6 609 0 0 0 37 0 0 0 0 0 0 0 0 0 A 38 10 0 0 34 6 31 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 37 A 39 2 0 0 0 6 610 0 0 0 39 0 0 0 0 0 0 0 0 0 A 40 10 0 0 38 6 31 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 39 A 41 4 0 0 0 6 40 0 3 0 0 0 0 2 0 0 0 0 0 0 A 42 4 0 0 0 6 38 0 41 0 0 0 0 1 0 0 0 0 0 0 A 43 2 0 0 0 6 611 0 0 0 43 0 0 0 0 0 0 0 0 0 A 44 10 0 0 40 6 31 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 43 A 45 2 0 0 0 6 612 0 0 0 45 0 0 0 0 0 0 0 0 0 A 46 10 0 0 44 6 31 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 45 A 47 2 0 0 0 6 613 0 0 0 47 0 0 0 0 0 0 0 0 0 A 48 10 0 0 46 6 31 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 47 A 49 10 0 0 48 6 31 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 52 1 0 1 0 65 617 0 0 0 0 0 0 0 0 0 0 0 0 0 A 53 10 0 0 0 6 52 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 30 A 54 10 0 0 53 6 52 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 33 A 55 4 0 0 0 6 54 0 3 0 0 0 0 2 0 0 0 0 0 0 A 56 4 0 0 0 6 53 0 55 0 0 0 0 1 0 0 0 0 0 0 A 57 10 0 0 54 6 52 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 37 A 58 10 0 0 57 6 52 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 39 A 59 4 0 0 0 6 58 0 3 0 0 0 0 2 0 0 0 0 0 0 A 60 4 0 0 0 6 57 0 59 0 0 0 0 1 0 0 0 0 0 0 A 61 10 0 0 58 6 52 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 43 A 62 10 0 0 61 6 52 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 45 A 63 10 0 0 62 6 52 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 47 A 64 10 0 0 63 6 52 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 68 2 0 0 0 6 625 0 0 0 68 0 0 0 0 0 0 0 0 0 A 69 1 0 3 0 71 626 0 0 0 0 0 0 0 0 0 0 0 0 0 A 70 10 0 0 0 6 69 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 30 A 71 10 0 0 70 6 69 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 33 A 72 4 0 0 0 6 71 0 3 0 0 0 0 2 0 0 0 0 0 0 A 73 4 0 0 0 6 70 0 72 0 0 0 0 1 0 0 0 0 0 0 A 74 10 0 0 71 6 69 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 37 A 75 10 0 0 74 6 69 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 39 A 76 4 0 0 0 6 75 0 3 0 0 0 0 2 0 0 0 0 0 0 A 77 4 0 0 0 6 74 0 76 0 0 0 0 1 0 0 0 0 0 0 A 78 2 0 0 0 6 630 0 0 0 78 0 0 0 0 0 0 0 0 0 A 79 10 0 0 75 6 69 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 78 A 80 2 0 0 0 6 631 0 0 0 80 0 0 0 0 0 0 0 0 0 A 81 10 0 0 79 6 69 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 80 A 82 4 0 0 10 6 81 0 3 0 0 0 0 2 0 0 0 0 0 0 A 83 4 0 0 0 6 79 0 82 0 0 0 0 1 0 0 0 0 0 0 A 84 10 0 0 81 6 69 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 43 A 85 10 0 0 84 6 69 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 45 A 86 2 0 0 0 6 632 0 0 0 86 0 0 0 0 0 0 0 0 0 A 87 10 0 0 85 6 69 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 86 A 88 10 0 0 87 6 69 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 47 A 89 10 0 0 88 6 69 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 93 1 0 3 0 77 637 0 0 0 0 0 0 0 0 0 0 0 0 0 A 94 10 0 0 25 6 93 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 30 A 95 10 0 0 94 6 93 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 33 A 96 4 0 0 14 6 95 0 3 0 0 0 0 2 0 0 0 0 0 0 A 97 4 0 0 0 6 94 0 96 0 0 0 0 1 0 0 0 0 0 0 A 98 10 0 0 95 6 93 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 37 A 99 10 0 0 98 6 93 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 39 A 100 4 0 0 0 6 99 0 3 0 0 0 0 2 0 0 0 0 0 0 A 101 4 0 0 0 6 98 0 100 0 0 0 0 1 0 0 0 0 0 0 A 102 10 0 0 99 6 93 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 78 A 103 10 0 0 102 6 93 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 80 A 104 4 0 0 0 6 103 0 3 0 0 0 0 2 0 0 0 0 0 0 A 105 4 0 0 0 6 102 0 104 0 0 0 0 1 0 0 0 0 0 0 A 106 10 0 0 103 6 93 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 43 A 107 10 0 0 106 6 93 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 45 A 108 10 0 0 107 6 93 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 86 A 109 10 0 0 108 6 93 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 47 A 110 10 0 0 109 6 93 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 114 1 0 3 0 83 645 0 0 0 0 0 0 0 0 0 0 0 0 0 A 115 10 0 0 0 6 114 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 30 A 116 10 0 0 115 6 114 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 33 A 117 4 0 0 0 6 116 0 3 0 0 0 0 2 0 0 0 0 0 0 A 118 4 0 0 0 6 115 0 117 0 0 0 0 1 0 0 0 0 0 0 A 119 10 0 0 116 6 114 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 37 A 120 10 0 0 119 6 114 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 39 A 121 4 0 0 37 6 120 0 3 0 0 0 0 2 0 0 0 0 0 0 A 122 4 0 0 0 6 119 0 121 0 0 0 0 1 0 0 0 0 0 0 A 123 10 0 0 120 6 114 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 78 A 124 10 0 0 123 6 114 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 80 A 125 4 0 0 47 6 124 0 3 0 0 0 0 2 0 0 0 0 0 0 A 126 4 0 0 0 6 123 0 125 0 0 0 0 1 0 0 0 0 0 0 A 127 10 0 0 124 6 114 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 43 A 128 10 0 0 127 6 114 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 45 A 129 10 0 0 128 6 114 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 86 A 130 10 0 0 129 6 114 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 47 A 131 10 0 0 130 6 114 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 Z Z