OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
hm_option_is_encrypted.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine hm_option_is_encrypted (is_encrypted)

Function/Subroutine Documentation

◆ hm_option_is_encrypted()

subroutine hm_option_is_encrypted ( logical, intent(out) is_encrypted)

Definition at line 283 of file hm_option_is_encrypted.F.

284C-----------------------------------------------
285C ROUTINE DESCRIPTION :
286C ===================
287C GIVE THE INFORMATION THAT AT LEAST ONE LINE OF AN OPTION IS CRYPTED
288C-----------------------------------------------
289C DUMMY ARGUMENTS DESCRIPTION:
290C ===================
291C
292C NAME DESCRIPTION
293C
294C IS_ENCRYPTED IS AT LEAST ONE LINE OF THE OPTION CRYPTED TRUE OR FALSE
295C============================================================================
296C M o d u l e s
297C-----------------------------------------------
298 USE message_mod
299 USE submodel_mod
300C-----------------------------------------------
301C I m p l i c i t T y p e s
302C-----------------------------------------------
303#include "implicit_f.inc"
304C-----------------------------------------------
305C D u m m y A r g u m e n t s
306C-----------------------------------------------
307C OUTPUT ARGUMENTS
308 LOGICAL,INTENT(OUT)::IS_ENCRYPTED
309C-----------------------------------------------
310 is_encrypted = .false.
311 CALL cpp_option_is_crypted(is_encrypted)
312 RETURN
313C