Changes in palm/trunk/SOURCE/poisfft.f90 [3:1]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft.f90
r3 r1 8 8 ! Former revisions: 9 9 ! ----------------- 10 ! $Id$ 11 ! RCS Log replace by Id keyword, revision history cleaned up 12 ! 10 ! $Log: poisfft.f90,v $ 13 11 ! Revision 1.24 2006/08/04 15:00:24 raasch 14 12 ! Default setting of the thread number tn in case of not using OpenMP … … 17 15 ! Additional compiler directive in routine tridia_1dd for preventing loop 18 16 ! exchange on NEC-SX6 17 ! 18 ! Revision 1.22 2005/05/18 15:53:00 raasch 19 ! Missing argument in ffty 20 ! 21 ! Revision 1.21 2005/03/26 20:51:59 raasch 22 ! Use of module indices removed from routine split_1dd since it caused errors 23 ! in case of nx /= ny 19 24 ! 20 25 ! Revision 1.20 2004/04/30 12:38:09 raasch … … 25 30 ! is now a 1d-array, variables passed by modules instead of using parameter 26 31 ! lists, enlarged transposition arrays introduced 32 ! 33 ! Revision 1.19 2003/04/16 13:11:16 raasch 34 ! Internal fft method calls substituted by calls of fft_x_1dd and fft_y_1dd 35 ! 36 ! Revision 1.18 2003/03/16 09:44:45 raasch 37 ! Two underscores (_) are placed in front of all define-strings 38 ! 39 ! Revision 1.17 2003/03/12 16:36:34 raasch 40 ! System specific version for NEC included (equivalent to CRAY scilib 41 ! calls, but different subroutine names; the CRAY names are replaced with 42 ! NEC names by cpp), size of array work1 is expanded because NEC routines 43 ! need more memory 44 ! 45 ! Revision 1.15 2002/06/11 13:14:31 raasch 46 ! System specific version for IBM included (parallel case only) 47 ! 48 ! Revision 1.13 2001/01/25 22:19:18 letzel 49 ! All comments translated into English. 50 ! 51 ! Revision 1.12 2001/01/23 01:53:04 raasch 52 ! Total revision of parallel and non-paralle fft-routines. Additional 53 ! implementation of the singleton algorithm. 54 ! 55 ! Revision 1.9 1998/07/27 08:12:56 schroeter 56 ! Berechnung von l in maketri geschieht nun ausserhalb 57 ! der k-Schleife, da unabhaengig von k, dadurch 58 ! Rechenzeitersparnis 59 ! 60 ! Revision 1.8 1998/07/24 07:52:09 schroeter 61 ! Anpassung des Druckloesealgorithmusses an Vorgehensweise 62 ! von Schmidt, Schumann und Volkert 63 ! (DFVLR-Mitteilung 84-15, S. 20-26) 27 64 ! 28 65 ! Revision 1.1 1997/07/24 11:24:14 raasch
Note: See TracChangeset
for help on using the changeset viewer.