source: PSPA/parmelaPSPA/tags/v0.1/adjust.f @ 100

Last change on this file since 100 was 100, checked in by garnier, 12 years ago

premier tag
File size: 762 bytes
Line 
1      subroutine adjust
2c---multiply parameter vv(1) in elements vv(2) through vv(3) by vv(4)
3c------------------------------------------------------------------------
4      save
5c
6      include 'param_sz.h'
7      include 'var_char.h'
8      include 'misccom.h'
9      include 'syscom.h'
10      include 'ucom.h'
11c
12c--------------------------------------------------------------------------
13c*
14      if(nn.lt.4)return
15      np=vv(1)
16      if(np.lt.2 .or. np.gt.10)return
17      n1=vv(2)
18      if(n1.lt.1 .or. n1.gt.nel)return
19      n2=vv(3)
20      if(n2.lt.n1)return
21      if(n2.gt.nel)n2=nel
22      fac=vv(4)
23      do 10 n=n1,n2
24      el(np,n)=fac*el(np,n)
25   10 continue
26      return
27      end
28c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.