ЧСВшный айти-наци ненавидит дворников и PHP-программистов

Наш сегодняшний герой считает себя истинной «илитой» и задвигает идеи, которыми восхищался бы сам дедушка Адольф. Только разделяет он людей не по расовым критериям, а по языку программирования.

Знакомьтесь: Серега Яковлев.

Его пиздострадания начинаются весьма безобидно: он ноет, что не любит здороваться с людьми.

Наверное я не люблю здороваться. Особенно каждый день. Особенно в офисе. Как это происходит обычно? Ты входишь в опенспейс, где сидит куча народа и говоришь всем привет. Что «привет», что «здарова» — одно и то же. Ну, все же понимают? «здарова» — пожелать человеку быть здоровым, «привет» -— подавать знак доброго отношения к кому-либо. Но я не хочу желать кому-то здоровья и не хочу подавать никакие знаки! Боже, что-за бред, я живу в сумасшедшем мире! Я вас всех не люблю. Нет. Ненавижу. С какого такого перепуга я вам должен желать здоровья? Но вообще-то так принято и наверное мне следует делать так и дальше.
[…]
Нет, я не хочу подавать таким людям никакие знаки. В конце концов, я не здороваюсь с дворником у офиса или не подаю знаки охраннику. Хотя быть может я просто не люблю здороваться. Особенно каждый день. И все это себе выдумал.

Ебанько, не хочешь здороваться – не здоровайся. В чем проблема? Нахуй это в сеть выставлять?

Только учитывай, что за такое высокомерие охранник ночью своим «инструментом» тебе чашку обработает, а уборщик ссаной тряпкой добавит.

Трудяги – это ж быдло, бля. Не ведают, что творят. Это ты у нас эталон высокой морали и сверхчеловека.

Дальше Сереженька перескакивает на трудности своего детства:

Когда-то в юношестве, мне было около 16 лет, я тайно мечтал что меня выкрадут террористы, посадят в подвал и заставят писать код. С тех пор прошло более 18 лет. Я до сих пор что-то пишу.

Вы представляете, насколько ебанутым был Сереженька?

Пока нормальные подростки мастурбировали в туалете на журнал Playboy, Сергей закрывался в туалете с портретом Саддама Хусейна и занимался самоудовлетворением, постанывая:

Хусейнчик! Забери меня с собой! Я буду кодить тебе за защекоины.

Дальше воспаленный мозг Сереженьки перескакивает на языки программирования.

Я по своему уважаю людей пишущих на COBOL или там Lisp например. Сам я пишу на Lisp, но делаю это отвратительно. Эти люди — инженеры, вложившие много лет в свое совершенствование. Люди которые делают поистине не тривиальные вещи и не самым простым способом. Есть категории языков, где программы просто не работают, если ты «пхпшник». Ричард Столман например это человек, с кем бы я хотел поздороваться. Ну или просто постоять рядом. С PHP программистом — нет. Обычно, в приличном обществе, я даже не говорю, что знаю PHP.

Прошло 18 лет со времен моих влажных фантазий… и я разочаровался в своей профессии. Программирование это не академический подход. Конечно это не математика и не алгоритмы. 10% население планеты пользуется соц сетью написанной на пхп. Сегодняшний программист это не инженер. Все мы с вами видели объявления типа «стать программистом за 14 дней» и пр. О чем там может быть речь? Дайте угадаю: JS или PHP. Современный программист это человек умеющий писать функции на 800 строк кода. Решающий задачи бизнеса быстро и не забивающий голову этими вашими потернами. Тот, кто сегодня быстрее всех даст бизнесу то что ему сегодня надо и есть настоящий программист.

Если ты являешься рычагом менеджера, его отверткой, позволяющей быстро подкручивать показатели и делать fast feature delivery — ты настоящий программист. Поздравляю. Ты вошел в IT. Однако все эти люди.. как бы правильнее выразиться. В общем я не об этом мечтал на заре своего становления, как специалиста.

В приличном обществе он не говорит, что знает PHP.

Ты с людьми, сука, не здороваешься. Какое, нахуй, приличное общество?

Кстати, сама страница нашего наци-выебщика просто пестрит аббревиатурой ненавистного ему языка. Даже в профиле указал сайт с PHP-фреймворком.

Фу, как теперь в приличном обществе показаться? Или это каминг-аут?

П.С. Блять, Сережа, а ты думаешь, что террористы заставили бы тебя писать на каком-то вычурном языке? Сидел бы, сайтики им клепал бы.

Мнение ебаной редакции
Есть два вида выебщиков: успешные и неудачники.

Успешные выебщики настолько хорошо пиздят, что со стороны они кажутся весьма успешными и востребованными специалистами. Только при более близком знакомстве все становится на свои места.

Неудачники – это «непризнанные гении». Их идеи ограничиваются такими взглядами:

Я не такой как все! И могу перевернуть всё IT… Только не здесь. И не сейчас. И вообще, это вы все виноваты. Вот были бы все такими, как я! Тогда да! Все бы поменялось!

По факту Сережа попытался выучить Lisp, рассчитывал на тысячи долларов за 5 минут кода и… И получил хуй. Пока PHP-шники гребут бабки на простых проектах, он сидит с никому не нужными знаниями и за гроши ебет себе мозг сложными задачами.

Но мы же не злые. Пожелаем же Сереже, чтобы его надежды все же сбылись!

По наводке Анонимуса
По материалам Facebook

