V34 :0x24 scrtch 17 MODULE_SCRTCH.f90 S624 0 12/08/2025 10:32:51 use f77kinds public 0 direct use rdparm private enduse D 58 23 9 2 119 118 0 0 0 0 0 0 115 11 11 115 115 0 117 115 11 117 117 D 61 23 9 2 119 118 0 0 0 0 0 0 115 11 11 115 115 0 117 115 11 117 117 D 64 23 9 2 119 118 0 0 0 0 0 0 115 11 11 115 115 0 117 115 11 117 117 D 67 23 9 2 119 118 0 0 0 0 0 0 115 11 11 115 115 0 117 115 11 117 117 D 70 23 9 2 119 121 0 0 0 0 0 0 115 11 11 115 115 0 120 115 11 120 120 D 73 23 9 2 119 123 0 0 0 0 0 0 115 11 11 115 115 0 122 115 11 122 122 D 76 23 9 2 119 123 0 0 0 0 0 0 115 11 11 115 115 0 122 115 11 122 122 D 79 23 9 1 11 125 0 0 0 0 0 0 125 11 11 125 125 D 82 23 9 1 11 125 0 0 0 0 0 0 125 11 11 125 125 D 85 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 88 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 91 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 94 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 97 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 100 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 103 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 106 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 109 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 112 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 115 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 118 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 121 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 124 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 127 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 130 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 133 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 136 23 9 1 11 115 0 0 0 0 0 0 115 11 11 115 115 D 139 23 9 1 11 117 0 0 0 0 0 0 117 11 11 117 117 D 142 23 9 1 11 117 0 0 0 0 0 0 117 11 11 117 117 D 145 23 9 1 11 117 0 0 0 0 0 0 117 11 11 117 117 D 148 23 9 1 11 127 0 0 0 0 0 0 127 11 11 127 127 D 151 23 9 1 11 127 0 0 0 0 0 0 127 11 11 127 127 D 154 23 9 1 11 122 0 0 0 0 0 0 122 11 11 122 122 D 157 23 9 1 11 122 0 0 0 0 0 0 122 11 11 122 122 D 160 23 9 1 11 122 0 0 0 0 0 0 122 11 11 122 122 D 163 23 9 1 11 122 0 0 0 0 0 0 122 11 11 122 122 D 166 23 9 1 11 122 0 0 0 0 0 0 122 11 11 122 122 D 169 23 9 1 11 122 0 0 0 0 0 0 122 11 11 122 122 D 172 23 9 1 11 122 0 0 0 0 0 0 122 11 11 122 122 S 624 24 0 0 0 9 1 0 5013 5 0 A 0 0 0 0 B 0 1 0 0 0 0 0 0 0 0 0 0 63 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 scrtch S 627 23 0 0 0 6 700 624 5036 4 0 A 0 0 0 0 B 400000 28 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 nblx S 628 23 0 0 0 6 699 624 5041 4 0 A 0 0 0 0 B 400000 28 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 nblw R 699 16 3 rdparm nblw R 700 16 4 rdparm nblx S 733 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 28 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 735 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 180 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 736 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 5040 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 737 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 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 7 S 738 7 4 0 4 58 739 624 2783 800004 100 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sum S 739 7 4 0 4 61 740 624 5377 800004 100 A 0 0 0 0 B 0 34 0 0 0 20160 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 pertsm S 740 7 4 0 4 64 741 624 5384 800004 100 A 0 0 0 0 B 0 34 0 0 0 40320 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sum3 S 741 7 4 0 4 67 744 624 5389 800004 100 A 0 0 0 0 B 0 34 0 0 0 60480 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sumwde S 742 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 47 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 743 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 1316 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 744 7 4 0 4 70 747 624 5396 800004 100 A 0 0 0 0 B 0 37 0 0 0 80640 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 srcwd S 745 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 163 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 746 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 4564 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 747 7 4 0 4 73 748 624 5402 800004 100 A 0 0 0 0 B 0 40 0 0 0 85904 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 src1nb S 748 7 4 0 4 76 751 624 5409 800004 100 A 0 0 0 0 B 0 40 0 0 0 104160 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 dbdtnb S 750 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 0 0 0 0 0 0 0 0 0 181 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 S 751 7 4 0 4 79 752 624 5416 800004 100 A 0 0 0 0 B 0 43 0 0 0 122416 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 zmass S 752 7 4 0 4 82 753 624 5422 800004 100 A 0 0 0 0 B 0 43 0 0 0 123152 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 zroot S 753 7 4 0 4 85 754 624 5428 800004 100 A 0 0 0 0 B 0 46 0 0 0 123888 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sc S 754 7 4 0 4 88 755 624 5431 800004 100 A 0 0 0 0 B 0 46 0 0 0 124000 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 dsc S 755 7 4 0 4 91 756 624 5435 800004 100 A 0 0 0 0 B 0 46 0 0 0 124112 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 xtemv S 756 7 4 0 4 94 757 624 5441 800004 100 A 0 0 0 0 B 0 46 0 0 0 124224 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 tfour S 757 7 4 0 4 97 758 624 5447 800004 100 A 0 0 0 0 B 0 46 0 0 0 124336 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 fortcu S 758 7 4 0 4 100 759 624 5454 800004 100 A 0 0 0 0 B 0 46 0 0 0 124448 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 x S 759 7 4 0 4 103 760 624 5456 800004 100 A 0 0 0 0 B 0 46 0 0 0 124560 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 x1 S 760 7 4 0 4 106 761 624 5459 800004 100 A 0 0 0 0 B 0 46 0 0 0 124672 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 srcs S 761 7 4 0 4 109 762 624 5464 800004 100 A 0 0 0 0 B 0 46 0 0 0 124784 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sum4 S 762 7 4 0 4 112 763 624 5469 800004 100 A 0 0 0 0 B 0 46 0 0 0 124896 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sum6 S 763 7 4 0 4 115 764 624 5474 800004 100 A 0 0 0 0 B 0 46 0 0 0 125008 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sum7 S 764 7 4 0 4 118 765 624 5479 800004 100 A 0 0 0 0 B 0 46 0 0 0 125120 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sum8 S 765 7 4 0 4 121 766 624 5484 800004 100 A 0 0 0 0 B 0 46 0 0 0 125232 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 sum4wd S 766 7 4 0 4 124 767 624 5491 800004 100 A 0 0 0 0 B 0 46 0 0 0 125344 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 r1 S 767 7 4 0 4 127 768 624 5494 800004 100 A 0 0 0 0 B 0 46 0 0 0 125456 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 r2 S 768 7 4 0 4 130 769 624 5497 800004 100 A 0 0 0 0 B 0 46 0 0 0 125568 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 s2 S 769 7 4 0 4 133 770 624 5500 800004 100 A 0 0 0 0 B 0 46 0 0 0 125680 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 t3 S 770 7 4 0 4 136 771 624 5503 800004 100 A 0 0 0 0 B 0 46 0 0 0 125792 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 r1wd S 771 7 4 0 4 139 772 624 5508 800004 100 A 0 0 0 0 B 0 51 0 0 0 125904 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 x2 S 772 7 4 0 4 142 773 624 5511 800004 100 A 0 0 0 0 B 0 51 0 0 0 126624 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 expo S 773 7 4 0 4 145 776 624 5516 800004 100 A 0 0 0 0 B 0 51 0 0 0 127344 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 fac S 775 3 0 0 0 7 0 1 0 0 0 A 0 0 0 0 B 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 7 S 776 7 4 0 4 148 777 624 5520 800004 100 A 0 0 0 0 B 0 54 0 0 0 128064 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 cnusb S 777 7 4 0 4 151 778 624 5526 800004 100 A 0 0 0 0 B 0 54 0 0 0 128192 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 dnusb S 778 7 4 0 4 154 779 624 5532 800004 100 A 0 0 0 0 B 0 57 0 0 0 128320 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 alfanb S 779 7 4 0 4 157 780 624 5539 800004 100 A 0 0 0 0 B 0 57 0 0 0 128976 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 arotnb S 780 7 4 0 4 160 781 624 5546 800004 100 A 0 0 0 0 B 0 60 0 0 0 129632 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 anb S 781 7 4 0 4 163 782 624 5550 800004 100 A 0 0 0 0 B 0 60 0 0 0 130288 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 bnb S 782 7 4 0 4 166 783 624 5554 800004 100 A 0 0 0 0 B 0 60 0 0 0 130944 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 centnb S 783 7 4 0 4 169 784 624 5561 800004 100 A 0 0 0 0 B 0 60 0 0 0 131600 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 delnb S 784 7 4 0 4 172 1 624 5567 800004 100 A 0 0 0 0 B 0 60 0 0 0 132256 0 0 0 0 0 0 785 0 0 0 0 0 0 0 0 0 0 624 0 0 0 0 betanb S 785 11 0 0 4 9 1 624 5574 40800000 805000 A 0 0 0 0 B 0 63 0 0 0 132908 0 0 738 784 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 _scrtch$0 A 115 2 0 0 0 7 733 0 0 0 115 0 0 0 0 0 0 0 0 0 0 0 A 117 2 0 0 9 7 735 0 0 0 117 0 0 0 0 0 0 0 0 0 0 0 A 118 2 0 0 0 7 736 0 0 0 118 0 0 0 0 0 0 0 0 0 0 0 A 119 2 0 0 0 7 737 0 0 0 119 0 0 0 0 0 0 0 0 0 0 0 A 120 2 0 0 0 7 742 0 0 0 120 0 0 0 0 0 0 0 0 0 0 0 A 121 2 0 0 0 7 743 0 0 0 121 0 0 0 0 0 0 0 0 0 0 0 A 122 2 0 0 0 7 745 0 0 0 122 0 0 0 0 0 0 0 0 0 0 0 A 123 2 0 0 0 7 746 0 0 0 123 0 0 0 0 0 0 0 0 0 0 0 A 125 2 0 0 0 7 750 0 0 0 125 0 0 0 0 0 0 0 0 0 0 0 A 127 2 0 0 0 7 775 0 0 0 127 0 0 0 0 0 0 0 0 0 0 0 Z Z