V26 hs 13 MODULE_HS.f90 S582 0 07/31/2020 17:57:42 use f77kinds public 0 direct enduse D 56 21 8 3 58 57 0 1 0 0 1 33 37 51 33 37 35 39 43 53 39 43 41 45 49 55 45 49 47 D 59 21 6 1 0 30 0 0 0 0 0 0 30 0 3 30 0 D 62 21 8 1 68 67 0 1 0 0 1 62 65 66 62 65 63 D 65 21 6 1 0 60 0 0 0 0 0 0 60 0 3 60 0 D 68 21 8 2 84 83 0 1 0 0 1 73 76 81 73 76 74 77 80 82 77 80 78 D 71 21 6 1 0 71 0 0 0 0 0 0 71 0 3 71 0 D 74 21 8 2 99 98 0 1 0 0 1 88 91 96 88 91 89 92 95 97 92 95 93 D 77 21 6 1 0 71 0 0 0 0 0 0 71 0 3 71 0 D 80 21 8 3 120 119 0 1 0 0 1 104 107 116 104 107 105 108 111 117 108 111 109 112 115 118 112 115 113 D 83 21 6 1 0 30 0 0 0 0 0 0 30 0 3 30 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 46 0 0 0 0 0 0 0 0 17 0 0 0 0 0 0 hs 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 4706 40800006 0 A 0 0 0 0 0 0 0 0 0 0 0 0 648 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 601 582 4712 40800006 0 A 0 0 0 0 0 4 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_1 S 601 6 4 0 0 6 618 582 4718 40800006 0 A 0 0 0 0 0 8 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_2 S 602 7 6 0 0 56 1 582 4724 10a00024 51 A 0 0 0 0 0 0 605 0 0 0 607 0 0 0 0 0 0 0 0 604 0 0 606 582 0 0 0 0 ktdt S 603 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 604 8 4 0 0 59 622 582 4729 40822064 1020 A 0 0 0 0 0 0 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ktdt$sd S 605 6 4 0 0 7 606 582 4737 40802061 1020 A 0 0 0 0 0 120 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ktdt$p S 606 6 4 0 0 7 604 582 4744 40802060 1020 A 0 0 0 0 0 128 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ktdt$o S 607 22 1 0 0 6 1 582 4751 40000000 1000 A 0 0 0 0 0 0 0 602 0 0 0 0 604 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ktdt$arrdsc S 608 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 609 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 610 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 611 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 612 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 613 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 614 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 615 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 616 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 617 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 618 6 4 0 0 6 625 582 4763 40800006 0 A 0 0 0 0 0 12 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_3 S 619 7 6 0 0 62 1 582 4769 10a00024 51 A 0 0 0 0 0 0 622 0 0 0 624 0 0 0 0 0 0 0 0 621 0 0 623 582 0 0 0 0 kvdt S 620 3 0 0 0 6 0 1 0 0 0 A 0 0 0 0 0 0 0 0 0 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 S 621 8 4 0 0 65 630 582 4774 40822064 1020 A 0 0 0 0 0 136 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 kvdt$sd S 622 6 4 0 0 7 623 582 4782 40802061 1020 A 0 0 0 0 0 208 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 kvdt$p S 623 6 4 0 0 7 621 582 4789 40802060 1020 A 0 0 0 0 0 216 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 kvdt$o S 624 22 1 0 0 6 1 582 4796 40000000 1000 A 0 0 0 0 0 0 0 619 0 0 0 0 621 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 kvdt$arrdsc S 625 6 4 0 0 6 626 582 4808 40800006 0 A 0 0 0 0 0 16 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_4 S 626 6 4 0 0 6 634 582 4814 40800006 0 A 0 0 0 0 0 20 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_5 S 627 7 6 0 0 68 1 582 4820 10a00024 51 A 0 0 0 0 0 0 630 0 0 0 632 0 0 0 0 0 0 0 0 629 0 0 631 582 0 0 0 0 utop0 S 628 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 629 8 4 0 0 71 637 582 4826 40822064 1020 A 0 0 0 0 0 224 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 utop0$sd S 630 6 4 0 0 7 631 582 4835 40802061 1020 A 0 0 0 0 0 320 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 utop0$p S 631 6 4 0 0 7 629 582 4843 40802060 1020 A 0 0 0 0 0 328 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 utop0$o S 632 22 1 0 0 8 1 582 4851 40000000 1000 A 0 0 0 0 0 0 0 627 0 0 0 0 629 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 utop0$arrdsc S 633 7 6 0 0 74 1 582 4864 10a00024 51 A 0 0 0 0 0 0 637 0 0 0 639 0 0 0 0 0 0 0 0 636 0 0 638 582 0 0 0 0 vtop0 S 634 6 4 0 0 6 635 582 4870 40800006 0 A 0 0 0 0 0 24 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_6 S 635 6 4 0 0 6 640 582 4876 40800006 0 A 0 0 0 0 0 28 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_7 S 636 8 4 0 0 77 645 582 4882 40822064 1020 A 0 0 0 0 0 336 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 vtop0$sd S 637 6 4 0 0 7 638 582 4891 40802061 1020 A 0 0 0 0 0 432 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 vtop0$p S 638 6 4 0 0 7 636 582 4899 40802060 1020 A 0 0 0 0 0 440 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 vtop0$o S 639 22 1 0 0 8 1 582 4907 40000000 1000 A 0 0 0 0 0 0 0 633 0 0 0 0 636 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 vtop0$arrdsc S 640 6 4 0 0 6 641 582 4920 40800006 0 A 0 0 0 0 0 32 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_8 S 641 6 4 0 0 6 642 582 4926 40800006 0 A 0 0 0 0 0 36 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_9 S 642 6 4 0 0 6 1 582 4932 40800006 0 A 0 0 0 0 0 40 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 z_b_10 S 643 7 6 0 0 80 1 582 4939 10a00024 51 A 0 0 0 0 0 0 645 0 0 0 647 0 0 0 0 0 0 0 0 644 0 0 646 582 0 0 0 0 ttop0 S 644 8 4 0 0 83 599 582 4945 40822064 1020 A 0 0 0 0 0 448 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ttop0$sd S 645 6 4 0 0 7 646 582 4954 40802061 1020 A 0 0 0 0 0 568 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ttop0$p S 646 6 4 0 0 7 644 582 4962 40802060 1020 A 0 0 0 0 0 576 0 0 0 0 0 0 648 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ttop0$o S 647 22 1 0 0 8 1 582 4970 40000000 1000 A 0 0 0 0 0 0 0 643 0 0 0 0 644 0 0 0 0 0 0 0 0 0 0 582 0 0 0 0 ttop0$arrdsc S 648 11 0 0 0 8 1 582 4983 40800000 801000 A 0 0 0 0 0 628 0 0 605 642 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 _hs$0 A 18 2 0 0 0 6 586 0 0 0 18 0 0 0 0 0 0 0 0 0 A 30 2 0 0 0 6 603 0 0 0 30 0 0 0 0 0 0 0 0 0 A 31 2 0 0 0 6 608 0 0 0 31 0 0 0 0 0 0 0 0 0 A 32 1 0 1 0 59 604 0 0 0 0 0 0 0 0 0 0 0 0 0 A 33 10 0 0 0 6 32 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 34 2 0 0 0 6 609 0 0 0 34 0 0 0 0 0 0 0 0 0 A 35 10 0 0 33 6 32 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 36 4 0 0 0 6 35 0 3 0 0 0 0 2 0 0 0 0 0 0 A 37 4 0 0 0 6 33 0 36 0 0 0 0 1 0 0 0 0 0 0 A 38 2 0 0 0 6 610 0 0 0 38 0 0 0 0 0 0 0 0 0 A 39 10 0 0 35 6 32 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 40 2 0 0 0 6 611 0 0 0 40 0 0 0 0 0 0 0 0 0 A 41 10 0 0 39 6 32 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 42 4 0 0 0 6 41 0 3 0 0 0 0 2 0 0 0 0 0 0 A 43 4 0 0 0 6 39 0 42 0 0 0 0 1 0 0 0 0 0 0 A 44 2 0 0 0 6 612 0 0 0 44 0 0 0 0 0 0 0 0 0 A 45 10 0 0 41 6 32 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 44 A 46 2 0 0 0 6 613 0 0 0 46 0 0 0 0 0 0 0 0 0 A 47 10 0 0 45 6 32 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 46 A 48 4 0 0 0 6 47 0 3 0 0 0 0 2 0 0 0 0 0 0 A 49 4 0 0 24 6 45 0 48 0 0 0 0 1 0 0 0 0 0 0 A 50 2 0 0 0 6 614 0 0 0 50 0 0 0 0 0 0 0 0 0 A 51 10 0 0 47 6 32 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 52 2 0 0 0 6 615 0 0 0 52 0 0 0 0 0 0 0 0 0 A 53 10 0 0 51 6 32 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 54 2 0 0 0 6 616 0 0 0 54 0 0 0 0 0 0 0 0 0 A 55 10 0 0 53 6 32 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 54 A 56 2 0 0 0 6 617 0 0 0 56 0 0 0 0 0 0 0 0 0 A 57 10 0 0 55 6 32 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 58 10 0 0 57 6 32 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 60 2 0 0 0 6 620 0 0 0 60 0 0 0 0 0 0 0 0 0 A 61 1 0 3 0 65 621 0 0 0 0 0 0 0 0 0 0 0 0 0 A 62 10 0 0 61 6 61 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 63 10 0 0 62 6 61 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 64 4 0 0 0 6 63 0 3 0 0 0 0 2 0 0 0 0 0 0 A 65 4 0 0 0 6 62 0 64 0 0 0 0 1 0 0 0 0 0 0 A 66 10 0 0 63 6 61 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 67 10 0 0 66 6 61 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 68 10 0 0 67 6 61 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 71 2 0 0 0 6 628 0 0 0 71 0 0 0 0 0 0 0 0 0 A 72 1 0 5 0 71 629 0 0 0 0 0 0 0 0 0 0 0 0 0 A 73 10 0 0 0 6 72 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 74 10 0 0 73 6 72 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 75 4 0 0 0 6 74 0 3 0 0 0 0 2 0 0 0 0 0 0 A 76 4 0 0 0 6 73 0 75 0 0 0 0 1 0 0 0 0 0 0 A 77 10 0 0 74 6 72 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 78 10 0 0 77 6 72 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 79 4 0 0 0 6 78 0 3 0 0 0 0 2 0 0 0 0 0 0 A 80 4 0 0 0 6 77 0 79 0 0 0 0 1 0 0 0 0 0 0 A 81 10 0 0 78 6 72 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 82 10 0 0 81 6 72 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 83 10 0 0 82 6 72 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 84 10 0 0 83 6 72 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 87 1 0 5 0 77 636 0 0 0 0 0 0 0 0 0 0 0 0 0 A 88 10 0 0 19 6 87 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 89 10 0 0 88 6 87 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 90 4 0 0 0 6 89 0 3 0 0 0 0 2 0 0 0 0 0 0 A 91 4 0 0 0 6 88 0 90 0 0 0 0 1 0 0 0 0 0 0 A 92 10 0 0 89 6 87 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 93 10 0 0 92 6 87 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 94 4 0 0 0 6 93 0 3 0 0 0 0 2 0 0 0 0 0 0 A 95 4 0 0 0 6 92 0 94 0 0 0 0 1 0 0 0 0 0 0 A 96 10 0 0 93 6 87 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 97 10 0 0 96 6 87 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 98 10 0 0 97 6 87 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 99 10 0 0 98 6 87 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 A 103 1 0 1 0 83 644 0 0 0 0 0 0 0 0 0 0 0 0 0 A 104 10 0 0 0 6 103 1 0 0 0 0 0 0 0 0 0 0 0 0 X 1 31 A 105 10 0 0 104 6 103 4 0 0 0 0 0 0 0 0 0 0 0 0 X 1 34 A 106 4 0 0 0 6 105 0 3 0 0 0 0 2 0 0 0 0 0 0 A 107 4 0 0 0 6 104 0 106 0 0 0 0 1 0 0 0 0 0 0 A 108 10 0 0 105 6 103 7 0 0 0 0 0 0 0 0 0 0 0 0 X 1 38 A 109 10 0 0 108 6 103 10 0 0 0 0 0 0 0 0 0 0 0 0 X 1 40 A 110 4 0 0 0 6 109 0 3 0 0 0 0 2 0 0 0 0 0 0 A 111 4 0 0 0 6 108 0 110 0 0 0 0 1 0 0 0 0 0 0 A 112 10 0 0 109 6 103 13 0 0 0 0 0 0 0 0 0 0 0 0 X 1 44 A 113 10 0 0 112 6 103 16 0 0 0 0 0 0 0 0 0 0 0 0 X 1 46 A 114 4 0 0 0 6 113 0 3 0 0 0 0 2 0 0 0 0 0 0 A 115 4 0 0 0 6 112 0 114 0 0 0 0 1 0 0 0 0 0 0 A 116 10 0 0 113 6 103 19 0 0 0 0 0 0 0 0 0 0 0 0 X 1 50 A 117 10 0 0 116 6 103 22 0 0 0 0 0 0 0 0 0 0 0 0 X 1 52 A 118 10 0 0 117 6 103 25 0 0 0 0 0 0 0 0 0 0 0 0 X 1 54 A 119 10 0 0 118 6 103 28 0 0 0 0 0 0 0 0 0 0 0 0 X 1 56 A 120 10 0 0 119 6 103 31 0 0 0 0 0 0 0 0 0 0 0 0 X 1 18 Z Z