239 Комментариев

    • xzxDRUPALISTxzx:

      Вход в айти всегда рядом!

      1

      0
      • худой конец:

        И он всегда широкий… Даже таким как я быть не нужно…

        5

        0
        • Пиздюли Driven Development:

          Говорить, что программирование это не алгоритмы и не математика — это все равно, что верить, что еда сама появляется в холодильнике. В чем — то Сереза прав — уметь решать задачи бизнеса надо, и платят именно за это. Однако проповедуют как правило или то, что только что услышали, или то, что не совсем поняли. Поздравим Сережу, и прадложим писать поменьше хуйни, и побольше кода.

          4

          2
          • index.php:

            Интересно, почему чувак сам сидит в той конторе где все такие хуевие. Может его и вправду похитил саддам хуссейн и заставляет сайтики на вордпрессе делать?

            1

            0
            • Пиздюли Driven Development:

              Его ошибка не только в этом.
              Срать в Интернет можно и нужно, но для этого есть только одно приличное место — ebanoe.it

              2

              0
      • Steve Blowjobs:

        Але, жук, я там материал кинул. Или снова не будешь публиковать?

        5

        0
      • Слава роботам:

        Два входа, перший в сраку другий в рот! Збудуем прогрессивную западную краину! Слава Украине! Роботам слава!

        7

        8
        • Гироскутер мне в бухту:

          Вайти, даже из таких гомиков как ты, сделает настоящих людей

          6

          1
          • Слава роботам:

            Я уже вайти вошел прям как бойфренд в мою сраку.

            3

            3
          • Слава роботам:

            Я не гомик и не гномик, я перший в Украине в сраку гей!

            3

            0
          • pirat:

            всем привет, я пират

            3

            0
        • Пиздюли Driven Development:

          Дурачёк. Только о хуях и думаешь.

          1

          0
    • Слава роботам:

      Перший в сраку!

      8

      11
      • $PHPGOD:

        За PHP и двор стреляю в упор!

        24

        2
        • Слава роботам:

          Ебись в сраку не зрадь Украину!

          6

          16
          • Хач:

            Похоже что для северного сияния только ебля в сракотан имеет значение. Впрочем как и для любого кацапа.

            11

            2
            • Слава роботам:

              Совкодрочер, я за то чтоб жить по эвропейски а не как вы хачи-совкодрочеры! Кто это северное сияние вообще? Что за кацапская блядина? Докажи что козак, дай хлопцу в пердак!

              4

              5
      • Тестовый QA:

        Обратите внимание, что на фотографии Сергея Яковлева фразу про PHP-унтерменшей говорит правая ягодица.

        3

        0
        • Слава роботам:

          Межягодичное отверстие говорит ещё лучше. Гей хлопцы це Эвропа!

          4

          1
    • Am Dm:

      Вообще это всё уже сказано 100500 раз.
      Например :
      https://youtu.be/sIRTrsabL_M

      По сабжу. Хочешь работать с коллайдером — или работать с коллайдером. Там будет тебе великое и прогрессивное. Не можешь — сиди клепай формы. Или запили на сраном ПХП ещё одну хрень, которой начнут пользоваться 10% мира, а в освободившееся время страдай чем хочешь… Тоже нет? Сиди клепай формы ©

      По статье. Не вышло раскрутить «сенсацию», да и тема не ахти

      31

      0
      • пейсатель инструкций:

        песня на все века!!!

        3

        1
    • Bugger Hukker Crew:

      какие же убожества эти дегенераты с разрисованными конечностями. попадешь в места не столь отдаленные — за эти рисунки спросят

      13

      34
      • пузіротшампуся:

        очень пичальна когда долбоебы начинают всех мерить своим аршином. особо пичально когда они при этом мыслят понятиями сами являясь опущенными по сути.

        33

        9
        • Bugger Hukker Crew:

          первая взорванная пердачина разрисованого мудака детектед, чтоб тебе паяльником все тело шрамами разрисовали

          14

          27
          • пузіротшампуся:

            с возрастом до маленького мальчика доходит что Вселенная очень большая, в ней очень много людей, разных. Кто-то любит клеить самолетики, кто-то читать книги, кто-то боксер а кто то гей. Потом до маленького мальчика начинает доходить что впринципе он (как и все остальные) умрет, а значит самое главное это достичь того состояния, который называется счастьем и не мешать достигать его другим (если конечно их счастье не идет в разрез с УК). После этого мальчик считается взрослым мужчиной. Не все прошли этот долгий и тернистый путь еще. И не все пройдут.

            63

            8
            • Bugger Hukker Crew:

              меня твои истории просто доебали уже, я уже не могу их слушать блядь… одна история охуительней другой просто блядь… про самолетики блядь, про какуе-то хуйню.. мальчика… че ты несешь-то? достичь состояния, взрослый мужчина… чего блядь, про что несет…

              14

              42
              • пузіротшампуся:

                а, прости, я немножко перепутал, щас будет именно тебе: свисни в хуй мудило дырявое, мамку твою ебал. Так лучше?

                60

                3
                • White Pawel:

                  С каждой попыткой показаться умным все только усугубляется))

                  8

                  1
                  • пузіротшампуся:

                    потому что нужно врот ебать все попытки казаться умным и общественное мнение вкупе,

                    10

                    4
                  • Bugger Hukker Crew:

                    размеры унылых как сам комментариев компенсирует размер ума =)

                    4

                    26
      • ∃!:

        Так можно о чем угодно сказать и доебаться. Он к тому же айтишник, задрот и ублюдок — в общем всё хуйня.

        3

        0
        • Bugger Hukker Crew:

          да однохуйственно. кому-то нравится шкуру дырявить — пожалуйства. но мне кажется, надо продумывать рисунки, чтобы они гармонировали, а то что здесь — на мой взгляд крайне убого. да и опять же — от тюрьмы никто не застрахован. за такую казалось бы мелочь можно получить серьезные неприятности.

          5

          7
          • ∃!:

            Хз о чем речь, заканчивай малварой страдать и будешь застрахован. Хотя детство это такое, все там были.

            Насчёт татух тебе то че, ему ж сидеть или что там, быть донором и прочее. Хуй с ним.

            4

            1
          • /dev/null:

            Скорее дело не в татухах, а в том, что они смотрятся убого на его хиленьких задротских рученках.

            25

            0
          • блябуду не смузихлёб:

            макака ты ебаная, что могут спросить за черные татухи из силуетов и абстракций?
            там что ли ебать что то имеющее отношение к ауе нарисовано?
            я тебя дуру в рот ебал, что ты блядь выдумываешь колхозник

            14

            4
            • Bugger Hukker Crew:

              по меркам уголовников наколки вместо 1024 слов за тебя все сами расскажут. это все ровно linkedin prison edition. какие-либо рисунки должны что-то ассоциировать. «просто прикольно» не прокатит.

              5

              4
              • пузіротшампуся:

                ты наверное русачок, это у них там можно низачто присесть. и судя по твоему бомбалейло тибе наверное проткнули тухлую вену за звезды на ключицах

                4

                7
                • Bugger Hukker Crew:

                  хорошая фантазия. напиши книгу. я обязательно куплю. когда буду по большому ходить обязательно буду пару страниц читать, и использовать по назначению.

                  7

                  0
                • Bugger Hukker Crew:

                  кстати «русачок» — это аверское хуйло Вячеслав «_svv_» Русаков которое сначала на васмпе под своих косил, затем слился к колбасочнику Данилову в доктор веб веслать, а потом его спермский в свою контору переманил. https://twitter.com/swwwolf где-то еще есть вк но нахуй мне эта грязь. но скорее всего, из здешних мало кто знает что это персонаж

                  3

                  5
                  • ∃!:

                    Как минимум давно в «правовом поле». Деньги те же (в линкедине он вроде даже в пиджачке, хотя это ж рашка, мб и нет там денег), времени в разы больше, рисков никаких. Вот и размышляй.

                    0

                    0
                    • Bugger Hukker Crew:

                      русачок удалил страницу на твиттере бугага, вроде врослый дядька а сливается как дите нахуй…. да видать стыдно за то что ссучился под аверов

                      1

                      2
                    • ∃!:

                      Не ясно ток, чего тебе так печет. Не выходит слиться? Снимай уж шапку, удаляй скаченные сплоеты да вперед по собесам. Давно позакрывались/попереименовывались наркопритоны вроде краклабов, васмов, чихов и прочих не пережив современных скаммерских реалий. Пробуждайся в общем.

                      0

                      0
          • Am Dm:

            Не парься.
            1. Понятия — это не закон, а правила игры. Причём круче всех себя чухают читеры и багоюзеры.
            2. 2018 год. Понятий больше НЕТ © Ещё с девяностых, учи матчасть и не ведись

            12

            0
      • Bugger Hukker Crew:

        спасибо, интересная статистика. значит в среде современных кододрочеров украшать тело краской нынче модно. можно поинтересоваться, для чего? какой от этого профит? тату железного человека на все тельце по прежнему на спасет от попадания пули в череп

        3

        9
        • блябуду не смузихлёб:

          ебать, я тупею просто с каждого твоего сообщения.
          тебя что ли в детстве роняли , от того ты такой наивный даун?

          7

          3
          • Bugger Hukker Crew:

            больше агра зайка

            3

            2
            • Слава роботам:

              Зайка ебет меня в сраку! А твой зайка хуй знает где. Гей хлопцы це Эвропа!

              4

              1
    • Иосиф Бродский:

      Кровь моя холодна.
      Холод её лютей
      Реки, промёрзшей до дна.
      Я не люблю людей.

      1

      1
      • Ебаное образовательное:

        Спасыбо, учытел!

        2

        0
  1. Бородатый админ:

    Первый!

    0

    15
    • Кент:

      Та хуй сосали комбайнеры

      13

      0
      • Слава роботам:

        А я бы пососать хуйца не отказался. Гей хлопцы це Эвропа!

        3

        26
        • Пассивненький:

          Тебе большие хуйцы не по вкусу

          1

          1
          • Слава роботам:

            Я люблю любые хуйцы и большие и маленькие. И в рот и в сраку и даже 2 вместе, но кацапские тильки в сраку!

            3

            0
    • Слава роботам:

      Другий в сраку, вчи мову!

      5

      5
    • index.php:

      Ебать ти лох!

      0

      0
  2. /dev/null:

    Феерический долбаеб.

    34

    0
    • Serghei Iakovlev from Phalcon Framework Team:

      Попиарьте меня, говноеды!

      11

      8
      • Слава роботам:

        А ты кто? Украинский гей или кацапский пидор?

        5

        12
        • Пассивненький:

          Тебе явно не хватает толерантности

          1

          5
          • Виктор Петрович:

            Люська! Ты как от батареи отстегнулась?

            2

            0
          • Слава роботам:

            Я кацапов не люблю! А гей это по эвропейски! Гей хлопцы це Эвропа! Я толерантен как боженька.

            2

            1
    • вялый комментатор:

      чего можно было ожидать от человека, который работает в компании с название «пидофилер»

      38

      0
    • Наполеон:

      довбоёб

      1

      2
  3. Кент:

    Так-то пишущий на лиспе имеет полное право считать пехепешников долбоебами

    12

    14
    • Слава роботам:

      Если пхпшник дает в сраку значит он справжний эвропеец! Також и для других программных мов. А если в сраку не дает то вин сраное кацапское хуйло! Гей хлопцы, це Эвропа!

      5

      28
    • Ебаный читатель:

      Любой может считать пхп-шников долбоёбами.

      11

      10
    • пейсатель инструкций:

      любой пишущий на бумаге может считать человеков долбоебами, имеет объективное право.
      ты тоже долбоеб, априори.
      использование языка != умение им пользоваться правильно и красиво (хрюша подтвердит)
      задачи бизнеса и условия в наших реалиях != годные условия для отличной реализации

      15

      3
      • Кент:

        Я даже не хочу пытаться представить себе такой бизнес, у которого задачи требуют для своего решения пхп. Разве что сайт-визитка для Ассоциации дурдомов Украины

        3

        13
        • пузіротшампуся:

          очень много внутренних ресурсов пишутся на похапе. жиру и вики купить можно, а сервлеты или вордпресс или избыточны или недостаточны.

          0

          3
        • Пхп задрот:

          Ты застрял далеко в 2000-х. Сейчас пхп уже настолько быстро развивается, что бывшие пхп макаки могут не въехать. Учи тренды кароч перед тем как писать говновысер

          12

          3
    • бабка-маланка:

      На лишпе нишмагла .. моцк патек .. а пехапе — луччий язык навика!

      2

      3
    • Dario:

      Пусть сначала напишут на (((ЛИШПЕ))) Википедию и Фейсбук.

      1

      1
    • Dario:

      Лсиперы — контрамоты. Они движутся во времени назад. Как было на самом деле: протоцепепе — ЛИСП 50-80 гг. C++ 80-90 гг. Haskell — новая версия C++ 1990-2000 гг. С точки зрения лиспопетушка сначала был Хаскель, в следующей версии он деградировал до цепепе, а в лиспопетушином будущем цепепе деградирует до лиспа.

      А я все ломал голову, как человек может так ненавидеть будущее, так привязаться к прошлому, что пишет на лиспе? Но для лиспопетушка-контрамота лисп — это и есть будущее. А дальше ВВ2, индустриальная контрреволюция, религиозные войны, рабовладельческий строй, отрастание хвостов и подъем на деревья. Скай из зе лимит!

      Современный человек может даже восхищаться лиспом, как восхищается пирамидами Гизы — романтика веков. Но строить бессмысленные пирамиды блоков сейчас дураков нет. Когда белый программист слез с лиспа и перешел на алгол в поисках новых горизонтов, лисперы были теми ретроградами и консерваторами, что остались сидеть на скобках, как обезьяны. Поэтому менеджер Гугля был прав, когда выеб очередную лиспомразь, пытающуюся протолкнуть свое говно.

      3

      3
      • пейсатель инструкций:

        еба, вполне логично что в гуманитарной энциклопедии для физруков 5-10 классов ты нашел «контрамотов» но не «лисп», википедию в своей колхозной библиотеке спроси, быдло.

        по хронологии: 1958 -Lisp, 1972 -C
        и не ломай голову, у тебя и так по видимому несколько проломов было от монтировки

        «Но строить бессмысленные пирамиды блоков сейчас дураков нет» — просто шедевр об архитектуре в целом и об айти в частности)

        Спроси у Менеджера, раз уж такое благоговение у тебя перед ними, ну хотя бы из сильпо(другие врятли с тобой согласятся общаться) — простоит ли хрущевка в которой ты живешь хоть 200 лет без кап. ремонта

        2

        1
    • гей_порно:

      Я наоборот респектую пехопешникам. Многие годы решать унылые однотипные изичевые проблемы не каждому дано.

      0

      1
  4. Сертифицированный эксперт в психологии:

    Человек 18 лет в IT (по его словам) и возраст уже за 30, а до сих думает категориями «Это говно, а это збс»

    У меня есть одна знакомая, которая каждый день в Фейсбук может писать «что за ебланы люди, которые …[вставить что угодно]». Тоже далеко за 30, а семьи или парня нет, и меня даже не удивляет почему

    61

    2
    • /dev/null:

      Это такая порода людей. Инфантильных и асоциальных. Они навеки застряли в подростковом возрасте.
      >>У меня есть одна знакомая, которая каждый день в Фейсбук может писать
      Ололо, возможно мы об одном человеке говорим. Тоже есть такая бабенка, ни мужа, ни детей, ни парня. Постоянно ноет и поливает гавном все и всех, переодически разбавляя это глубоко философскими высерами на тему «жизнь тлен и боль».

      36

      5
      • пузіротшампуся:

        нет, это называется интроверт. в силу ряда обстоятельств индивид мало общается с людьми и да, он может быть отличным профи но крайне сложной личностью, тк он варится исключительно сам в себе. Ему не с кем себя сравнивать, да и не хочет он этого делать. да и уважать этих людей стоит не за их мнение о тебе а за то, эффективен он как тиммембер или нет, а в десны лупиться никто ни с кем не обязан.

        8

        17
        • /dev/null:

          Не умеешь нормально общаться и вести себя уебуй нахуй на фриланс.

          11

          2
          • пузіротшампуся:

            тут вот такой тонкий баланс между тем готов ли коллектив принимать человека с его тараканами из за его продуктивности-скиллзов или нет. В целом нормальная практика врот ебать посторонних советчиков и решать в узком семейном кругу кто кому как.

            4

            4
            • Слава роботам:

              Вот тут я с тобой согласен, в рот вполне нормально. Но нужно ещё и в сраку! Це как на западе. Збудуем прогрессивную краину.

              2

              2
      • Тупой педалер (конспиролог):

        Познакомь ее с каким — нибудь сениор смузи ангуляр архитект, только чтобы не пидором был — и через недельку ебли успокоится.

        7

        0
        • пузіротшампуся:

          ыыы, а на пидора пусть предварительно сам проверит

          3

          0
          • Тупой педалер (конспиролог):

            так это просто проверяется — достаточно показать листинг на руби и спросить, что там написано

            11

            1
          • Слава роботам:

            Шо тут проверять? Пидары на кацапии все. У нас в краине одни благородные геи! Гей хлопцы це Эвропа!

            5

            4
  5. православный:

    выебщики существуют не только в айти. и как герой статьи тоже хотят, чтобы жили по их понятиям

    4

    1
  6. Сергей Яковлев:

    Удолиии!1111

    16

    2
  7. itPutin:

    Воу, нихуя себе PHP не люди?! Да они сцуко звери дикие! Вы вообще пробовали на пыхе писать? Я не профи но имею сайт и магазин где требуется и css и пыха и js — это ебаная боль господа! Человек переживший становление пыхой — однозначно теряет в себе человеческие качества… Короче Серега, скажи где с тобой зигонуть под луной. Руки жать не будем, мыж не пидарасы.

    35

    2
    • Нежнейший:

      По-разному можно писать на пыхе… тем более с помощью фреймворков и грамотного подхода.

      8

      2
    • Слава роботам:

      Вот из-за таких кацапских гомофобов и нет в Украине нихуя, ни бабла, ни незалежности, ни секс меньшин… Так и помрёшь в сраку целкой.

      5

      26
      • itPutin:

        Эээээ, ну ок. 🙂

        9

        1
      • 0o8u74ehu4:

        >>
        Вот из-за таких кацапских гомофобов и нет в Украине нихуя

        а что тебе до Украины. ты ж за объединенный штат Америка распинался вроде как. и зарплатой хвастался шестизначной

        2

        1
        • Слава роботам:

          А номерному кацапету какое дело до моей ридной краины?

          2

          0
    • Тут_все_насрем:

      Веб-макаки ёбаные, какие вы в жопу программисты. Вы хуже этих пидарасов. Адназначно.

      2

      1
  8. Сеньор эникейщик:

    Набить тату на хинди — это как сделать каминг-аут.

    22

    1
    • Слава роботам:

      Чтоб сделать каминг-аут нужно дать в сраку, потом справжним эвропейцем в Эвропу ихати. Це наш шлях в Эвропу! Ну или хер в рот хотяб возьми.

      6

      10
      • Сеньор эникейщик:

        У него в фейсбуке написано в скобочках (Klay), что звучит как глина (Clay), то есть он месит глину или ему месят, потому и кожа красная, от проникновения хуя внутрь повышается артериальное давление и лопаются капилляры на лице.

        18

        1
  9. Нежнейший:

    Отвратительный еблан. Тут скорее попытка быть эдаким нонконформистом, персонажем Ницше, ебучим сверхчеловеком. А на деле просто обычный чсвшный ебанат которого где-то ткнули мордой за то что он хам и обезьяна. Нет желания жить с в социуме, уёбуй из офиса и работай удаленно или блядь не нужен никому? Был у меня подобный знакомый, рассуждал высокопарно про лисп и ИИ а на деле сайт на вордпрессе нормально захуярить не мог и получалось совершенно по-индусски, мотивируя это тем, что вот де его не ценят и не дают разрабатывать ИИ. Ну хуй бы сним, да вот только гитхаб блядь почти пустой, висело на нем пара начатых проектов на питоне, именно начатых и все.
    Улыбайся чаще, приветствуй, будь честен, тактичен, дружелюбен и вежлив, не выебуйся, поверь проблемы есть у всех и нехуй тащить их в офис и грузить своим кислым ебальником соседей по веслу, и если ты сука грузишь всех своими проблемами ты сука не нонкомформист а обыкновенная тупая обезьяна рефлексируящая на любые раздражители и не умеющая работать с собственными эмоциями.

    74

    0
    • /dev/null:

      >> Был у меня подобный знакомый, рассуждал высокопарно про лисп и ИИ а на деле сайт на вордпрессе нормально захуярить не мог
      Мне кажется такие есть в каждой конторе, постоянно рассуждают о новых технологиях и о трушности программистов, а сами круд нормальном написать не могут. Мне интересно, а если чувак такой неебаться в рот гений, почему он греб в каких-то ноунейм шарагах все время, а не попиздовал в Эльфию и не сделал там блестящую карьеру. Комментаторы под его постом кстати ничем лучше.

      24

      0
      • Зигмунд Фройд:

        Комментаторы под его постом кстати ничем лучше.

        Те кто ниже и выше — пидарасы.

        5

        3
        • Тут_все_насрем:

          Все веб-макаки много хуже пидарасов. Да и ты такой же.

          1

          0
      • Логика:

        Ну так микроядро вообще практически никому не удавалось написать нормально. Разве что в QNX.

        0

        0
    • Сеньор эникейщик:

      >пара начатых проектов на питоне

      это с сексуальным подтекстом написано?

      4

      0
      • Тут_все_насрем:

        Да, блядь. Бьорн — Могучая Рука, придушил змея 🙂 🙂 🙂

        0

        0
    • Анальный Жвалокрыл:

      а все потому что ты нихуя не умеешь в читать и понимать прочитанное.

      возбудился на два три знакомых слова, понеслось говно в каменты.

      не переживай, с возрастом и пиздюлями это пройдет.

      2

      0
      • Нежнейший:

        А что понимать то лол)) чел мудень и точка. Синдром поиска особого смысла что ль? Так с возврастом это пройдет)

        3

        0
  10. Бородатый админ:

    Не понимаю почему так гонят на PHP, это же не 1С, вполне нормальный язык, есть даже ООП. У меня друг сидя дома на PHP пишет движки для сайтов, в месяц работая от силы дней 10-12 рубит 2К бакинских не напрягаясь, при этом живя в провинциальном городке, хата своя, на еду минимум, только на шлюх в месяц уходит баксов 500, а так живет и в ус не дует.

    23

    9
    • накладная борода еникейщика:

      не пизди

      20

      4
    • Логика:

      >при этом живя в провинциальном городке
      Ну ты понел.

      2

      0
  11. Членомес:

    на зеленом слонике написано «PHP frameworks gay»?!
    тогда это все обьясняет)

    27

    0
    • Выкуси:

      А еще работал в компании Педофиллер.

      7

      0
      • Собаколоид:

        Туда гребцов по размеру ебаного ЧСВ поди набирают.

        2

        0
  12. Семен Семеныч угощает голубцами с говном:

    Так и не понял — у чудака есть какой-то вариант решения «проблемы» (если он считает, что существует какая-то проблема)? Ну там, — спалить всех ПХПшиков, например.

    5

    0
  13. Гироспиннер:

    Статью не читал, но про Гитлера вы мне тут не смейте бля хуйню писать, найду каждого отхуярю зигой по лицу.

    7

    3
    • Am Dm:

      Начинай искать прямо сейчас

      1

      0
    • Dario:

      Вам в «Правый сектор», бороться с антифашистами. А с дивана легко топить за расу и за что угодно.

      2

      1
      • пузіротшампуся:

        пс борется с автомойщиками отжимающими у нежных бородачей айфоны и машинки на покатушки, не забывай это

        0

        1
    • Слава роботам:

      Отхуярь меня хуем в сраку! По эвропейски!

      3

      0
  14. Гироспиннер:

    Дочитал статью. Парняга нормально всё расписал, согласен с ним на 100%, а вот комментарии редакции написаны каким-то хуесосом дауном.

    11

    30
    • Выкуси:

      Чего нормального-то. Нытик хочет наебать систему и стать жрецом ЭВМ в век софтового ширпотреба, и чтоб вайтишники не подсидели. Кризис среднего возраста, как он есть: потратил полжизни и полздоровья на область с околонулевым порогом вхождения, и вдруг увидел, что весь его типа опыт нихера не стоит и любой щенок сделает быстрее и дешевле.

      20

      0
      • пузіротшампуся:

        это ты многим решил хуйцом по губам провести, щас полыхнет.

        10

        1
        • Слава роботам:

          По губам кайфа нет никакого, надо в рот брать. Це как в Амстердаме!

          4

          0
  15. Steve Blowjobs:

    Не понимаю жополболь «труевых» программистов. Работаю с целым офисом таких: JS-говно, php-говно, а вот [technologyname] — заебись. Ебана в рот, PHP разрабатывался изначально как html препроцессор, чтобы превратить унылые сайты-документы в динамические сайты. Язык рос вместе с прогрессом веба и позволяет очень быстро решать бизнес проблемы в www. На это языке до сих пор более половины сайтов всего интернета и сделаны как фреймворки, так и полностью готовые решения для блогов, e-commerce, classified ads, википедий, форумов и всего-всего-всего. Именно на LAMP можно решить большинство задач для сервисов в интернете охуенно дешево и охуенно быстро. Есть и обратная сторона — низкий порог входа, мультипарадигмальность, слабая неявная типизаци приводят говнокоду и плохой тестируемости, ошибок, спрятанных глубоко в коде и ожидающих своего часа. Но это справедливая цена за полезность и простоту, низкую цену и высокую поддерживаемость.

    40

    2
    • Зигмунд Фройд:

      Есть и обратная сторона — .., мультипарадигмальность

      Вы так говорите, будто это что-то плохое.

      4

      1
      • Анальный Жвалокрыл:

        ненене то он просто слово новое в интернете нашел, и вот теперь играется.

        5

        0
        • Steve Blowjobs:

          За щекой у тебя играюсь

          3

          0
          • Слава роботам:

            Пиздишь, у тебя не стоит, ты как и я в анал играешь!

            3

            0
    • Нежнейший:

      По поводу порога входа он разный. Пых он ведь такой, что на нем можно и в солиды-шмолиды и т.д а можно и в одном файле наебенить сайт. К примеру исходный код битрикса и исходный код грамотной, современной CRM (который я видел относительно недавно) это блядь столь разные вещи что складывается ощущение что разрабатывались эти проекты на разных ЯП со схожим синтаксисом.

      8

      0
    • Выкуси:

      А чего непонятного-то. Просто у пыхи с жс есть границы применимости, за которыми стоимость разработки (поддержки, оптимизации, содержания серверов) взлетает в стратосферу и даже веб-сервисы на крестах кажутся лучшим вариантом. Чем опытнее программист, тем больше вроятность, что все порученные ему задачи за эти границы выходят и работа с неудобным инструментом превращается в восемь часов боли с перерывом на обед. Программист начинает ворчать, а толпа вайтишников ему подражает и начинает топить против «говноязыков».

      7

      0
      • Зигмунд Фройд:

        Для пыхи можно нанять кодеманкиз, для С++ это гораздо сложнее…

        3

        0
        • Выкуси:

          Рынок в этом сам себя наебал 🙂 Если не вдаваться в крайности, какой-нибудь питонист обойдется не сильно дороже похаписта или жеэсера, но при этом никогда не упрется в ебанутые проблемы типа необходимости подъема целого кластера на один сраный недожаббер (так обстоят дела с рокетчатом под жс, ибо последний не умеет в shared state многопоточность), или написания костылей в обход всех абстракций (таким приходилось заниматься в мадженте под пыху, поскольку одна загрузка фреймворка доходила до полсекунды). Собсна я всю свою типа карьеру искал способ писать софт быстро и надежно, но видимо ума не хватает — все попытки заканчивались позорно (а начиналось всё примерно с такого же недопыхофреймворка как у трололо несколькими постами ниже).

          3

          0
      • Смех:

        Просто толпа сраных веб-макак осилила только js/php и тащит это говно туда, где оно приносит только боль и страдания.
        А когда нормальный человек начинает задавать вопросы вроде «позвольте, какой в пизду проект на 20000 строк без строгой типизации?» или «какой вам нахуй высоконагруженный проект на скриптовом языке?» начинают орать «ололо! застрял в 20 веке! Ретроград! Функциональные языки для маргиналов! Жаба сдохла ещё в 2005-м!»

        5

        2
        • пейсатель инструкций:

          а еще более «нормальный человек» начинает задавать вопросы вроде «позвольте, какой впизду проект на 20000 строк для сайта визитки?» или «какой вам нахуй язык поможет, если тимлиду 21?»

          1

          0
  16. sb:

    А можно тоже самое, но еще и про девопсов?

    13

    0
    • Тут_все_насрем:

      Девопс — хуже пхпшника. Пхпшник хуже крестоёба. А крестоёб хуже пидараса. Усёк?

      1

      0
  17. ☭ ☭ ☭ Северное Сияние ☭ ☭ ☭:

    в целом он прав
    невозможно быть ХОРОШИМ программистом и быть частью «бизнеса», т.е. делать все быстро, на коленке, абы как, главное успеть продать
    програмирование — это тяжелый длительный труд
    все, что пишется на пхп для бизнеса, конечно, говно, гной и блевотина

    14

    57
    • /dev/null:

      Ты отбитый шоле? Нахуй твое кододрочерство надо кроме как не для бизнеса? Будешь блять фреймворки пилить для гитхаба вечно?

      23

      3
      • Слава роботам:

        а хули, вон один кацап написал Болдженос, почему бы этому не написать новый ОРМ?

        6

        3
        • Слава роботам:

          Тот кацапет в сраку любит ебстись а этот сраный гомофоб!

          3

          3
      • Смех:

        Есть ещё небольшая ниша научного софта. Там как-то пых-пых и прочие хипстерские ноды не жалуют.

        1

        1
    • Хз:

      открою тайну — не существует хорошего/красивого кода — это как коммунизм, который является утопией, то есть не существует

      2

      3
      • пейсатель инструкций:

        сукааа, даже блять гвозди есть хорошие и хуевые, бумага которой ты подтираешь полушария контейнера для мозга и та есть всех сортов и качеств.

        3

        0
      • Бывший тостер, теперь гребец:

        Хороший код, на мой вкус, это код который мне понятен, решает задачу и ведет себя предсказуемо, с паттернами или без — пофиг. Хуй знает почему, но некоторые пишут так что мозг сломаешь пока поймешь что эта хуйня делает.

        4

        0
  18. Тупой педалер (конспиролог):

    Это Серегу на прошлой работе Артемий покусал и всю руку шариковой ручкой обрисовал.

    Хотя может быть это просто новый парень Шизожука?

    5

    1
  19. Мнение ебанной редакции:

    Признаком проффесиональной ограничености, отвуствием опыта, низким ЧСВ — являются лозунги «PHP хуйня, а я вот вырвался в люди».
    Умные ребята уже давно мыслят методологией. А выебщики по прежнему меряются реализацией.

    6

    4
    • Dario:

      Профессионал знает, что каждый инструмент хорош для своей области. У PHP есть своя ниша. Сайт для заказа пиццы написать на Spring можно. Но не нужно.

      3

      2
  20. Нанюхавшийся жизни алгольщик:

    Серёжка просто не встретил ещё своего алгольщика на белом PC, нужно просто не терять надежду и чаще встречаться с опытными людьми на blue night coding вечеринках, которые уже понюхали жизнь, понюхали код, которые представляются при встрече в первую очередь инженерами, а -программистами — во вторую.
    Я сам долго искал своих Серёжек. Но когда нашел, мы сразу такие проекты ебашить начали, что любое гейпорно отдыхает!

    4

    1
    • пейсатель инструкций:

      да, такой пиздец пошел, что уже и стыдно представляться программистом

      1

      0
  21. гость:

    Опа! Знакомые лица на этом сайте зачастили появляться — если кто-то не в курче, этот чувак PHP-шник из конторы PDFfiller.

    6

    0
  22. Кодер:

    Видел этого долбоеба на утюбе, пиздел доклад для сотрудников Пидофилера, основной посыл что нужно в каждый проект пихать побольше всяких технологий, типа тут у нас ПХП, давайте еще добавим Питончек, потом еще хуйню на Перле, на Го и тд.

    А то что потом будет тяжело поддерживать весь этот зоопарк это похуй, зато весело, в общем очень упоротый тип.

    19

    0
    • /dev/null:

      >>нужно в каждый проект пихать побольше всяких технологий
      Таким руки ломать надо.

      24

      1
      • пузіротшампуся:

        может у чувачеллы кредит на хату на пару лет и нужна гарантия что не уволят тк кроме него никто проект непотянет?

        6

        1
        • Серега Яковлев:

          Комуналка и ссудили сами себя не оплатят…

          2

          0
  23. error_panic:

    https://github.com/phalcon/cphalcon/commits?author=sergeyklay
    Почему он такой долбоёб?)!

    3

    1
  24. Скромное обаяние буржуазии:

    ВНИМАНИЕ ВНИМАНИЕ, ТОЛЬКО СЕГОДНЯ, СПЕЦИАЛЬНО ДЛЯ ВСЕХ, PHP НА ФОРТРАНЕ (СПОНСОР ПОСТА,- ОФТАЛЬМОЛОГИЧЕСКАЯ КЛИНИКА ИМ ФИЛАТОВА)
    C######################################################################C
    SUBROUTINE VELOS(K,LP,LL,NFDAT)
    INCLUDE ‘PAR.INC’
    INCLUDE ‘VEL.INC’
    DIMENSION FT(10),FK(L),FU(N2,M2),FV(N2,M2),LP(N2,M2)
    CHARACTER FA*35,F0*4,FT*1,FK*4

    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/

    DATA FK/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/

    c ’01’,’02’,’03’,’04’,’05’,’06’,’07’,’08’,’09’,’10’,
    c & ’11’,’12’,’13’,’14’,’15’,’16’,’17’,’18’,’19’,’20’,’21’,’22’,
    c & ’23’,’24’,’25’,’26’,’27’,’28’,’29’,’30’,’31’,’32’,’33’,’34’,’35’,
    c & ’36’,’37’,’38’,’39’,’40’,’41’,’42’,’43’,’44’,’45’/

    NDAY=(LL-LIN/2)/LDAY
    C IF (NDAY.EQ.0) GO TO 1111
    ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’U V’,NDAY

    DO 1 J=2,M
    DO 1 I=2,N
    FU(I,J) = 1.E20
    FV(I,J) = 1.E20
    IF (K.LE.LP(I,J)) THEN
    FU(I,J) = (U(I+1,J,K) + U(I,J,K))*0.5
    FV(I,J) = (V(I,J,K) + V(I,J-1,K))*0.5
    END IF
    1 CONTINUE
    ITIS = NDAY/1000
    II = NDAY-ITIS*1000

    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)

    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10

    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)

    FA(1:20)=’D:\MOD-05KM\RS\UV\UV’
    FA(21:20+4)=F0
    FA(25:24+2)=FK(K)
    FA(27:26+4)=’.DAT’
    OPEN(UNIT=NFDAT,FILE=FA)
    c
    pi=3.1415926
    DX=11./60.
    DY=8./60.
    DXi=dx/3.
    DYi=dy/3.
    COEF=10.
    c
    xx= 27.41-DXi
    do 88 i=1,n2
    xx= xx+DXi
    yy= 40.86-DYi
    do 88 j=1,m2
    yy= yy+ DYi
    if (FU(i,j).gt.500.) go to 88
    if (FU(i,j).eq.0.) go to 88
    if (FV(i,j).gt.500.) go to 88
    if (FV(i,j).eq.0.) go to 88
    c
    uv=FU(i,j)**2 + FV(i,j)**2
    uv=sqrt(uv)
    if (abs(FU(i,j)).le.0.001) go to 85
    uu=FU(i,j)
    vv=FV(i,j)
    c
    bet=abs(vv/uu)
    gam=atan(bet)
    gam=gam*180./pi
    if (vv.gt.0..and.uu.lt.0.) gam=180. — gam
    if (vv.lt.0..and.uu.gt.0.) gam=360. — gam
    if (vv.lt.0..and.uu.lt.0.) gam=180. + gam
    c
    go to 86
    85 continue
    c
    if (FV(i,j).gt.0.) gam=90.
    if (FV(i,j).lt.0.) gam=270.
    if (FV(i,j).eq.0.) gam=0.
    c
    86 continue
    write(NFDAT,999)xx,yy,uv,gam
    88 CONTINUE
    c
    XX=29.50
    YY=47.13
    UV=COEF
    GAM=0.
    write(NFDAT,999)xx,yy,uv,gam
    c
    999 format(f5.2,1x,f5.2,1x,f10.2,1x,f10.2)
    c
    1111 CONTINUE
    CLOSE(NFDAT)
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE SLGRD(NFGRD,LP,LL)
    INCLUDE ‘PAR.INC’
    C
    DOUBLE PRECISION SL,SL0,SL00
    C
    COMMON/SL/SL(N2,M2),SL0(N2,M2),SL00(N2,M2),SLD(N2,M2),SLA(N2,M2)
    C
    DIMENSION PS(N2,M2),PSL(N2,M2),LP(N2,M2),FF(N2,M2),FT(10)
    CHARACTER FA*30,F0*4,FT*1
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    C
    SP = 0.
    S1=0.
    DO 17 J = 2 , M
    DO 13 I = 2 , N
    PS(I,J) = SL(I,J)
    IF (LP(I,J).NE.0) THEN
    S1 = S1 + 1.
    SP = SP + PS(I,J)
    END IF
    13 CONTINUE
    17 CONTINUE
    SP = SP / S1
    do 2233 i=1,n2
    do 2233 j=1,m2
    IF (LP(I,J).NE.0) THEN
    PS(i,j) = PS(i,j) — SP
    END IF
    2233 CONTINUE

    DO 2 I=1,N2
    DO 2 J=1,M2
    PSL(I,J)=99999.
    IF(PS(I,J).GT.100.) GO TO 2
    PSL(I,J)= PS(I,J)
    2 CONTINUE

    c WRITE(*,*)’SLGRD’,NDAY
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000

    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)

    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    C
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    C
    FA(1:20)=’D:\Mod-05km\RS\SL\SL’
    FA(21:20+4)=F0
    FA(25:24+4)=’.GRD’
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (LP(I,J).NE.0) FF(I,J)=PSL(I,J)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE SLDGRD(NFGRD,LP,LL,NSL)
    INCLUDE ‘PAR.INC’
    C
    DOUBLE PRECISION SL,SL0,SL00
    C
    COMMON/SL/SL(N2,M2),SL0(N2,M2),SL00(N2,M2),SLD(N2,M2),SLA(N2,M2)
    C
    DIMENSION PS(N2,M2),PSL(N2,M2),LP(N2,M2),FF(N2,M2),FT(10)
    CHARACTER FA*30,F0*4,FT*1
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    SP = 0.
    S1=0.
    DO 17 J = 2 , M
    DO 13 I = 2 , N
    IF (NSL.EQ.1) THEN
    PS(I,J) = SLD(I,J)
    ELSE
    PS(I,J) = SLA(I,J)
    END IF
    IF (LP(I,J).NE.0) THEN
    S1 = S1 + 1.
    SP = SP + PS(I,J)
    END IF
    13 CONTINUE
    17 CONTINUE
    SP = SP / S1
    do 2233 i=1,n2
    do 2233 j=1,m2
    IF (LP(I,J).NE.0) THEN
    PS(i,j) = PS(i,j) — SP
    END IF
    2233 CONTINUE

    DO 2 I=1,N2
    DO 2 J=1,M2
    PSL(I,J)=99999.
    IF(PS(I,J).GT.100.) GO TO 2
    PSL(I,J)= PS(I,J)
    2 CONTINUE
    IF (NSL.EQ.1) THEN
    WRITE(*,*)’SLDgrd’,NDAY
    ELSE
    WRITE(*,*)’SLAgrd’,NDAY
    END IF
    cccccccccccccccccccccccccccccccccccccccccccccccccc
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    cccccccccccccccccccccccccccccccccccccccccccccccccc
    IF (NSL.EQ.1) THEN
    FA(1:22)=’D:\Mod-05km\RS\SLD\SLD’
    ELSE
    FA(1:22)=’D:\Mod-05km\RS\SLA\SLA’
    END IF
    cccccccccccccccccccccccccccccccccccccccccccccccccc
    FA(23:22+4)=F0
    FA(27:26+4)=’.GRD’
    cccccccccccccccccccccccccccccccccccccccccccccccccc
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (LP(I,J).NE.0) FF(I,J)=PSL(I,J)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    cccccccccccccccccccccccccccccccccccccccccccccccccc
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE TSGRD(K,NFGRD,TA,LL)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION TA(N2,M2,L),FF(N2,M2),FZ(L),FT(10)
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/

    C
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    WRITE(*,*) NDAY
    cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’TFIELD’,K
    C
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\TF\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+4)=FZ(K)
    FA(25:24+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(TA(I,J,K)).LT.100.)
    & FF(I,J)=TA(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE SSGRD(K,NFGRD,SA,LL)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION SA(N2,M2,L),FF(N2,M2),FZ(L),FT(10)
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’SFIELD’,K
    C
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\SF\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+4)=FZ(K)
    FA(25:24+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(SA(I,J,K)).LT.100.)
    & FF(I,J)=SA(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE WSGRD(K,NFGRD,LP,LL)
    INCLUDE ‘PAR.INC’
    INCLUDE ‘VEL.INC’
    C
    DIMENSION LP(N2,M2),FF(N2,M2),FZ(L),FT(10)
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0000’,’0004′,’0007′,’0013′,’0018′,’0023′,’0028′,’0035′,’0045′,
    & ‘0056’,’0069′,’0081′,’0094′,’0106′,’0119′,’0138′,’0163′,’0188′,
    & ‘0225’,’0275′,’0325′,’0375′,’0425′,’0475′,’0525′,’0575′,’0650′,
    & ‘0750’,’0850′,’0950′,’1050′,’1150′,’1250′,’1350′,’1450′,’1550′,
    & ‘1650’,’1750′,’1850′,’1950′,’2025′,’2063′,’2080′,’2090′,’2098’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    ccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’WFIELD’,K
    C
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\WF\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+4)=FZ(K)
    FA(25:24+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (LP(I,J).GE.K)
    & FF(I,J) = W(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE KEGRD(NFGRD,F,LP,LL,IKIN)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION F(N2,M2),PSL(N2,M2),LP(N2,M2),FF(N2,M2),FT(10),
    1 FY(40)
    C
    CHARACTER FA*30,F0*4,FT*1,FC*4, FY*2
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FY/
    & ’01’,’02’,’03’,’04’,’05’,’06’,’07’,’08’,’09’,’10’,’11’,’12’,’13’,
    & ’14’,’15’,’16’,’17’,’18’,’19’,’20’,’21’,’22’,’23’,’24’,’25’,’26’,
    & ’27’,’28’,’29’,’30’,’31’,’32’,’33’,’34’,’35’,’36’,’37’,’38’,’39’,
    & ’40’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    DO 2 I=1,N2
    DO 2 J=1,M2
    PSL(I,J)=99999.
    IF(LP(I,J).EQ.0) GO TO 2
    PSL(I,J)= F(I,J)
    2 CONTINUE
    ccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’KEint’,NDAY,IKIN
    cccccccc write(*,*)
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:18)=’D:\Mod-05km\RS\KE\’
    FA(19:18+4)=F0
    FA(23:22+1)=’-‘
    FA(24:23+2)=FY(IKIN)
    FA(26:26+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (LP(I,J).NE.0) FF(I,J)=PSL(I,J)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE PEGRD(NFGRD,F,LP,LL,IPOT)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION F(N2,M2),PSL(N2,M2),LP(N2,M2),FF(N2,M2),FT(10),
    1 FY(40)
    C
    CHARACTER FA*30,F0*4,FT*1,FC*4, FY*2
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FY/
    *’01’,’02’,’03’,’04’,’05’,’06’,’07’,’08’,
    *’09’,’10’,’11’,’12’,’13’,’14’,’15’,’16’,
    *’17’,’18’,’19’,’20’,
    *’21’,’22’,’23’,’24’,’25’,’26’,’27’,’28’,
    *’29’,’30’,’31’,’32’,’33’,’34’,’35’,’36’,
    *’37’,’38’,’39’,’40’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    C IF (NDAY.EQ.0) GO TO 1111
    DO 2 I=1,N2
    DO 2 J=1,M2
    PSL(I,J)=99999.
    IF(LP(I,J).EQ.0) GO TO 2
    PSL(I,J)= F(I,J)
    2 CONTINUE
    cccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’PEint’,NDAY,IPOT
    write(*,*)
    C
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:18)=’D:\Mod-05km\RS\PE\’
    FA(19:18+4)=F0
    FA(23:22+1)=’-‘
    FA(24:23+2)=FY(IPOT)
    FA(26:25+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (LP(I,J).NE.0) FF(I,J)=PSL(I,J)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    C
    CLOSE(NFGRD)
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE KINGRD(K,NFGRD,A,LP,LL,IKIN)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION A(N2,M2,L),FF(N2,M2),LP(N2,M2),FT(10),FZ(L),FY(40)
    CHARACTER FA*31,F0*4,FT*1,FC*4,FZ*4,FY*2
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/
    C
    DATA FY/
    *’01’,’02’,’03’,’04’,’05’,’06’,’07’,’08’,
    *’09’,’10’,’11’,’12’,’13’,’14’,’15’,’16’,
    *’17’,’18’,’19’,’20’,
    *’21’,’22’,’23’,’24’,’25’,’26’,’27’,’28’,
    *’29’,’30’,’31’,’32’,’33’,’34’,’35’,’36’,
    *’37’,’38’,’39’,’40’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    cccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’KinEn’,K
    C
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\KE\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+2)=FY(IKIN)
    FA(23:22+1)=’-‘
    FA(24:23+4)=FZ(K)
    FA(28:27+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (K.LE.LP(I,J))
    & FF(I,J)=A(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE POTGRD(K,NFGRD,A,LP,LL,IPOT)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION A(N2,M2,L),FF(N2,M2),LP(N2,M2),FT(10),FZ(L),FY(40)
    CHARACTER FA*31,F0*4,FT*1,FC*4,FZ*4,FY*2
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/
    C
    DATA FY/
    *’01’,’02’,’03’,’04’,’05’,’06’,’07’,’08’,
    *’09’,’10’,’11’,’12’,’13’,’14’,’15’,’16’,
    *’17’,’18’,’19’,’20’,
    *’21’,’22’,’23’,’24’,’25’,’26’,’27’,’28’,
    *’29’,’30’,’31’,’32’,’33’,’34’,’35’,’36’,
    *’37’,’38’,’39’,’40’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    ccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’PotEn’,K
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\PE\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+2)=FY(IPOT)
    FA(23:22+1)=’-‘
    FA(24:23+4)=FZ(K)
    FA(28:27+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (K.LE.LP(I,J))
    & FF(I,J)=A(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE

    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE FWGRD(K,NFGRD,LL)
    INCLUDE ‘PAR.INC’
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    DOUBLE PRECISION HX,HX1,HY,HY1,G,GG,T,TTT,HXX,HYY,GR,EPS,Wnor,VL
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/parameters/HX,HX1,HY,HY1,G,GG,T,TTT,EPS,GR,Wnor,HXX,HYY,
    1 CT1,CS1,CT2,CTS,consT,consS,consTT,consTS,ATEM,BTEM,ASAL,BSAL,
    2 DMAN,CYEAR,Cinit,PRmix,SV,MP0,Lminim,SALRin,SALMin,TEMM,STO,CDAY,
    3 SALR,SALM,Ucoeff1,Ucoeff2,Ucoeff3,Wcoeff1,Wcoeff2,Ra0,Wcc0,
    4 Wcoez0,Consp1,Consp2,Consp3,Consp4,Consp5,Consp6,Consp7,Consp8,
    5 Consp9,LUVminim,LSminim,LTminim,LRTminim,SWcoeff1,SWcoeff2,
    6 SWcoeff3,SWcc0,TWcoeff1,TWcoeff2,TWcoeff3,TWcc0,LCinit,See,
    7 Nlayer,NStem,SWLriv,SWLmr,TWLriv,TWLmr,Dtime,DDtime
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/coefficients/VL(L),UZZ(N2,M2,L2),VZZ(N2,M2,L2),WL,
    1 WZsal(N2,M2,L2),WZtem(N2,M2,L2)
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    DIMENSION FF(N2,M2),FZ(L),FT(10)
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0000’,’0004′,’0007′,’0013′,’0018′,’0023′,’0028′,’0035′,’0045′,
    & ‘0056’,’0069′,’0081′,’0094′,’0106′,’0119′,’0138′,’0163′,’0188′,
    & ‘0225’,’0275′,’0325′,’0375′,’0425′,’0475′,’0525′,’0575′,’0650′,
    & ‘0750’,’0850′,’0950′,’1050′,’1150′,’1250′,’1350′,’1450′,’1550′,
    & ‘1650’,’1750′,’1850′,’1950′,’2025′,’2063′,’2080′,’2090′,’2098’/
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    cccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’WZsal’,K
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:17)=’D:\Mod-05km\Fsal\’
    FA(18:17+4)=F0
    FA(22:21+1)=’-‘
    FA(23:22+4)=FZ(K)
    FA(27:26+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    C
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(WZsal(I,J,K)).LT.100.)
    & FF(I,J) = WZsal(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE FQGRD(K,NFGRD,LL)
    INCLUDE ‘PAR.INC’
    C
    DOUBLE PRECISION HX,HX1,HY,HY1,G,GG,T,TTT,HXX,HYY,GR,EPS,Wnor,VL
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/parameters/HX,HX1,HY,HY1,G,GG,T,TTT,EPS,GR,Wnor,HXX,HYY,
    1 CT1,CS1,CT2,CTS,consT,consS,consTT,consTS,ATEM,BTEM,ASAL,BSAL,
    2 DMAN,CYEAR,Cinit,PRmix,SV,MP0,Lminim,SALRin,SALMin,TEMM,STO,CDAY,
    3 SALR,SALM,Ucoeff1,Ucoeff2,Ucoeff3,Wcoeff1,Wcoeff2,Ra0,Wcc0,
    4 Wcoez0,Consp1,Consp2,Consp3,Consp4,Consp5,Consp6,Consp7,Consp8,
    5 Consp9,LUVminim,LSminim,LTminim,LRTminim,SWcoeff1,SWcoeff2,
    6 SWcoeff3,SWcc0,TWcoeff1,TWcoeff2,TWcoeff3,TWcc0,LCinit,See,
    7 Nlayer,NStem,SWLriv,SWLmr,TWLriv,TWLmr,Dtime,DDtime
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/coefficients/VL(L),UZZ(N2,M2,L2),VZZ(N2,M2,L2),WL,
    1 WZsal(N2,M2,L2),WZtem(N2,M2,L2)
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    DIMENSION FF(N2,M2),FZ(L),FT(10)
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0000’,’0004′,’0007′,’0013′,’0018′,’0023′,’0028′,’0035′,’0045′,
    & ‘0056’,’0069′,’0081′,’0094′,’0106′,’0119′,’0138′,’0163′,’0188′,
    & ‘0225’,’0275′,’0325′,’0375′,’0425′,’0475′,’0525′,’0575′,’0650′,
    & ‘0750’,’0850′,’0950′,’1050′,’1150′,’1250′,’1350′,’1450′,’1550′,
    & ‘1650’,’1750′,’1850′,’1950′,’2025′,’2063′,’2080′,’2090′,’2098’/
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    cccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’WZtem’,K
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:17)=’D:\Mod-05km\Ftem\’
    FA(18:17+4)=F0
    FA(22:21+1)=’-‘
    FA(23:22+4)=FZ(K)
    FA(27:26+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    C
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(WZtem(I,J,K)).LT.100.)
    & FF(I,J) = WZtem(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 continue
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE UCFGRD(K,NFGRD,LL)
    INCLUDE ‘PAR.INC’
    C
    DOUBLE PRECISION HX,HX1,HY,HY1,G,GG,T,TTT,HXX,HYY,GR,EPS,Wnor,VL
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/parameters/HX,HX1,HY,HY1,G,GG,T,TTT,EPS,GR,Wnor,HXX,HYY,
    1 CT1,CS1,CT2,CTS,consT,consS,consTT,consTS,ATEM,BTEM,ASAL,BSAL,
    2 DMAN,CYEAR,Cinit,PRmix,SV,MP0,Lminim,SALRin,SALMin,TEMM,STO,CDAY,
    3 SALR,SALM,Ucoeff1,Ucoeff2,Ucoeff3,Wcoeff1,Wcoeff2,Ra0,Wcc0,
    4 Wcoez0,Consp1,Consp2,Consp3,Consp4,Consp5,Consp6,Consp7,Consp8,
    5 Consp9,LUVminim,LSminim,LTminim,LRTminim,SWcoeff1,SWcoeff2,
    6 SWcoeff3,SWcc0,TWcoeff1,TWcoeff2,TWcoeff3,TWcc0,LCinit,See,
    7 Nlayer,NStem,SWLriv,SWLmr,TWLriv,TWLmr,Dtime,DDtime
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/coefficients/VL(L),UZZ(N2,M2,L2),VZZ(N2,M2,L2),WL,
    1 WZsal(N2,M2,L2),WZtem(N2,M2,L2)
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    DIMENSION FF(N2,M2),FZ(L),FT(10)
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    DATA FZ/
    & ‘0000’,’0004′,’0007′,’0013′,’0018′,’0023′,’0028′,’0035′,’0045′,
    & ‘0056’,’0069′,’0081′,’0094′,’0106′,’0119′,’0138′,’0163′,’0188′,
    & ‘0225’,’0275′,’0325′,’0375′,’0425′,’0475′,’0525′,’0575′,’0650′,
    & ‘0750’,’0850′,’0950′,’1050′,’1150′,’1250′,’1350′,’1450′,’1550′,
    & ‘1650’,’1750′,’1850′,’1950′,’2025′,’2063′,’2080′,’2090′,’2098’/
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    cccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’Ucoef’,K
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\UC\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+4)=FZ(K)
    FA(25:24+4)=FC
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(UZZ(I,J,K)).LT.100.)
    & FF(I,J) = UZZ(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE VCFGRD(K,NFGRD,LL)
    INCLUDE ‘PAR.INC’
    C
    DOUBLE PRECISION HX,HX1,HY,HY1,G,GG,T,TTT,HXX,HYY,GR,EPS,Wnor,VL
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/parameters/HX,HX1,HY,HY1,G,GG,T,TTT,EPS,GR,Wnor,HXX,HYY,
    1 CT1,CS1,CT2,CTS,consT,consS,consTT,consTS,ATEM,BTEM,ASAL,BSAL,
    2 DMAN,CYEAR,Cinit,PRmix,SV,MP0,Lminim,SALRin,SALMin,TEMM,STO,CDAY,
    3 SALR,SALM,Ucoeff1,Ucoeff2,Ucoeff3,Wcoeff1,Wcoeff2,Ra0,Wcc0,
    4 Wcoez0,Consp1,Consp2,Consp3,Consp4,Consp5,Consp6,Consp7,Consp8,
    5 Consp9,LUVminim,LSminim,LTminim,LRTminim,SWcoeff1,SWcoeff2,
    6 SWcoeff3,SWcc0,TWcoeff1,TWcoeff2,TWcoeff3,TWcc0,LCinit,See,
    7 Nlayer,NStem,SWLriv,SWLmr,TWLriv,TWLmr,Dtime,DDtime
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    COMMON/coefficients/VL(L),UZZ(N2,M2,L2),VZZ(N2,M2,L2),WL,
    1 WZsal(N2,M2,L2),WZtem(N2,M2,L2)
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    DIMENSION FF(N2,M2),FZ(L),FT(10)
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0000’,’0004′,’0007′,’0013′,’0018′,’0023′,’0028′,’0035′,’0045′,
    & ‘0056’,’0069′,’0081′,’0094′,’0106′,’0119′,’0138′,’0163′,’0188′,
    & ‘0225’,’0275′,’0325′,’0375′,’0425′,’0475′,’0525′,’0575′,’0650′,
    & ‘0750’,’0850′,’0950′,’1050′,’1150′,’1250′,’1350′,’1450′,’1550′,
    & ‘1650’,’1750′,’1850′,’1950′,’2025′,’2063′,’2080′,’2090′,’2098’/
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    cccccccccccc WRITE(*,*)’Vcoef’,K
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\VC\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+4)=FZ(K)
    FA(25:24+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    C
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(VZZ(I,J,K)).LT.100.)
    & FF(I,J) = VZZ(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE SECTION(NFGRD,F,LL,I5)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION F(N2,M2,L),FF(N2,L),FT(10),Z(L),F1(N2,41),Z1(41)
    CHARACTER FA*35,F0*4,FT*1
    C
    DATA Z/0.,5.,10.,15.,20.,25.,30.,40.,50.,63.,75.,88.,100.,113.,
    & 125.,150.,175.,200.,250.,300.,350.,400.,450.,500.,550.,600.,700.,
    & 800.,900.,1000.,1100.,1200.,1300.,1400.,1500.,1600.,1700.,1800.,
    & 1900.,2000.,’2050′,’2075′,’2085′,’2095′,’2100’/
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY
    C IF (NDAY.EQ.0) GO TO 1111
    IF (I5.EQ.1) WRITE(*,*)’SECTION T’,NDAY
    IF (I5.EQ.2) WRITE(*,*)’SECTION S’,NDAY
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    C
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    C
    IF (I5.EQ.1) FA(1:20)=’D:\Mod-05km\RS\TT\TT’
    IF (I5.EQ.2) FA(1:20)=’D:\Mod-05km\RS\SS\SS’
    FA(21:20+4)=F0
    FA(25:24+4)=’.GRD’
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 11 I=1,N2
    DO 11 K=1,18
    FF(I,K)=0.170141E+39

    IF (ABS(F(I,66,K)).LT.100.)
    & FF(I,K)=F(I,66,K)
    11 CONTINUE
    L12=18
    L21=41
    Z1(1)=0.
    DO 2 K=2,L21
    Z1(K)=Z1(K-1)+5.
    2 CONTINUE
    DO 1 I=1,N2
    DO 1 K=1,L21
    DO 3 KK=1,L12
    IF (Z(KK).EQ.Z1(K)) GO TO 10
    IF (Z(KK).GT.Z1(K)) GO TO 20
    3 CONTINUE
    WRITE(*,*)’ERUNDA !!!’
    GO TO 1
    10 CONTINUE
    F1(I,K)=FF(I,KK)
    GO TO 1
    20 CONTINUE
    A1=Z1(K)-Z(KK-1)
    A2=Z(KK)-Z1(K)
    IF (A1.LT.0..OR.A2.LT.0.) WRITE(*,*)’ERUNDA-2 !!!’
    B1=FF(I,KK-1)
    B2=FF(I,KK)
    IF (B1.GT.100..OR.B2.GT.100.) GO TO 30
    F1(I,K)=(B1*A2 + B2*A1)/(A1+A2)
    GO TO 1
    30 CONTINUE
    F1(I,K)=0.170141E+39
    1 C O N T I N U E
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)((F1(I,L21+1-K),I=1,N2),K=1,L21)
    CLOSE(NFGRD)
    CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 41’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘-200.0 0.00’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    106 FORMAT(82E16.7)
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE UVGRD(K,NFGRD,lp,LL)
    INCLUDE ‘PAR.INC’
    INCLUDE ‘VEL.INC’
    DIMENSION LP(N2,M2),FU(N2,M2),FV(N2,M2),FF(n2,m2),
    * FT(10),FZ(L),FUV(2)
    CHARACTER FA*35,F0*5,FC*4,FZ*4,FT*1,FUV*1

    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    DATA FUV/’U’,’V’/
    C
    DATA FZ/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    cccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’UVFIELD’,nday,’K=’,K
    C

    IDTS=NDAY/10000
    II =NDAY-IDTS*10000
    ITIS=II/1000
    ISOT=(II-ITIS*1000)/100
    IDES=(II-(ITIS*1000+ISOT*100))/10
    IEDN=II-(ITIS*1000+ISOT*100 + IDES*10)

    IF(IDTS.EQ.0) IDTS=10
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10

    F0(1:1) = FT(IDTS)
    F0(2:1+1) = FT(ITIS)
    F0(3:2+1) = FT(ISOT)
    F0(4:3+1) = FT(IDES)
    F0(5:4+1) = FT(IEDN)

    FC=’.GRD’
    C—————————————————
    DO NUV=1,2

    FA(1:18)=’D:\Mod-05km\UVgrd\’
    FA(19:18+1)=FUV(NUV)
    FA(20:19+5)=F0
    FA(25:24+1)=’-‘
    FA(26:25+4)=FZ(K)
    FA(30:29+4)=FC
    C

    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 J=2,M
    DO 1 I=2,N
    FU(I,J) = 1.E20
    FV(I,J) = 1.E20
    IF (K.LE.LP(I,J)) THEN
    FU(I,J) = (U(I+1,J,K) + U(I,J,K))*0.5
    FV(I,J) = (V(I,J,K) + V(I,J-1,K))*0.5
    END IF
    1 CONTINUE

    DO 11 I=1,N2
    DO 11 J=1,M2
    FF(I,J)=BLANK
    IF (LP(I,J).GE.K) THEN
    IF (NUV.EQ.1) FF(I,J) = FU(I,J)
    IF (NUV.EQ.2) FF(I,J) = FV(I,J)
    END IF
    11 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF

    CLOSE(NFGRD)
    END DO

    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C

    C################## NEXT WAS WRITTEN TO CREATE CLIMATIC GRD-FILES#######C
    C######################################################################C
    SUBROUTINE TSGRD2(K,NFGRD,TA,LL)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION TA(N2,M2,L),FF(N2,M2),FZ(L),FT(10)
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/

    C
    BLANK=0.170141E+39
    NDAY=(LL-LIN/2)/LDAY

    cccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’TFIELD’,K
    C
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\T2\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+4)=FZ(K)
    FA(25:24+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(TA(I,J,K)).LT.100.)
    & FF(I,J)=TA(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END
    C######################################################################C
    C######################################################################C
    SUBROUTINE SSGRD2(K,NFGRD,SA,LL)
    INCLUDE ‘PAR.INC’
    C
    DIMENSION SA(N2,M2,L),FF(N2,M2),FZ(L),FT(10)
    CHARACTER FA*30,F0*4,FT*1,FC*4,FZ*4
    C
    DATA FT/’1′,’2′,’3′,’4′,’5′,’6′,’7′,’8′,’9′,’0’/
    C
    DATA FZ/
    & ‘0003’,’0005′,’0010′,’0015′,’0020′,’0025′,’0030′,’0040′,’0050′,
    & ‘0063’,’0075′,’0088′,’0100′,’0113′,’0125′,’0150′,’0175′,’0200′,
    & ‘0250’,’0300′,’0350′,’0400′,’0450′,’0500′,’0550′,’0600′,’0700′,
    & ‘0800’,’0900′,’1000′,’1100′,’1200′,’1300′,’1400′,’1500′,’1600′,
    & ‘1700’,’1800′,’1900′,’2000′,’2050′,’2075′,’2085′,’2095′,’2100’/
    C
    BLANK=0.170141E+39
    NDAY = (LL-LIN/2)/LDAY
    ccccccccccccccccccccccccccccccccccccccccccccccccccccccccc WRITE(*,*)’SFIELD’,K
    C
    ITIS=NDAY/1000
    II =NDAY-ITIS*1000
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    ISOT=II/100
    IDES=(II-ISOT*100)/10
    IEDN=II-(ISOT*100 + IDES*10)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    IF(ITIS.EQ.0) ITIS=10
    IF(ISOT.EQ.0) ISOT=10
    IF(IDES.EQ.0) IDES=10
    IF(IEDN.EQ.0) IEDN=10
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    F0(1:1) = FT(ITIS)
    F0(2:1+1) = FT(ISOT)
    F0(3:2+1) = FT(IDES)
    F0(4:3+1) = FT(IEDN)
    ccccccccccccccccccccccccccccccccccccccccccccccccc
    FC=’.GRD’
    FA(1:15)=’D:\Mod-05km\S2\’
    FA(16:15+4)=F0
    FA(20:19+1)=’-‘
    FA(21:20+4)=FZ(K)
    FA(25:24+4)=FC
    C
    OPEN(UNIT=NFGRD,FILE=FA)
    DO 1 I=1,N2
    DO 1 J=1,M2
    FF(I,J)=0.170141E+39
    IF (ABS(SA(I,J,K)).LT.100.)
    & FF(I,J)=SA(I,J,K)
    1 CONTINUE
    WRITE(NFGRD,100)
    WRITE(NFGRD,101)
    WRITE(NFGRD,102)
    WRITE(NFGRD,103)
    ZMIN=MINVAL(FF,MASK=FF.LT.BLANK)
    ZMAX=MAXVAL(FF,MASK=FF.LT.BLANK)
    WRITE(NFGRD,104)ZMIN,ZMAX
    WRITE(NFGRD,105)FF
    CLOSE(NFGRD)
    C
    100 FORMAT(‘DSAA’)
    101 FORMAT(‘238 132’)
    102 FORMAT(‘27.41 41.90’)
    103 FORMAT(‘40.86 46.56’)
    104 FORMAT(2E15.6)
    105 FORMAT(1X,238E16.7)
    1111 CONTINUE
    RETURN
    END

    9

    27
    • Скромное обаяние буржуазии:

      Ну, как, прониклись ??

      9

      4
      • Слава роботам:

        Век в сраку не ебстись!

        7

        3
        • пузіротшампуся:

          у тебя с этим какие то проблемы судя по всему. жжет пуканчик не можешь дрочкой до конца разрядиться а в мацкве гей парадов нету? так ты это, на бутылку сядь или чурку себе найди ебаку грозного, полегчать должно, перестанешь хуету писать и людям мозги пудрить своим недоебом, пассив ты наш скромный

          8

          1
          • Слава роботам:

            Ватан, у тебя пердачек печет после того как я у тебя ник увел! Я в сраной парашке в жизни не был, век хуя в сраке не видать! Я за эвропейский выбор для Украины, ебля в сраку це по эвропейски. Не устраивает эвропейское майбудне Украины, пездуй на свою сраную парашу! Или начинай ебстись в сраку как справжний бендеровец!

            3

            16
            • Пассивненький:

              ВРЕШЬ, Я С ТОБОЙ В СРАКУ ЗА 5 БАКСОВ НЕ ЕБАЛСЯ!!

              0

              2
              • Слава роботам:

                Ты сраный в сраку натурал, возвращайся когда грузины целку в сраку порвут!

                3

                0
    • Джузеппе:

      От рузкой свнособаке большого и не ожидали.

      9

      2
    • Анальный Жвалокрыл:

      Админы, забаньте этого пидора. Я в отпуске я в рот ебал столько скроллить если бы я дрочил я бы уже два раза кончил. У меня рука устала я кружку пива с пуза толкнуть не могу.

      31

      2
    • Витя с химмаша:

      2 принта за щеку этому гаспадину!

      5

      0
    • Смех:

      У меня не собралось. Какой версией компилять надо?

      3

      0
      • Скромное обаяние буржуазии:

        Compaq fortran 6.0 же !

        0

        0
  25. PHP:

    PHP создан для дешевых шкур.

    7

    3
  26. Орёл:

    Пыхач — хороший язык. Просто притягивал в своё время специфических людей. Чего вы возмущаетесь то? Сергей мимо не попал. Или у нас уже полная индусизация в индустрии началась, типа бунт вайтишников «мы тоже люди», клеймительные статьи в духе «ах смотри какой зазнавшийся господин», «сейчас модно говно и дёшево и мы все гавно а кто не с нами тот то ещё говно». Господа, это уже уровень Васьков каких-то с района. Сергей ведь о высоком — Дейкстра, Лисп, фон Нейман — а вы сразу фашизм.

    4

    3
  27. Капитан Южные Штаты:

    Сергей Яковлев — Гитлер? Человек, который в 34 года рассуждает, как ванильная ТП и постит розовые сопли о своих разочарованиях?

    Напомню, что главный еврей третьего Рейха, инвалид умственного труда по имени Адольф, в 36 лет таки опубликовал первый том «Майн Кампф». Бесспорно, это был совсем НЕ шедевр политической и философской мысли, но по крайней мере там отсутствовали пассажи в стиле: «Грустняшка, когда я поступал в художественную школу, я совсем не так представлял себе свое будущее. И вообще, я не люблю здороваться с однопартийцами, потому что они бяки и неудачники».

    Вот если бы Сирожа опубликовал не высер рефлексирующего подростка, а хотя бы 1 том книги, в которой он изложил в удобочитаемом структурированном виде основные тезисы своей идеологии; если бы он руководил уже целым политическим движением и тысячи отмороженных задротов-штурмовиков готовы были бы драться за него; наконец, если бы послушать его зажигательные речи о превосходстве Lisp-арийцев и неполноценности PHP/JS-кодеров собирались бы битком набитые смузи-бары — можно было бы попытаться признать, что он из себя что-то представляет (пусть и нечто ебанутое, но всё же).

    А так — это просто булькание ограниченного 34-летнего мужика с психологией 14-летней девочки.

    P.S. Кстати. Гитлер, в отличие от Сергея, любил здороваться настолько, что даже сам изобрел один крайне популярный приветственный жест.

    P.P.S. Хотя, конечно, лучше бы Адольф и все остальные кровавые диктаторы были такими же тупыми и чванливыми, но безобидными ебланами, как Сергей Яковлев.

    52

    0
    • Анальный Жвалокрыл:

      дохуя много слов, коллега. достаточно просто из 45 вычесть 33, а потом выразительно посмотреть на пана Яковлева.

      а он такой в ответ: «Вы чо охуели коллеги? какой-то мудак с ёбаного ойти высрал, а вы хотите чтобы я за этот блудняк отвечал?»

      1

      3
    • Dario:

      Я смотрю, Адик вообще последнее время популярен не у бритоголовых (в РФ вообще таких много лет не видел), а у всяких омежек. Особенно у девственников, которые почему-то думают, что при национал-социализме тян начнет встречаться с ним, а не с красавчиком-спортсменом Ашотом.

      9

      0
  28. Главврач психбольницы:

    Да это ж наш поциент! Он убежал недавно, перед этим покусав охранников и собаку. Эго привезли к нам после того, как он забежал в комнату к пхпешникам с криками «пхп нет места в этом мире!» и начал головой крошить мониторы. Если где его увидите, ни в коем случае не проихносите «пхп», «пых» и сразу звоните 03.

    6

    0
  29. Орёл:

    Во ребят. Смотрю я тут комментарии, и понимаю, что все, финал. Вайтишников уже больше 80%. Я так понимаю, к пересмотру зарплат все готовы? Смотрим, наблюдаем…

    3

    2
    • /dev/null:

      Ололо, что тебя натолкнуло на такие мысли?

      2

      0
    • Cogniance HR:

      Всегда готовы!

      7

      0
      • 0_o:

        Последняя з/п тоже будет пересмотрена?

        5

        0
        • Cogniance HR:

          У тебя опечатка в слове «недосмотрена», а так все верно 🙂

          4

          1
  30. Витя с химмаша:

    Пыху за щеку этому пидору!

    3

    2
  31. Senior Python developer 23cm:

    > Решающий задачи бизнеса быстро и не забивающий голову этими вашими потернами…

    Ха! Меня вот бесят люди, бездумно лепящие эти самые паттерны, не задумывающиеся над их предназначением… расстрелять! Хайль архитектура! Хайль алгоритмы!

    14

    0
    • Бывший тостер, теперь гребец:

      Так он же книжку прочитал, надо же где то выебнуться своими знаниями, заодно и потренироваться на кошках. Только лохи пишут 50 строковый код без паттернов ) надо сделать 5 классов по 100 строк в каждом, будет расширяемо же (если кто-то, включая автора, через пол года, сможет понять чо эта хуйня делает) а потом ныть о том что программирование тяжелая работа, и его бедняжку не ценят

      34

      0
      • /dev/null:

        Ну да, там где можно написать 2 метода по 30 строк, обязательно найдется долбаеб, который создаст 5 слоев абстракций HuynaContext, HuynaManager, HuynaFactory, а потом никто не может понять нахуй оно так было сделано.

        12

        0
      • пейсатель инструкций:

        забрал в цитаты, спасибо

        1

        0
  32. Анальный Жвалокрыл:

    ай малаццы

    ёбаное и лично сенти взяли очередной рекорд по креативной автофелляции.

    на комментаторов автор видимо уже не надеется, поэтому решил обосраться по закону годвина сразу в ориджинал высере.

    шаловливая фантазия сенти играет с ним дурную шутку: он вывалил интересный набор гомоэротических фантазий, начиная от мастурбации на портрет саддама хуссейна, полоскания хуя в кружке объекта страсти, и заканчивая наци и каминг аутом. для тотального климакса надо было еще поставить на КПДВ какую-нибудь картинку Тома из Финляндии.

    какое отношение эти фантазии сенти имеют к собсно Сергею Яковлеву, я хз. ну пишет чел на похапе. ну саппортит в одно-два рыла «сайт с PHP фреймворком». у 90% комментаторов ёбаного свою пипиську в сортире нормально саппортить не получается. надо бы об этом разоблачающую статью написать, с гитлером и евами браун.

    4

    5
  33. Мокшанин с ведром на голове:

    Типичная ебаная омежка. Когда аутист считает ебя «нитаким как все, низдаровающимся с плибейами архитектором» , а по факту — это чучело для битья (подъёбов) и постоянных шуточек на обеде и в курилке, на каждой галере было подобное чучело, или будет

    9

    2
  34. ыва:

    https://jobs.dou.ua/companies/pdffiller/reviews/31499/
    Сергей каждый год отвечает на свой комментарий, что у него по-прежнему все хорошо.
    Сука, до слез!

    14

    0
  35. Северное сияние на бутылке:

    А чего вы хотели от пропитого быдла с кацапских ебеней?

    10

    3
  36. Неподконтрольный:

    В PDFfiler внезапно на PHP ведут разработку, мне аж стыдно, что мои знакомые с ним в одной компании работали. Хотя я вовсе не против чтобы данный господин считал меня говном, писал на лиспе и получал 15% от моей зп, главное что лисп! И все будут довольны.

    10

    0
  37. Дрын:

    По ебалу видно что сельский рогуль, который если не программирование, то расносил бы навоз в селе.

    14

    2
  38. Капитан Южные Штаты:

    Остается лишь догадываться, что мешает ему добавить себя в друзья в соцсетях и мессенджерах, чтобы переписываться с собой ежедневно в режиме реального времени.

    Улыбнуло: «Здесь по прежнему домашняя атмосфера и дружный коллектив». Выглядит слегка лицемерно.

    Честным с его стороны было бы так написать так:»Здесь по прежнему домашняя атмосфера, КОТОРУЮ Я ПРЕЗИРАЮ, и дружный коллектив ПХП-ШНЫЙ, С КОТОРЫМ Я ЕБАЛ ЗДОРОВАТЬСЯ».

    Впрочем, а вдруг не он опубликовал этот пост на ФБ, а какой-то тайный злопыхатель-подъебщик, коллега Сергея, яростно ему завидующий? История умалчивает.

    11

    0
  39. Читатель Гопс:

    Обычный, ничем не примечательный черт. Жил никем, живет никем и никем и закончит. Даже несмотря на амбиции. Умел бы читать, то может быть научился бы их выражать, а если бы много читал, то и реализовывать. А так только пост на фб — предел возможностей.

    11

    4
  40. Логика:

    То что пишет поциент напомнило нетленное:
    Родился на улице Герцена, в гастрономе номер двадцать два. Известный экономист, по призванию своему — библиотекарь. В народе — колхозник. В магазине — продавец. В экономике, так сказать, необходим. Это, так сказать, система… э-э-э… в составе ста двадцати единиц. Фотографируете Мурманский полуостров и получаете «Те-ле-фун-кен». И бухгалтер работает по другой линии — по линии библиотекаря. Потому что не воздух будет, академик будет! Ну вот можно сфотографировать Мурманский полуостров. Можно стать воздушным асом. Можно стать воздушной планетой. И будешь уверен, что эту планету примут по учебнику. Значит, на пользу физике пойдёт одна планета. Величина, оторванная в область дипломатии, даёт свои колебания на всю дипломатию. А Илья Муромец даёт колебания только на семью на свою. Спичка в библиотеке работает. В кинохронику ходят и зажигают в кинохронике большой лист. В библиотеке маленький лист разжигают. Огонь… э-э-э… будет вырабатываться гораздо легче, чем учебник крепкий. А крепкий учебник будет весомее, чем гастроном на улице Герцена. А на улице Герцена будет расщеплённый учебник. Тогда учебник будет проходить через улицу Герцена, через гастроном номер двадцать два, и замещаться там по формуле экономического единства. Вот в магазине двадцать два она может расщепиться, экономика! На экономистов, на диспетчеров, на продавцов, на культуру торговли… Так что, в эту сторону двинется вся экономика. Библиотека двинется в сторону ста двадцати единиц, которые будут… э-э-э… предмет укладывать на предмет. Сто двадцать единиц — предмет физика. Электрическая лампочка горит от ста двадцати кирпичей, потому что структура, так сказать, похожа у неё на кирпич. Илья Муромец работает на стадионе «Динамо». Илья Муромец работает у себя дома. Вот конкретная дипломатия! «Открытая дипломатия» — то же самое. Ну, берём телевизор, вставляем в Мурманский полуостров, накручиваем там… э-э-э… всё время чёрный хлеб… Так что же, будет Муромец, что ли, вырастать? Илья Муромец, что ли, будет вырастать из этого?

    1

    28
  41. Dario:

    У магиналов, пишущих на никому не нужном говне, вроде Lisp, Haskell, Forth, Prolog etc. это профдеформация. Среди таковых наибольшее число всяких фриков: язычники-долбославы, монархисты, нацики и прочий скам. Можно, вспомнить, например небезызвестного Никиту Садкова aka Золотце.

    Рассуждения про унтерменшей, конечно, забавно читать, ибо в глазах окружающих скорее такой маргинал сам ассоциируется с неприятным, дурно пахнущим бомжом, которого приличные люди обходят за километр. Как бы «чья корова мычала». На том же PHP во фрилансе можно легко поднимать 3K USD в месяц, а вот по лиспам-хаскалям вакансий тупо нет. Так что тут скорее зависть к более успешным людям, которые для достижения своего успеха приложили намного меньше усилий, чем лузер, дрочивший бесполезную математику. Хотя, как правило, такие товарищи чаще обсирают Java и 1C.

    А от Ричарда Столлмана данный товарищ отличается примерно так же, как камрад с Тупичка Гоблина от Карла Маркса. У первого за плечами GCC и немалый вклад в Linux, а ты никто и звать тебя никак. Как говорил один мой знакомый бизнесмен, «Хочешь ходить в немытой футболке как Джобс, так создай свою Apple, а до этого стирай и не выебывайся».

    23

    3
    • Логика:

      То что имеется спрос на пых-пых фрилансеров не показатель качества языка, скорее наоборот, показатель того что программирование на пыхе это обычная малоавтоматизируемая рутина, а кодер лишь элемент конвейера типа крутильщика гаек на заводе. Критически важный проект (то етсь такой, где реально требуетя высокая квалификация) никогда не отдадут ни на фриланс, ни на галеры. И вот в них как раз будет и лисп и хацкель и даже фортран. Причем тот же прототип на ацкеле потом может быть переведен автоматически в исходники на жабе, которые уже затем будут вручную вычитываться и исправляться макаками из стран третьего мира.
      3К в месяц это много лишь по рамкам нищей Укрожопии, да и то, как показывает практика, фрилансеры любят хвастаться ПИКОВЫМ месячным доходом, а не медианным. Не говоря уже про то что типичный фрилансер ебашит все время пока есть заказы, то есть может и по 14 часов в день без выходных кодить, пока клиент не уплыл. У таксистов и всяких разных строителей-ремонтников, между прочим, та же хрень.

      3

      1
      • Пассивненький:

        ВРЕШЬ, Я С ТОБОЙ В СРАКУ ЗА 5 БАКСОВ НЕ ЕБАЛСЯ!!

        0

        1
    • пейсатель инструкций:

      «зависть к более успешным людям» — это к тебе видимо,
      достигшего «своего успеха», «намного меньше усилий», «бесполезную математику» — так вот, почитай про маргиналов дурачок!!!

      «по лиспам-хаскалям вакансий тупо нет» — т.к. применимость таких языков не в тех областях что дают на аутсорс самоучкам колхозникам, и тем более не в стране победившего вайти и маргиналов-похапешникоф как ты, быдло

      1

      1
      • пейсатель инструкций:

        p.s. «Как говорил один мой знакомый бизнесмен» — не пизди хуйло, не знакомый он тебе, а просто чувак нанявший тебя соорудить сайтик-визитку для ларька шаурмы, куда ты приперся вонючий как и полагает колхознику «Хочешь ходить в немытой футболке как Джобс… ну да, ну да, конечно хочет, у него же успех

        3

        0
    • Хоба:

      И комментарий и голоса к нему очень показательные о состоянии ебаного айти.

      Знаю лично чувака, который пишет на Common Lisp, получил PhD и работает в Амазоне.
      Или ты думаешь, что те, кто пишут на Lisp или таком «говне» как Haskell, не смогут быстро осилить руби, или питон, или яваскрипт, который даже обезьяна осилит, чтобы бабки на говнокоде поднимать?
      Лови защекоин, вебмакака ебаная.

      0

      0
  42. Смузихлеб++:

    Ничего криминального в его словах не вижу. Я тоже не люблю всех подряд

    3

    6
  43. Зигмyнд Фpoйд:

    Верните доллар по 5, ублюдки!!!!

    4

    2
    • Слава роботам:

      Попробуй ебстись в сраку, уедешь в Эвропу и тебе будет допизды почем этот сраный доллар. Гей хлопцы це Эвропа!

      4

      5
    • Хач:

      Почему уже не по 2 как в 95?

      0

      0
  44. хоп:

    ха, кодер неожиданно понял что живет зря и не найдет лекарство от рака! Ну нихуяж себе!
    Да это самая обычная работа чтобы жрать, такая же как в кассе магнита, как у бабы в общественнлм сортире, отматывающей тебе бумагу, только с большим психологическим износом. Мир ты не спасешь нихуя ни на пыхыпэ ни лиспе ни на хуиспе, а самое главное, всем похую и до пизды здороваешься ты с ними или нет потому что выглядишь ты как чмошное серое пятно и общаться с тобрй и даж здороваться нихуя не интересно.

    22

    3
  45. Антон:

    Блять, я реально согласен что настоящее программирование это не то, что я ожидал в начале пути. Я немного согласен, что эти ваши пхп, джс — все говно. Вот реально, есть нормальные подходы, патерны. В каждой платформе что-то своё, особенное. Нет блять, тут приходит ёбаный фраемворк для джс и говорить что пишите ёбанный сайт, и я сделаю приложение на все платформы. Реально, иногда очень бесит.

    5

    0
    • /dev/null:

      >>Блять, я реально согласен что настоящее программирование это не то, что я ожидал в начале пути.
      Увольняйcя и пиздуй работать в сельпо, а по ночам дрочи гитхаб, кто мешает?

      4

      2
  46. Луркофаг негодуэ:

    Поцчему ПГМ вместо ФГМ и нет СПГС?

    0

    1
  47. john:

    Софтскилз детка

    0

    1
  48. Хипстер:

    знаю его, еще лет 5 назад часто пересекались на одном форуме по пхп фреймворку, видно перегорел пацанчик

    2

    1
  49. ровный:

    ебанько конкретный, ладно еслиб 17 лет, а так, судя по роже там все 30+. страничка в фб вся посвещена пивандрию, походу у ящера немного радостей.
    лечить нельзя только пиздить.

    4

    0
  50. sukablyad:

    Всё правильно сказал, пыхари не люди и тем более не программисты

    3

    3
    • Слава роботам:

      Натуралы не люди! Гей хлопцы це Эвропа! Ебстись в сраку решит все наши проблемы!

      2

      4
  51. Параграф Взаимоисключающий:

    Где, скажите, где Сенти увидел наци в этом долбоебе? Он хоть слово говорил о нацизме?

    Подсказка из зала: осуждать фашизм и нацизм будет значительно легче, если предварительно прочитать хотя бы страничку википедии о сабже и разобраться, что есть что.

    3

    0
    • Мамкин юрист:

      Статья 161. Умышленные действия, направленные на разжигание национальной, расовой или религиозной вражды и ненависти, на унижение национальной чести и достоинства или оскорбление чувств граждан в связи с их религиозными убеждениями, а также прямое или косвенное ограничение прав или установление прямых или непрямых привилегий граждан по признакам расы, цвета кожи, политических, религиозных и других убеждений, пола, этнического и социального происхождения, имущественного состояния, местожительства, по языковым или другим признакам

      0

      0
      • Слава роботам:

        Ебаться в сраку мое право! Гей хлопцы це Эвропа! Кацапские пидоры должны страдать так же как и сраные натуралы! Так переможем! Ебстись в сраци це нормально и целком разумно! Ебстись в сраку наша видповедь на кацапскую агрессию. Ебстись в сраку зразумиилый выбор кажного украинского хлопца! Ебстись в сраку це по эвропейски! Гей хлопцы це Эвропа!

        3

        1
    • Умею в аналогии:

      Окей, объясняю. При нацизме распостраняються взгляды, что есть хорошая раса — арии и плохие расы — жиды, нигеры, цигане (тысячи их). Автор сравнивает отношение оригинальных нацистов к расам с отношением сабжа к языкам программирования.

      З.Ы.
      Так исторически сложилось, что PHP имеет еврейские корни, поэтому ненависть к PHP-шникам, как к людям работающим на платформе созданной евреями, может быть одним из немногих утешений для нациста, в приличном обществе.

      2

      0
      • Злой пейсатель:

        Бляха-муха, нет слов. Еще раз на пальцах: фашизм != нацизм/расизм.

        Строго говоря, идея фашизма — это слияние крупного бизнеса с государством и выделение прявящего круга элитариев.

        То есть, если какое-то ебанько из профтехучилища на улице орет, что оно — за фашизм, оно буквально заявляет приблизительно следующее: «Я хочу, чтобы всем правил крупный бизнес, который создаст военную полицию — охранять себя от таких, как я».

        Нацизм/расизм при этом — просто один из идеологических инструментов, возможный и часто используемый, но необязательный.

        Это кардинально разные понятия. И чтобы их осуждать, желательно хотя бы понимать, что именно ты осуждаешь.

        Сравнение у автора всем прекрасно понятно, но оно кособокое, неграмотное и неуклюжее.

        2

        0
        • Злой пейсатель:

          Поправочка, сам запутался, блеать.

          По части путаницы между фашизмом и нацизмом — это не к Сенти претензия, а к комментаторам выше.

          А к Сенти — по поводу путаницы между нацизмом и расизмом. Но разницу расписывать не буду, заебался.
          Учебник истории вполне справится с этой задачей.

          0

          0
  52. хуй мамин:

    А что PHP это разве язык програмирования?

    3

    0
  53. Тёмная:

    Инженер — это тот, кто решает прикладные задачи своей головой сегодня. А те, кто той же головой хотят изменить мир к лучшем когда-нибудь завтра — это научные сотрудники и прочие ученые.

    А про «здороваться- не здороваться» — в школе парня научили грамотно писать сочинения, «писатель» обрек мысль на одно предложение в страничный высер.

    3

    0
  54. Леночка:

    Лучше дочь проститутка, чем сын PHP-шник

    6

    0
    • Тут_все_насрем:

      Вот соглашусь с тобой, шлюха. Хуже PHPшника только ангулярщик.

      1

      0
  55. Большой Хуй:

    портретом Саддама Хусейна — эм.. ничего не перепутали?

    0

    0
  56. John Galt:

    Топикстартер — уебан.
    Этот чел — ядреный ПХПшник — написал свои соображения — да странные и сумбурные, но ТС полез высасывать из пальца топик.

    0

    2
  57. Сеня:

    Вот:
    Зайнудин Кабаев (целитель, г. Астана):
    «Почитайте обязательно конец письма, там кроется весь секрет, многие не соблюдают эти правила, поэтому несчастны!!!! Прогоните лень и читайте, в конце скажете спасибо!!!
    Сейчас Вы получили это письмо, счастье стучится в Вашу жизнь, только соблюдайте правила!!!!
    Само письмо находится в Юрсхоуне (Голландия), оно обошло 445 раз вокруг света и попало к Вам. С получением письма его надо послать тому, кому Вы желаете счастья, и даже если Вы не верите в счастье из параллельных миров. Все зависит от Вас.
    Жизнь письма началась в 1254 г. В Россию оно попало в начале 20-го века.
    Письмо получила бедная крестьянка Цигунова и через 4 дня откопала клад, потом вышла замуж за князя Голицына и стала миллионершей. В 1943 г. письмо попало к маршалу Тухачевскому, который сжег его. Через 4 дня его арестовали и судили, потом расстреляли. В 1921 г. Конан Дойл получил письмо, и не распечатал его. Он попал в катастрофу и ему ампутировали обе руки. Хрущеву письмо подбросили на дачу, но так как он его не прочел, то на 4 день был свергнут своими друзьями. В 1980 г. Алла Пугачева, получив это письмо, сделала 20 копий, и через 4 месяца получила неожиданное приглашение от фирмы, после которого через 4 месяца получила на лицевой счет 20 тыс.$!
    Примеров очень много. Ни в коем случае не рвите письмо. Отнеситесь к этому серьезно. Это путь между настоящим и будущим. Письмо можно отправить свободно или в конверте, лишь бы оно дошло до адресата. Текст не изменять!
    Y618 15 18 E6+ xxzX z zxp5x — эти знаки принесут вам счастье 9 лет. Это письмо обошло вокруг света и сейчас должно посетить Ваш дом. Отправьте его людям, которые в нем нуждаются. Не посылайте денег — счастье не покупается. Не задерживайте письмо более 96 часов. Эта цепочка создана миллионерами Венесуэлы. Отправьте письмо приятелям и через 4 дня ждите сюрприза.
    Данте получил письмо в 1929году. Поручив своему секретарю отослать 20 копий, через несколько дней он получил 20000 долларов. Э. Дорозе получил письмо, но не отправил. При родах умерла его жена, родив больного сына. Через несколько дней Дорозе отправил несколько писем, обреченный мальчик выздоровел. Сделай 20 копий. Отправьте обязательно. Это не шарлатанство. Ждите сюрприза. С любовью все возможно. Это письмо удачи. Оригинал в Англии. Удача обошла весь мир 9 раз. Удача послана тебе, она посетит тебя в течении 4 дней со дня получения! Удачи!!!

    0

    1
  58. Ёбарь твоей мамки:

    Теперь люди, которые хотят тебя затралить, будут с тобой демонстративно здороваться, азаза!!))))

    0

    0
  59. ShowOralp:

    Looking for the best app to watch free movies on your Android phone? Then your should check Showbox APK. This is the most famous app today that has a big library of tv shows and films. This app is also available for computer users. But your need to download it first to enjoy free shows showbox-all.com

    0

    1
    • FUCK_YOU:

      Looking for the ZasheCoins? You got it! Check behind your cheek.

      0

      0
  60. ShowOralp:

    In 2019 there are lot of movies coming out. Obviously, there are Avengers part 2, new Star Wars Episode nine and many others. These are movies that every person wants to see, but sometimes you can miss it.It is where apps come in handy you can watch a movies for free. Btw, looking for the best app to watch free movies on your iOS phone? Then your should check Showbox app. This is the most famous app today that has a big library of shows and movies. This app is also available for Windows users. But your need to download it first to enjoy free movies http://showbox-all.com — Showbox download on PC

    0

    0
  61. ShowOralp:

    In 2019 there are lot of films coming out. Obviously, there are Avengers part 2, new Star Wars Episode IX and many others. These are movies that every person wants to see, but sometimes you can miss it.It is where applications come in handy you can watch a movies for free. Btw, looking for the best app to watch free movies on your iOS phone? Then your should check Showbox Application. This is the most famous app today that has a big library of tv shows and films. This app is also available for Windows users. But your need to download it first to enjoy free films Showbox app for pc

    0

    0
  62. Вася:

    Только я прочел на слонике «PHP frameworks gay»?

    0

    0