Fortran

Multiple Key Sort in Fortran
I am looking for Fortran 77/95 source code for a multiple key sort. Input records can contain a variable number of (integer) fields where the number of fields is typically between 4 and 40. For a file of 40 field records, the records need to be sorted into ascending order of field 40 within field 39, withing fie... 3 Mar 2006 19:09

X-sudoku challenge (OT)
There was a thread a little while ago concerning Fortran-generated sudokus. I have now tuned my program to generate X-sudokus, in which each diagonal also has the constraint that each of the digits 1-9 must appear once. The one below has only 15 start values. Fame for the first correct solution? No guessing r... 1 Mar 2006 20:13

DBF file format
Dear expert user, How can I write my data to a DBF file format? Thanks HBP ... 10 Mar 2006 13:23

Help on array multiplication
Dear All, I have a challenging problem need you help. Given two arrays A and B: A is 3D with size NxNxN, B is 2D with size NxN, looking for a fast method ot calculate three 3D arrays C, D, E. Here C(:,:,k) is the matrix mulplication of A(:,:,k)*B for each k; D(:,,j,:) is the matrix mulplication of A(:,,... 14 Feb 2006 01:50

Fortran Features
A lot of people have ideas for Fortran features, judging by the numerous vendor extensions, most of which never become part of the standard. I assume that some reluctance to add features is to avoid feature bloat. In any case, here are a few I would like. Fortran has moved towards making user functions and subrou... 21 Feb 2006 13:43

2 formatting questions
How do I left justify the following? Character:: charac5*5 charac5 = 'abcde' write (1,'(a80)') charac5 'abcde' then gets printed on columns 76-80 instead of 1-5. I know the easy solution is to just do write (1,'(a5)') charac5 but I would like to know how to force left justification here. How do I sort a char... 6 Feb 2006 15:11

Viewing REAL values in Hex Format
Apparently the F90 Standard supports output of the values of Integer variables in Hexadecimal format(Z format descriptor), but not the values of Real variables. That is: Integer :: x x=1 write(*,fmt="(1X,Z16)") x end is correct. but Real :: x x=1.0+Epsilon(x) write(*,fmt="(1X,Z16)") x e... 8 Feb 2006 05:40

fast matrix multiplication
Hi all, I have a question regardin matrix multipllication. In my program I call a subroutine to multiplies to n*n matrices thousands of times SUBROUTINE multi(Nc,m1,m2,mtot) INTEGER i,j,l,Nc complex aa,m1(Nc,Nc),m2(Nc,Nc),mtot(Nc,Nc) do i=1,Nc do j=1,Nc aa=0. ... 26 Jan 2006 18:34

Anybody use GPPTOOL to do programming before
Hi All, I just want to know if anybody use GPPTOOL to do programming before. I have got some questions about my codes. Regards, James ... 4 Dec 2005 00:10

Write a Fortran program to solve Sudoku puzzles :-)
The layperson goes through the drudgery of solving Soduku puzzles by hand. However, us being somewhat more sophisticated, we prefer to let a computer do it for us. Engineers don't cheat - we just use better tools :-) So here's the challenge: can anyone write a Fortran program that can consistently, and better ye... 12 Dec 2005 09:20