2007-07-03

A long time ago...

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,'BOUNDFILE'//CHAR(0)) .EQ. 0) THEN
               IF (CHKBNDS .EQ. 1) THEN
                       IF (CHKBOUNDS .EQ. 0) THEN
                               LOADBOUNDS = LOADBOUNDS + 1
                       READ (VALUE, '(A60)') BNDFN(LOADBOUNDS)

                               IF (LOADBOUNDS .EQ. BNDS) THEN
                                       CHKBOUNDS = 1
                               ENDIF
                       ENDIF
               ENDIF


This was actually my first paid software job. I wonder what kept me going.



        IF(FILTER .EQ. 60) THEN
               /KILL("T3")
               /BUTTER("NOFILT","T3",2,0.0,100.0,1,1)
               /KILL("T2")
               /CONV("T3","T2",0,,,,,1)
               /KILL("T3")
               /BUTTER("T2","T3",2,0.0,100.0,1,1)
               /KILL("T2")
               /CONV("T3","T2",0,,,,,1)



So, any Trolls out there that know anything about any Fortran bindings for Qt?

posted by Johan Thelin @ 15:01   2 comments

2 Comments:

At 4:13 PM, Anonymous Anonymous said...

Nothing specifically about Fortran-Qt bindings, but gfortran acquired the F2003 BIND(C) capabilities only two days ago. It should be possible to use those to get Qt-Widgets to fortran (I've seen something similar for GTK floating around). Be aware that procedure pointers are not available yet, so signals/slot might be difficult.

 
At 4:14 PM, Blogger Johan Thelin said...

Ouch - you make me afraid :-)

 

Post a Comment

<< Home