(De)Allocate vectors and arrays. More...

Data Types
interface	mpalloc
	allocate array More...

interface	mpdealloc
	deallocate array More...

Functions/Subroutines
subroutine	mpallocdvec (array, length, text)
	allocate (1D) double precision array

subroutine	mpallocfvec (array, length, text)
	allocate (1D) single precision array

subroutine	mpallocivec (array, length, text)
	allocate (1D) integer array

subroutine	mpallocfarr (array, rows, cols, text)
	allocate (2D) single precision array

subroutine	mpallociarr (array, rows, cols, text)
	allocate (2D) INTEGER(mpi) array

subroutine	mpalloclarr (array, rows, cols, text)
	allocate (2D) large integer array

subroutine	mpalloclist (array, length, text)
	allocate (1D) list item array

subroutine	mpalloccvec (array, length, text)
	allocate (1D) character array

subroutine	mpalloccheck (ifail, numwords, text)
	check allocation

subroutine	mpdeallocdvec (array)
	deallocate (1D) double precision array

subroutine	mpdeallocfvec (array)
	deallocate (1D) single precision array

subroutine	mpdeallocivec (array)
	deallocate (1D) integer array

subroutine	mpdeallocfarr (array)
	allocate (2D) single precision array

subroutine	mpdeallociarr (array)
	allocate (2D) integer array

subroutine	mpdealloclarr (array)
	deallocate (2D) large integer array

subroutine	mpdealloclist (array)
	deallocate (1D) list item array

subroutine	mpdealloccvec (array)
	deallocate (1D) character array

subroutine	mpdealloccheck (ifail, numwords)
	check deallocation

Variables
integer(mpl)	numwordsalloc = 0
	current dynamic memory allocation (words)

integer(mpl)	maxwordsalloc = 0
	peak dynamic memory allocation (words)

integer(mpi)	nummpalloc = 0
	number of dynamic allocations

integer(mpi)	nummpdealloc = 0
	number of dynamic deallocations

integer(mpi)	printflagalloc = 0
	print flag for dynamic allocations

Detailed Description

(De)Allocate vectors and arrays.

Function/Subroutine Documentation

◆ mpalloccheck()

subroutine mpdalc::mpalloccheck	(	integer(mpi), intent(in)	ifail,
		integer(mpl), intent(in)	numwords,
		character (len=*), intent(in)	text
	)

check allocation

Definition at line 140 of file mpdalc.f90.

        INTEGER(mpi), INTENT(IN) :: ifail
        INTEGER(mpl), INTENT(IN) :: numwords
        CHARACTER (LEN=*), INTENT(IN)  :: text
        IF (ifail == 0) THEN
            nummpalloc=nummpalloc+1
            numwordsalloc = numwordsalloc + numwords
            maxwordsalloc = max(maxwordsalloc, numwordsalloc)
            IF (printflagalloc /= 0) THEN
                print *, ' MPALLOC allocated ', numwords, ' words for : ', text
                print *, ' words used ', numwordsalloc, maxwordsalloc
            ENDIF
        ELSE
            print *, ' MPALLOC failed to allocate ', numwords, ' words for : ', text
            print *, ' MPALLOC words used ', numwordsalloc, maxwordsalloc
            print *, ' MPALLOC stat = ', ifail
            CALL peend(30,'Aborted, memory allocation failed')
            stop
        ENDIF

◆ mpalloccvec()

subroutine mpdalc::mpalloccvec	(	character, dimension(:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	length,
		character (len=*), intent(in)	text
	)

allocate (1D) character array

Definition at line 129 of file mpdalc.f90.

        CHARACTER, DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: length
        CHARACTER (LEN=*), INTENT(IN) :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(length),stat=ifail)
        CALL mpalloccheck(ifail,(length+mpi-1)/mpi,text)

◆ mpallocdvec()

subroutine mpdalc::mpallocdvec	(	real(mpd), dimension(:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	length,
		character (len=*), intent(in)	text
	)

allocate (1D) double precision array

Definition at line 49 of file mpdalc.f90.

        REAL(mpd), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: length
        CHARACTER (LEN=*), INTENT(IN) :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(length),stat=ifail)
        CALL mpalloccheck(ifail,(mpd*length)/mpi,text)

