st_array_size.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "units_c.inc"
#include "commandline.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	printstsz (detonators)

Function/Subroutine Documentation

printstsz()

subroutine printstsz

(

type(detonators_struct_)

detonators

)

Definition at line 32 of file st_array_size.F.

C-----------------------------------------------
      USE detonators_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "param_c.inc"
#include      "units_c.inc"
#include      "commandline.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(DETONATORS_STRUCT_)::DETONATORS
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER LEN_G, LEN_M, LEN_S, MEM
      INTEGER VMPEAK, VMSIZE,VMRSS,VMHWM, VMSTK
C-----------------------------------------------
        len_g = npropgi*numgeo
        len_m = npropmi*nummat      
        len_s = npart     
        CALL map_memory(vmpeak, vmsize,vmrss,vmhwm, vmstk)
 
        IF( got_inspire_alm == 1)THEN
            IF(got_mem_map == 1 )THEN
                WRITE(iout,1101) vmpeak, vmsize,vmrss,vmhwm, vmstk
            ELSE
                IF(vmhwm/=-1) THEN 
                    mem = vmhwm
                ELSEIF(vmpeak/=-1) THEN
                    mem = vmpeak
                ELSEIF(vmsize/=-1) THEN
                    mem = vmsize
                ELSE
                    mem = -1
                ENDIF
                WRITE(iout,1001) mem
            ENDIF
        ELSE
            IF(got_mem_map == 1 )THEN
                WRITE(iout,1100) vmpeak, vmsize,vmrss,vmhwm, vmstk
            ELSE
                IF(vmhwm/=-1) THEN 
                    mem = vmhwm
                ELSEIF(vmpeak/=-1) THEN
                    mem = vmpeak
                ELSEIF(vmsize/=-1) THEN
                    mem = vmsize
                ELSE
                    mem = -1
                ENDIF
                WRITE(iout,1000) mem
            ENDIF
        ENDIF    
 
 
        
 1000 FORMAT(/,
     . ' '/
     . '    STARTER STORAGE '/
     . '    --------------- '/
     . ' '/
     . '    STARTER MEMORY USAGE ',i10,' MB'/)
 1001 FORMAT(/,
     . ' '/
     . '    SOLVER STORAGE '/
     . '    --------------- '/
     . ' '/
     . '    SOLVER MEMORY USAGE ',i10,' MB'/)
 
 1100 FORMAT(/,
     . ' '/
     . '    STARTER MEMORY USAGE '/
     . '    --------------- '/
     . ' '/
     . '    VmPeak ',i10,' MB'/
     . '    VmSize ',i10,' MB'/
     . '    VmRSS  ',i10,' MB'/
     . '    VmHWM  ',i10,' MB'/
     . '    VmStk  ',i10,' MB')
 1101 FORMAT(/,
     . ' '/
     . '    SOLVER MEMORY USAGE '/
     . '    --------------- '/
     . ' '/
     . '    VmPeak ',i10,' MB'/
     . '    VmSize ',i10,' MB'/
     . '    VmRSS  ',i10,' MB'/
     . '    VmHWM  ',i10,' MB'/
     . '    VmStk  ',i10,' MB')