mod_infovar Module Reference

Data Types
type	infovar

Functions/Subroutines
subroutine	set_infovar (v, vname, vtype, vval, vbound, xpos, ypos, vpid, vpt, vlay)
subroutine	print_infovar (v, iunit)

Function/Subroutine Documentation

print_infovar()

subroutine mod_infovar::print_infovar	(	type(infovar), intent(inout)	v,
		integer, intent(in)	iunit
	)

Definition at line 81 of file mod_boundschk.f90.

    type(infovar), intent(inout) :: v
    integer, intent(in) :: iunit

    write(iunit,*)'variable: ',trim(v%var)
    if(v%vtype==1)then
      write(iunit,*)'type    :  node' 
    else
      write(iunit,*)'type    :  elem' 
    endif
    write(iunit,*)'value   : ',v%val
    write(iunit,*)'bound   : ',v%bnd
    write(iunit,*)'x-pos   : ',v%xpos
    write(iunit,*)'y-pos   : ',v%ypos
    if(v%vtype==1)then
      write(iunit,*)'vertex  :  ',v%pt 
    else
      write(iunit,*)'cell    :  ',v%pt 
    endif
    write(iunit,*)'prod id : ',v%pid
    write(iunit,*)'layer   : ',v%lay

Here is the caller graph for this function:

set_infovar()

subroutine mod_infovar::set_infovar	(	type(infovar), intent(inout)	v,
		character(len=20)	vname,
		integer, intent(in)	vtype,
		real(sp), intent(in)	vval,
		real(sp), intent(in)	vbound,
		real(sp), intent(in)	xpos,
		real(sp), intent(in)	ypos,
		integer, intent(in)	vpid,
		integer, intent(in)	vpt,
		integer, intent(in)	vlay
	)

Definition at line 57 of file mod_boundschk.f90.

    type(infovar), intent(inout) :: v
    character(len=20)    :: vname
    integer,  intent(in) :: vtype
    real(sp), intent(in) :: vval
    real(sp), intent(in) :: vbound
    real(sp), intent(in) :: xpos 
    real(sp), intent(in) :: ypos 
    integer,  intent(in) :: vpid
    integer,  intent(in) :: vpt
    integer,  intent(in) :: vlay 

    v%var   = vname
    v%vtype = vtype
    v%val   = vval
    v%bnd   = vbound
    v%xpos  = xpos
    v%ypos  = ypos 
    v%pt    = vpt
    v%pid   = vpid
    v%lay   = vlay

Here is the caller graph for this function: