{"id":124,"date":"2007-07-03T15:01:00","date_gmt":"2007-07-03T13:01:00","guid":{"rendered":"http:\/\/www.thelins.se\/johan\/blog\/2007\/07\/a-long-time-ago\/"},"modified":"2007-07-03T15:01:00","modified_gmt":"2007-07-03T13:01:00","slug":"a-long-time-ago","status":"publish","type":"post","link":"https:\/\/www.thelins.se\/johan\/blog\/2007\/07\/a-long-time-ago\/","title":{"rendered":">A long time ago&#8230;"},"content":{"rendered":"<p>><\/p>\n<p>I found some old code today.<\/p>\n<pre>!       Boundaries<br \/><br \/>       CHARACTER*60    BNDFN(1:15)<br \/>       INTEGER*2       CHKBOUNDS<br \/>       INTEGER*2       LOADBOUNDS<br \/><br \/>       INTEGER*2       BNDS<br \/>       INTEGER*2       CHKBNDS<br \/><br \/>       COMMON  \/CBOUND\/ BNDFN,CHKBOUNDS,LOADBOUNDS,BNDS,CHKBNDS<br \/><\/pre>\n<p>I just have to say that I love the code, in a painful kind of way.<\/p>\n<pre>        ELSE IF (STRINGCOMPARE(VARIABLE,'BOUNDFILE'\/\/CHAR(0)) .EQ. 0) THEN<br \/>               IF (CHKBNDS .EQ. 1) THEN<br \/>                       IF (CHKBOUNDS .EQ. 0) THEN<br \/>                               LOADBOUNDS = LOADBOUNDS + 1<br \/>                       READ (VALUE, '(A60)') BNDFN(LOADBOUNDS)<br \/><br \/>                               IF (LOADBOUNDS .EQ. BNDS) THEN<br \/>                                       CHKBOUNDS = 1<br \/>                               ENDIF<br \/>                       ENDIF<br \/>               ENDIF<br \/><\/pre>\n<p>This was actually my first paid software job. I wonder what kept me going.<\/p>\n<pre>        IF(FILTER .EQ. 60) THEN<br \/>               \/KILL(\"T3\")<br \/>               \/BUTTER(\"NOFILT\",\"T3\",2,0.0,100.0,1,1)<br \/>               \/KILL(\"T2\")<br \/>               \/CONV(\"T3\",\"T2\",0,,,,,1)<br \/>               \/KILL(\"T3\")<br \/>               \/BUTTER(\"T2\",\"T3\",2,0.0,100.0,1,1)<br \/>               \/KILL(\"T2\")<br \/>               \/CONV(\"T3\",\"T2\",0,,,,,1)<br \/><br \/><\/pre>\n<p>So, any Trolls out there that know anything about any Fortran bindings for Qt?<\/p>\n","protected":false},"excerpt":{"rendered":"<p>> I found some old code today. ! Boundaries CHARACTER*60 BNDFN(1:15) INTEGER*2 CHKBOUNDS INTEGER*2 LOADBOUNDS INTEGER*2 BNDS INTEGER*2 CHKBNDS COMMON \/CBOUND\/ BNDFN,CHKBOUNDS,LOADBOUNDS,BNDS,CHKBNDS I just have to say that I love the code, in a painful kind of way. ELSE IF (STRINGCOMPARE(VARIABLE,&#8217;BOUNDFILE&#8217;\/\/CHAR(0)) .EQ. 0) THEN IF (CHKBNDS .EQ. 1) THEN IF (CHKBOUNDS .EQ. 0) THEN LOADBOUNDS &hellip; <a href=\"https:\/\/www.thelins.se\/johan\/blog\/2007\/07\/a-long-time-ago\/\" class=\"more-link\">Continue reading <span class=\"screen-reader-text\">>A long time ago&#8230;<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-124","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/posts\/124","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/comments?post=124"}],"version-history":[{"count":0,"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/posts\/124\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/media?parent=124"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/categories?post=124"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.thelins.se\/johan\/blog\/wp-json\/wp\/v2\/tags?post=124"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}