MFIX  2016-1
init_resid.f
Go to the documentation of this file.
1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2 ! C
3 ! Module name: INIT_RESID(IER) C
4 ! Purpose: Initialize residuals C
5 ! C
6 ! C
7 ! Author: M. Syamlal Date: 8-JUL-96 C
8 ! Reviewer: Date: C
9 ! C
10 ! C
11 ! Literature/Document References: C
12 ! C
13 ! Variables referenced: C
14 ! Variables modified: C
15 ! C
16 ! Local variables: C
17 ! C
18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
19 !
20  SUBROUTINE init_resid()
21 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98
22 !...Switches: -xf
23 !
24 ! Include param.inc file to specify parameter values
25 !
26 !-----------------------------------------------
27 ! M o d u l e s
28 !-----------------------------------------------
29  USE param
30  USE param1
31  USE physprop
32  USE residual
33  IMPLICIT NONE
34 !-----------------------------------------------
35 ! G l o b a l P a r a m e t e r s
36 !-----------------------------------------------
37 !-----------------------------------------------
38 ! D u m m y A r g u m e n t s
39 !-----------------------------------------------
40 !
41 ! residual number
42  INTEGER L
43 !
44 ! Phase index
45  INTEGER M
46 !
47 !-----------------------------------------------
48 !
49  l = 1
50  IF (nresid > 0) THEN
51  m = 0
52  IF (mmax + 1 > 0) THEN
53  resid(:nresid,:mmax) = zero
54  m = mmax + 1
55  ENDIF
56  l = nresid + 1
57  ENDIF
58  RETURN
59  END SUBROUTINE init_resid
residual::nresid
integer, parameter nresid
Definition: residual_mod.f:18
physprop::mmax
integer mmax
Definition: physprop_mod.f:19
param
Definition: param_mod.f:2
residual::resid
double precision, dimension(:,:), allocatable resid
Definition: residual_mod.f:37
param1::zero
double precision, parameter zero
Definition: param1_mod.f:27
init_resid
subroutine init_resid()
Definition: init_resid.f:21