◆ mpallocfarr()

subroutine mpdalc::mpallocfarr	(	real(mps), dimension(:,:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	rows,
		integer(mpl), intent(in)	cols,
		character (len=*), intent(in)	text
	)

allocate (2D) single precision array

Definition at line 82 of file mpdalc.f90.

        REAL(mps), DIMENSION(:,:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: rows
        INTEGER(mpl), INTENT(IN) :: cols
        CHARACTER (LEN=*), INTENT(IN)  :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(rows,cols),stat=ifail)
        CALL mpalloccheck(ifail,(mps*rows*cols)/mpi,text)

◆ mpallocfvec()

subroutine mpdalc::mpallocfvec	(	real(mps), dimension(:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	length,
		character (len=*), intent(in)	text
	)

allocate (1D) single precision array

Definition at line 60 of file mpdalc.f90.

        REAL(mps), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: length
        CHARACTER (LEN=*), INTENT(IN) :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(length),stat=ifail)
        CALL mpalloccheck(ifail,(mps*length)/mpi,text)

◆ mpallociarr()

subroutine mpdalc::mpallociarr	(	integer(mpi), dimension(:,:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	rows,
		integer(mpl), intent(in)	cols,
		character (len=*), intent(in)	text
	)

allocate (2D) INTEGER(mpi) array

Definition at line 94 of file mpdalc.f90.

        INTEGER(mpi), DIMENSION(:,:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: rows
        INTEGER(mpl), INTENT(IN) :: cols
        CHARACTER (LEN=*), INTENT(IN)  :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(rows,cols),stat=ifail)
        CALL mpalloccheck(ifail,rows*cols,text)

◆ mpallocivec()

subroutine mpdalc::mpallocivec	(	integer(mpi), dimension(:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	length,
		character (len=*), intent(in)	text
	)

allocate (1D) integer array

Definition at line 71 of file mpdalc.f90.

        INTEGER(mpi), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: length
        CHARACTER (LEN=*), INTENT(IN) :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(length),stat=ifail)
        CALL mpalloccheck(ifail,length,text)

◆ mpalloclarr()

subroutine mpdalc::mpalloclarr	(	integer(mpl), dimension(:,:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	rows,
		integer(mpl), intent(in)	cols,
		character (len=*), intent(in)	text
	)

allocate (2D) large integer array

Definition at line 106 of file mpdalc.f90.

        INTEGER(mpl), DIMENSION(:,:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: rows
        INTEGER(mpl), INTENT(IN) :: cols
        CHARACTER (LEN=*), INTENT(IN)  :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(rows,cols),stat=ifail)
        CALL mpalloccheck(ifail,(mpl*rows*cols)/mpi,text)

◆ mpalloclist()

subroutine mpdalc::mpalloclist	(	type(listitem), dimension(:), intent(inout), allocatable	array,
		integer(mpl), intent(in)	length,
		character (len=*), intent(in)	text
	)

allocate (1D) list item array

Definition at line 118 of file mpdalc.f90.

        TYPE(listItem), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
        INTEGER(mpl), INTENT(IN) :: length
        CHARACTER (LEN=*), INTENT(IN) :: text
 
        INTEGER(mpi) :: ifail
        ALLOCATE (array(length),stat=ifail)
        CALL mpalloccheck(ifail,((mps+mpi)*length)/mpi,text)

◆ mpdealloccheck()

subroutine mpdalc::mpdealloccheck	(	integer(mpi), intent(in)	ifail,
		integer(mpl), intent(in)	numwords
	)

check deallocation

Definition at line 250 of file mpdalc.f90.

        INTEGER(mpi), INTENT(IN) :: ifail
        INTEGER(mpl), INTENT(IN) :: numwords
        IF (ifail == 0) THEN
            numwordsalloc = numwordsalloc - numwords
            nummpdealloc=nummpdealloc+1
            IF (printflagalloc /= 0) THEN
                print *, ' MPDEALLOC deallocated ', numwords, ' words '
                print *, ' words used ', numwordsalloc, maxwordsalloc
            ENDIF
        ELSE
            print *, ' MPDEALLOC failed to deallocate ', numwords, ' words'
            print *, ' MPDEALLOC words used ', numwordsalloc, maxwordsalloc
            print *, ' MPDEALLOC stat = ', ifail
            CALL peend(31,'Aborted, memory deallocation failed')
            stop
        ENDIF

◆ mpdealloccvec()

subroutine mpdalc::mpdealloccvec ( character, dimension(:), intent(inout), allocatable array )

deallocate (1D) character array

Definition at line 239 of file mpdalc.f90.

        CHARACTER, DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = (size(array,kind=mpl)+mpi-1)/mpi
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

◆ mpdeallocdvec()

subroutine mpdalc::mpdeallocdvec ( real(mpd), dimension(:), intent(inout), allocatable array )

deallocate (1D) double precision array

Definition at line 162 of file mpdalc.f90.

        REAL(mpd), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = (mpd*size(array,kind=mpl))/mpi
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

◆ mpdeallocfarr()

subroutine mpdalc::mpdeallocfarr ( real(mps), dimension(:,:), intent(inout), allocatable array )

allocate (2D) single precision array

Definition at line 195 of file mpdalc.f90.

        REAL(mps), DIMENSION(:,:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = (mps*size(array,kind=mpl))/mpi
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

◆ mpdeallocfvec()

subroutine mpdalc::mpdeallocfvec ( real(mps), dimension(:), intent(inout), allocatable array )

deallocate (1D) single precision array

Definition at line 173 of file mpdalc.f90.

        REAL(mps), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = (mps*size(array,kind=mpl))/mpi
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

◆ mpdeallociarr()

subroutine mpdalc::mpdeallociarr ( integer(mpi), dimension(:,:), intent(inout), allocatable array )

allocate (2D) integer array

Definition at line 206 of file mpdalc.f90.

        INTEGER(mpi), DIMENSION(:,:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = size(array,kind=mpl)
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

◆ mpdeallocivec()

subroutine mpdalc::mpdeallocivec ( integer(mpi), dimension(:), intent(inout), allocatable array )

deallocate (1D) integer array

Definition at line 184 of file mpdalc.f90.

        INTEGER(mpi), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = size(array,kind=mpl)
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

◆ mpdealloclarr()

subroutine mpdalc::mpdealloclarr ( integer(mpl), dimension(:,:), intent(inout), allocatable array )

deallocate (2D) large integer array

Definition at line 217 of file mpdalc.f90.

        INTEGER(mpl), DIMENSION(:,:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = (mpl*size(array,kind=mpl))/mpi
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

◆ mpdealloclist()

subroutine mpdalc::mpdealloclist ( type(listitem), dimension(:), intent(inout), allocatable array )

deallocate (1D) list item array

Definition at line 228 of file mpdalc.f90.

        TYPE(listItem), DIMENSION(:), INTENT(IN OUT), ALLOCATABLE :: array
 
        INTEGER(mpi) :: ifail
        INTEGER(mpl) :: isize
        isize = ((mpi+mps)*size(array,kind=mpl))/mpi
        DEALLOCATE (array,stat=ifail)
        CALL mpdealloccheck(ifail,isize)

Variable Documentation

◆ maxwordsalloc

integer(mpl) mpdalc::maxwordsalloc = 0

peak dynamic memory allocation (words)

Definition at line 30 of file mpdalc.f90.

30 INTEGER(mpl) :: maxwordsalloc = 0

◆ nummpalloc

integer(mpi) mpdalc::nummpalloc = 0

number of dynamic allocations

Definition at line 31 of file mpdalc.f90.

31 INTEGER(mpi) :: nummpalloc = 0

◆ nummpdealloc

integer(mpi) mpdalc::nummpdealloc = 0

number of dynamic deallocations

Definition at line 32 of file mpdalc.f90.

32 INTEGER(mpi) :: nummpdealloc = 0

◆ numwordsalloc

integer(mpl) mpdalc::numwordsalloc = 0

current dynamic memory allocation (words)

Definition at line 29 of file mpdalc.f90.

29 INTEGER(mpl) :: numwordsalloc = 0

◆ printflagalloc

integer(mpi) mpdalc::printflagalloc = 0

print flag for dynamic allocations

Definition at line 33 of file mpdalc.f90.

33 INTEGER(mpi) :: printflagalloc = 0

Data Types

Functions/Subroutines

Variables