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

Go to the source code of this file.

Functions/Subroutines

subroutine hm_read_th ()

Function/Subroutine Documentation

◆ hm_read_th()

subroutine hm_read_th

Definition at line 28 of file hm_read_th.F.

29C-----------------------------------------------
30C M o d u l e s
31C-----------------------------------------------
32 USE message_mod
33C-----------------------------------------------
34C I m p l i c i t T y p e s
35C-----------------------------------------------
36#include "implicit_f.inc"
37C-----------------------------------------------
38C C o m m o n B l o c k s
39C-----------------------------------------------
40#include "scr05_c.inc"
41C-----------------------------------------------
42C L o c a l V a r i a b l e s
43C-----------------------------------------------
44 INTEGER I
45C-----------------------------------------------
46C Initializations ../..
47C-----------------------------------------------
48 th_vers = 0
49C-----------------------------------------------
50C Read options ../..
51C-----------------------------------------------
52C
53C-----------------------------------------------
54C Finitializations ../..
55C-----------------------------------------------
56CF ** ERROR : TH VERSION OLDER THAN 41 IS NO MORE SUPPORTED
57 th_vers=max(th_vers,41)
58C-----------------------------------------------
59 RETURN
#define max(a, b)
Definition macros.h:21