sfac_mem_dynamic.F File Reference

Go to the source code of this file.

Modules
module	smumps_dynamic_memory_m

Functions/Subroutines
subroutine	smumps_dynamic_memory_m::smumps_dm_set_dynptr (cb_state, a, la, pamaster_or_ptrast, ixxd, ixxr, son_a, iachk, recsize)
subroutine	smumps_dynamic_memory_m::smumps_dm_pamasterorptrast (n, slavef, myid, keep28, keep199, inode, cb_state, ixxd, step, dad, procnode_steps, rcurrent, pamaster, ptrast, is_pamaster, is_ptrast)
logical function	smumps_dynamic_memory_m::smumps_dm_isband (xxstate)
logical function	smumps_dynamic_memory_m::smumps_dm_is_dynamic (ixxd)
subroutine	smumps_dynamic_memory_m::smumps_dm_fac_alloc_allowed (mem_count_to_allocate, keep8, iflag, ierror)
subroutine	smumps_dynamic_memory_m::smumps_dm_cbstatic2dynamic (strategy, sizer_needed, skip_top_stack, myid, n, slavef, keep, keep8, iw, liw, iwposcb, iwpos, a, la, lrlu, iptrlu, lrlus, step, ptrast, pamaster, procnode_steps, dad, iflag, ierror)
subroutine	smumps_dynamic_memory_m::smumps_dm_freealldynamiccb (myid, n, slavef, keep, keep8, iw, liw, iwposcb, iwpos, step, ptrast, pamaster, procnode_steps, dad, atomic_updates)
subroutine	smumps_dynamic_memory_m::smumps_dm_set_ptr (address, sizfr8, cbptr)
subroutine	smumps_dynamic_memory_m::smumps_dm_free_block (xxg_status, dynptr, sizfr8, atomic_updates, keep8)
subroutine	smumps_dm_freealldynamiccb_i (myid, n, slavef, keep, keep8, iw, liw, iwposcb, iwpos, step, ptrast, pamaster, procnode_steps, dad, atomic_updates)
subroutine	smumps_dm_cbstatic2dynamic_i (strategy, sizer_needed, skip_top_stack, myid, n, slavef, keep, keep8, iw, liw, iwposcb, iwpos, a, la, lrlu, iptrlu, lrlus, step, ptrast, pamaster, procnode_steps, dad, iflag, ierror)

Function/Subroutine Documentation

smumps_dm_cbstatic2dynamic_i()

subroutine smumps_dm_cbstatic2dynamic_i	(	integer, intent(in)	strategy,
		integer(8), intent(in)	sizer_needed,
		logical, intent(in)	skip_top_stack,
		integer, intent(in)	myid,
		integer, intent(in)	n,
		integer, intent(in)	slavef,
		integer, dimension(500), intent(in)	keep,
		integer(8), dimension(150), intent(inout)	keep8,
		integer, dimension( liw ), intent(inout)	iw,
		integer	liw,
		integer	iwposcb,
		integer	iwpos,
		real, dimension( la ), intent(in)	a,
		integer(8)	la,
		integer(8)	lrlu,
		integer(8)	iptrlu,
		integer(8)	lrlus,
		integer, dimension(n), intent(in)	step,
		integer(8), dimension(keep(28)), intent(inout)	ptrast,
		integer(8), dimension(keep(28)), intent(inout)	pamaster,
		integer, dimension(keep(28)), intent(in)	procnode_steps,
		integer, dimension(keep(28)), intent(in)	dad,
		integer, intent(inout)	iflag,
		integer, intent(inout)	ierror )

Definition at line 474 of file sfac_mem_dynamic.F.

      USE smumps_dynamic_memory_m, ONLY : smumps_dm_cbstatic2dynamic
      IMPLICIT NONE
      INTEGER, INTENT(in)  :: STRATEGY
      INTEGER(8), INTENT(in) :: SIZER_NEEDED
      LOGICAL, INTENT(in)    :: SKIP_TOP_STACK
      INTEGER, INTENT(in)  :: N, SLAVEF, KEEP(500)
      INTEGER, INTENT(in)  :: MYID
      INTEGER(8), INTENT(inout) :: KEEP8(150)
      INTEGER :: IWPOS, IWPOSCB, LIW
      INTEGER, INTENT(inout) :: IW( LIW )
      INTEGER(8) :: LA, LRLU, IPTRLU, LRLUS
      REAL, INTENT(in) :: A( LA )
      INTEGER, INTENT(in)    :: STEP(N)
      INTEGER(8), INTENT(inout) :: PTRAST(KEEP(28)), PAMASTER(KEEP(28))
      INTEGER, INTENT(in)    :: PROCNODE_STEPS(KEEP(28)), DAD(KEEP(28))
      INTEGER, INTENT(inout) :: IFLAG, IERROR
      CALL smumps_dm_cbstatic2dynamic( strategy,
     &           sizer_needed, skip_top_stack,
     &           myid, n, slavef,
     &           keep, keep8,
     &           iw, liw, iwposcb, iwpos,
     &           a, la, lrlu, iptrlu, lrlus, 
     &           step, ptrast, pamaster,
     &           procnode_steps, dad, iflag, ierror)
      RETURN

smumps_dm_freealldynamiccb_i()

subroutine smumps_dm_freealldynamiccb_i	(	integer, intent(in)	myid,
		integer, intent(in)	n,
		integer, intent(in)	slavef,
		integer, dimension(500), intent(in)	keep,
		integer(8), dimension(150), intent(inout)	keep8,
		integer, dimension( liw ), intent(inout)	iw,
		integer	liw,
		integer	iwposcb,
		integer	iwpos,
		integer, dimension(n), intent(in)	step,
		integer(8), dimension(keep(28)), intent(in)	ptrast,
		integer(8), dimension(keep(28)), intent(in)	pamaster,
		integer, dimension(keep(28)), intent(in)	procnode_steps,
		integer, dimension(keep(28)), intent(in)	dad,
		logical, intent(in)	atomic_updates )

Definition at line 453 of file sfac_mem_dynamic.F.

      USE smumps_dynamic_memory_m, ONLY : smumps_dm_freealldynamiccb
      IMPLICIT NONE
      INTEGER, INTENT(in)  :: N, SLAVEF, KEEP(500)
      INTEGER, INTENT(in)  :: MYID
      INTEGER(8), INTENT(inout) :: KEEP8(150)  
      INTEGER :: IWPOS, IWPOSCB, LIW
      INTEGER, INTENT(inout) :: IW( LIW ) 
      INTEGER, INTENT(in)    :: STEP(N)
      INTEGER(8), INTENT(in) :: PTRAST(KEEP(28)), PAMASTER(KEEP(28))
      INTEGER, INTENT(in)    :: PROCNODE_STEPS(KEEP(28)), DAD(KEEP(28))
      LOGICAL, INTENT(in)    :: ATOMIC_UPDATES
      CALL       smumps_dm_freealldynamiccb( myid, n, slavef,
     &           keep, keep8, iw, liw, iwposcb, iwpos,
     &           step, ptrast, pamaster,
     &           procnode_steps, dad, atomic_updates )
      RETURN