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.

C-----------------------------------------------
C   ROUTINE DESCRIPTION :
C   ===================
C   GIVE THE INFORMATION THAT AT LEAST ONE LINE OF AN OPTION IS CRYPTED
C-----------------------------------------------
C   DUMMY ARGUMENTS DESCRIPTION:
C   ===================
C
C     NAME               DESCRIPTION                         
C
C     IS_ENCRYPTED   IS AT LEAST ONE LINE OF THE OPTION CRYPTED TRUE OR FALSE
C============================================================================
C   M o d u l e s
C-----------------------------------------------
      USE message_mod       
      USE submodel_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
C OUTPUT ARGUMENTS
      LOGICAL,INTENT(OUT)::IS_ENCRYPTED
C-----------------------------------------------
      is_encrypted   = .false.
      CALL cpp_option_is_crypted(is_encrypted) 
      RETURN
C