Changeset 32 for XMLIO_SERVER/trunk/src/IOSERVER/mod_global_memory.f90

Timestamp:

04/20/09 18:16:37 (15 years ago)

Author:

ymipsl

Message:

Portage sur Vargas + correction sur IOSERVER : finalisation de la derniÚre requÚte

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_global_memory.f90 (modified) (2 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_global_memory.f90

@@ -4 +4 @@
     MODULE PROCEDURE Allocate_global_memory_r8,    &
                      Allocate_global_memory_i8,    &
-                     Allocate_global_memory_r4,    &
+!                     Allocate_global_memory_r4,    &
                      Allocate_global_memory_i4
   END INTERFACE Allocate_global_memory
@@ -65 +65 @@
   
   
-  SUBROUTINE Allocate_global_memory_r4(size,Pt)
-  IMPLICIT NONE
-    INCLUDE 'mpif.h'
-    REAL(kind=4),POINTER :: Pt(:)
-    INTEGER              :: size
-
-    POINTER (Pbuffer,MPI_Buffer(size))
-    REAL(kind=4) :: MPI_Buffer
-    INTEGER(KIND=MPI_ADDRESS_KIND) :: BS 
-    INTEGER :: ierr
-    
-    BS=4*size
-    CALL MPI_ALLOC_MEM(BS,MPI_INFO_NULL,Pbuffer,ierr)
-    CALL associate_buffer(MPI_Buffer,Pt)
-  
-  CONTAINS
-  
-    SUBROUTINE associate_buffer(MPI_buffer,Pt)
-    IMPLICIT NONE
-      REAL(kind=4),DIMENSION(:),target :: MPI_Buffer
-      REAL(kind=4),POINTER             :: Pt(:)
-      Pt=>MPI_buffer
-    END SUBROUTINE associate_buffer
-  
-  END SUBROUTINE Allocate_global_memory_r4
+!  SUBROUTINE Allocate_global_memory_r4(size,Pt)
+!  IMPLICIT NONE
+!    INCLUDE 'mpif.h'
+!    REAL(kind=4),POINTER :: Pt(:)
+!    INTEGER              :: size
+!
+!    POINTER (Pbuffer,MPI_Buffer(size))
+!    REAL(kind=4) :: MPI_Buffer
+!    INTEGER(KIND=MPI_ADDRESS_KIND) :: BS 
+!    INTEGER :: ierr
+!    
+!    BS=4*size
+!    CALL MPI_ALLOC_MEM(BS,MPI_INFO_NULL,Pbuffer,ierr)
+!    CALL associate_buffer(MPI_Buffer,Pt)
+!  
+!  CONTAINS
+!  
+!    SUBROUTINE associate_buffer(MPI_buffer,Pt)
+!    IMPLICIT NONE
+!      REAL(kind=4),DIMENSION(:),target :: MPI_Buffer
+!      REAL(kind=4),POINTER             :: Pt(:)
+!      Pt=>MPI_buffer
+!    END SUBROUTINE associate_buffer
+!  
+!  END SUBROUTINE Allocate_global_memory_r4