sensor_user_alloc.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	sensor_user_alloc (already_done, sensor_user_struct)

Function/Subroutine Documentation

sensor_user_alloc()

subroutine sensor_user_alloc	(	logical, intent(inout)	already_done,
		type(sensor_user_struct_), intent(inout)	sensor_user_struct )

Definition at line 29 of file sensor_user_alloc.F.

!$COMMENT
!       SENSOR_USER_ALLOC description
!       allocation of array for user sensor
!       
!       SENSOR_USER_ALLOC 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 n a l y s e   M o d u l e
C-----------------------------------------------
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        LOGICAL, INTENT(inout) :: ALREADY_DONE
        TYPE(sensor_user_struct_), INTENT(inout) :: SENSOR_USER_STRUCT
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER :: SIZE_LOCAL
!   -------------------------------
 
        already_done = .true.
        sensor_user_struct%IS_USED = .true.
 
        size_local = numnod
        ALLOCATE( sensor_user_struct%NODE_LIST(size_local) )
        ALLOCATE( sensor_user_struct%NODE_PER_PART_LIST(size_local) )
 
        sensor_user_struct%NUMBER_NODE = size_local
        sensor_user_struct%NUMBER_NODE_PER_PART = size_local
 
        size_local = npart
        ALLOCATE( sensor_user_struct%PART_LIST(size_local) )
        sensor_user_struct%NUMBER_PART = size_local
 
 
        RETURN