sensor_user_init.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sensor_user_init (sensor_user_struct)

Function/Subroutine Documentation

sensor_user_init()

subroutine sensor_user_init

(

type(sensor_user_struct_), intent(inout)

sensor_user_struct

)

Definition at line 29 of file sensor_user_init.F.

!$COMMENT
!       SENSOR_USER_INIT description
!       initialization of size of SENSOR_USER_STRUCT
!       
!       SENSOR_USER_INIT organization :
!$ENDCOMMENT
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------  
      USE sensor_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   A r g u m e n t s
C-----------------------------------------------
      type(sensor_user_struct_), INTENT(inout) :: SENSOR_USER_STRUCT
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
        sensor_user_struct%IS_USED = .false.
 
        sensor_user_struct%NUMBER_NODE = 0
        sensor_user_struct%NUMBER_PART = 0
        sensor_user_struct%NUMBER_NODE_PER_PART = 0
 
        sensor_user_struct%POINTER_NODE = 0
        sensor_user_struct%POINTER_PART = 0
        sensor_user_struct%POINTER_NODE_PER_PART = 0
 
        RETURN