Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Changeset 1013 for palm/trunk


Ignore:
Timestamp:
Sep 21, 2012 7:03:55 AM (12 years ago)
Author:
raasch
Message:

FLOAT type conversion replaced by REAL

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/poisfft.f90

    r1004 r1013  
    44! Current revisions:
    55! -----------------
    6 !
     6! FLOAT type conversion replaced by REAL
    77!
    88! Former revisions:
    … …  
    406406             IF ( i >= 0 .AND. i <= nnxh )  THEN
    407407                ll(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * i ) / &
    408                                           FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
     408                                          REAL( nx+1 ) ) ) / ( dx * dx ) + &
    409409                        2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
    410                                           FLOAT( ny+1 ) ) ) / ( dy * dy )
     410                                          REAL( ny+1 ) ) ) / ( dy * dy )
    411411             ELSE
    412412                ll(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * ( nx+1-i ) ) / &
    413                                           FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
     413                                          REAL( nx+1 ) ) ) / ( dx * dx ) + &
    414414                        2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
    415                                           FLOAT( ny+1 ) ) ) / ( dy * dy )
     415                                          REAL( ny+1 ) ) ) / ( dy * dy )
    416416             ENDIF
    417417             DO  k = 0,nz-1
    … …  
    423423#else
    424424          DO  i = 0, nnxh
    425              ll(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * i ) / FLOAT( nx+1 ) ) ) / &
     425             ll(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * i ) / REAL( nx+1 ) ) ) / &
    426426                           ( dx * dx ) + &
    427                      2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / FLOAT( ny+1 ) ) ) / &
     427                     2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / REAL( ny+1 ) ) ) / &
    428428                           ( dy * dy )
    429429             DO  k = 0, nz-1
    … …  
    14891489             IF ( i >= 0 .AND. i <= nnxh ) THEN
    14901490                l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * i ) / &
    1491                                          FLOAT( nx+1 ) ) ) * ddx2 + &
     1491                                         REAL( nx+1 ) ) ) * ddx2 + &
    14921492                       2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
    1493                                          FLOAT( ny+1 ) ) ) * ddy2
     1493                                         REAL( ny+1 ) ) ) * ddy2
    14941494             ELSE
    14951495                l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * ( nx+1-i ) ) / &
    1496                                          FLOAT( nx+1 ) ) ) * ddx2 + &
     1496                                         REAL( nx+1 ) ) ) * ddx2 + &
    14971497                       2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
    1498                                          FLOAT( ny+1 ) ) ) * ddy2
     1498                                         REAL( ny+1 ) ) ) * ddy2
    14991499             ENDIF
    15001500          ENDDO

  • palm/trunk/SOURCE/poisfft_hybrid.f90

    r810 r1013  
    22
    33!------------------------------------------------------------------------------
    4 !
    54! Current revisions:
    65! -----------------
    7 !
     6! FLOAT type conversion replaced by REAL
    87!
    98! Former revisions:
    … …  
    914913             IF ( i >= 0 .AND. i < nnxh ) THEN
    915914                l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * i ) / &
    916                                         FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
     915                                        REAL( nx+1 ) ) ) / ( dx * dx ) + &
    917916                       2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
    918                                         FLOAT( ny+1 ) ) ) / ( dy * dy )
     917                                        REAL( ny+1 ) ) ) / ( dy * dy )
    919918             ELSEIF ( i == nnxh ) THEN
    920919                l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * ( nx+1-i ) ) / &
    921                                          FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
     920                                         REAL( nx+1 ) ) ) / ( dx * dx ) + &
    922921                       2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
    923                                          FLOAT(ny+1) ) ) / ( dy * dy )
     922                                         REAL(ny+1) ) ) / ( dy * dy )
    924923             ELSE
    925924                l(i) = 2.0 * ( 1.0 - COS( ( 2.0 * pi * ( nx+1-i ) ) / &
    926                                          FLOAT( nx+1 ) ) ) / ( dx * dx ) + &
     925                                         REAL( nx+1 ) ) ) / ( dx * dx ) + &
    927926                       2.0 * ( 1.0 - COS( ( 2.0 * pi * j ) / &
    928                                          FLOAT( ny+1 ) ) ) / ( dy * dy )
     927                                         REAL( ny+1 ) ) ) / ( dy * dy )
    929928             ENDIF
    930929          ENDDO
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |