← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to users/elec/useli1.f90

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-24 00:00:08 UTC
  • mfrom: (6.1.9 sid)
  • Revision ID: package-import@ubuntu.com-20111124000008-2vo99e38267942q5
Tags: 2.1.0-3
Install a missing file

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/elec/useli1.f90
2
2
 
3
3
!VERS
4
4
 
5
 
 
6
 
!     This file is part of the Code_Saturne Kernel, element of the
7
 
!     Code_Saturne CFD tool.
8
 
 
9
 
!     Copyright (C) 1998-2009 EDF S.A., France
10
 
 
11
 
!     contact: saturne-support@edf.fr
12
 
 
13
 
!     The Code_Saturne Kernel is free software; you can redistribute it
14
 
!     and/or modify it under the terms of the GNU General Public License
15
 
!     as published by the Free Software Foundation; either version 2 of
16
 
!     the License, or (at your option) any later version.
17
 
 
18
 
!     The Code_Saturne Kernel is distributed in the hope that it will be
19
 
!     useful, but WITHOUT ANY WARRANTY; without even the implied warranty
20
 
!     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
21
 
!     GNU General Public License for more details.
22
 
 
23
 
!     You should have received a copy of the GNU General Public License
24
 
!     along with the Code_Saturne Kernel; if not, write to the
25
 
!     Free Software Foundation, Inc.,
26
 
!     51 Franklin St, Fifth Floor,
27
 
!     Boston, MA  02110-1301  USA
 
5
! This file is part of Code_Saturne, a general-purpose CFD tool.
 
6
!
 
7
! Copyright (C) 1998-2011 EDF S.A.
 
8
!
 
9
! This program is free software; you can redistribute it and/or modify it under
 
10
! the terms of the GNU General Public License as published by the Free Software
 
11
! Foundation; either version 2 of the License, or (at your option) any later
 
12
! version.
 
13
!
 
14
! This program is distributed in the hope that it will be useful, but WITHOUT
 
15
! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 
16
! FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 
17
! details.
 
18
!
 
19
! You should have received a copy of the GNU General Public License along with
 
20
! this program; if not, write to the Free Software Foundation, Inc., 51 Franklin
 
21
! Street, Fifth Floor, Boston, MA 02110-1301, USA.
28
22
 
29
23
!-------------------------------------------------------------------------------
30
24
 
46
40
!__________________.____._____.________________________________________________.
47
41
! name             !type!mode ! role                                           !
48
42
!__________________!____!_____!________________________________________________!
49
 
!                  ! i  ! <-- !                                                !
50
 
!                  ! r  ! --> !                                                !
51
43
!__________________!____!_____!________________________________________________!
52
44
 
53
45
!     Type: i (integer), r (real), s (string), a (array), l (logical),
56
48
!===============================================================================
57
49
!
58
50
 
 
51
!===============================================================================
 
52
! Module files
 
53
!===============================================================================
 
54
 
 
55
use paramx
 
56
use dimens
 
57
use numvar
 
58
use optcal
 
59
use cstphy
 
60
use entsor
 
61
use cstnum
 
62
use ppppar
 
63
use ppthch
 
64
use ppincl
 
65
use elincl
 
66
 
 
67
!===============================================================================
 
68
 
59
69
implicit none
60
70
 
61
 
!===============================================================================
62
 
!    Common blocks
63
 
!===============================================================================
64
 
 
65
 
include "paramx.h"
66
 
include "dimens.h"
67
 
include "numvar.h"
68
 
include "optcal.h"
69
 
include "cstphy.h"
70
 
include "entsor.h"
71
 
include "cstnum.h"
72
 
include "ppppar.h"
73
 
include "ppthch.h"
74
 
include "ppincl.h"
75
 
include "elincl.h"
76
 
 
77
 
!===============================================================================
78
 
 
79
71
integer          ipp, iesp , idimve
80
72
 
81
73
!===============================================================================