Changeset 415 for palm/trunk


Ignore:
Timestamp:
Dec 15, 2009 10:26:23 AM (15 years ago)
Author:
raasch
Message:

fortran bugfix in subroutine cascade concerning dimension os MPI status variable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poisfft_hybrid.f90

    r412 r415  
    10041004       INTEGER, SAVE ::  tag = 10
    10051005#if defined( __parallel )
    1006        INTEGER, DIMENSION(MPI_STATUS_SIZE,1) :: stat
     1006       INTEGER, DIMENSION(MPI_STATUS_SIZE)   :: stat
     1007       INTEGER, DIMENSION(MPI_STATUS_SIZE,1) :: stata
    10071008#endif
    10081009
     
    10221023                   CALL MPI_SENDRECV( buf,  1, MPI_REAL, me_task-1, 0, &
    10231024                                      buf1, 1, MPI_REAL, me_task-1, 0, &
    1024                                                  comm_tasks, stat,ierr )
     1025                                                 comm_tasks, stat, ierr )
    10251026#endif
    10261027                ELSEIF ( j > nys_p )  THEN
     
    10311032                                   tag, comm_tasks, req, ierr )
    10321033                   reqa = req
    1033                    CALL MPI_WAITALL( 1, reqa, stat, ierr )
     1034                   CALL MPI_WAITALL( 1, reqa, stata, ierr )
    10341035#endif
    10351036                ENDIF
Note: See TracChangeset for help on using the changeset viewer.