1 | subroutine poisson(filepois,zoffset,rmult) |
---|
2 | c----------------------------------------------------------------------- |
---|
3 | c |
---|
4 | include 'param_sz.h' |
---|
5 | include 'flagcom.h' |
---|
6 | include 'pfieldcom.h' |
---|
7 | include 'ucom.h' |
---|
8 | c |
---|
9 | character filepois*12 |
---|
10 | c----------------------------------------------------------------------- |
---|
11 | nlast = index(filepois, ' ') |
---|
12 | if (nlast .eq. 0) nlast = len(filepois) + 1 |
---|
13 | c open(unit=npois,file=filepois//'.psfld',err=200,status='old') |
---|
14 | open(unit=npois,file=filepois(1:nlast-1)//'.psfld',err=200, |
---|
15 | 1 status='old') |
---|
16 | read(npois,*) prmin,prmax,nrp |
---|
17 | read(npois,*) pzmin,pzmax,nzp |
---|
18 | pdr=(prmax-prmin)/float(nrp) |
---|
19 | pdz=(pzmax-pzmin)/float(nzp) |
---|
20 | do 20 k=0,nrp-1 |
---|
21 | do 30 l=0,nzp-1 |
---|
22 | read(npois,fmt=*,err=201) rbfld(k,l),zbfld(k,l) |
---|
23 | 30 continue |
---|
24 | 20 continue |
---|
25 | close(npois) |
---|
26 | pzmin=pzmin+zoffset |
---|
27 | pzmax=pzmax+zoffset |
---|
28 | if(rmult.ne.1.)then |
---|
29 | do 10 k=0,nrp-1 |
---|
30 | do 10 l=0,nzp-1 |
---|
31 | rbfld(k,l)=rbfld(k,l)*rmult |
---|
32 | zbfld(k,l)=zbfld(k,l)*rmult |
---|
33 | 10 continue |
---|
34 | endif |
---|
35 | poiflag=.true. |
---|
36 | return |
---|
37 | 200 write(nnout,*)' error opening ',filepois,' in Poisson' |
---|
38 | return |
---|
39 | 201 write(nnout,*)' error reading ',filepois,' in Poisson' |
---|
40 | return |
---|
41 | end |
---|
42 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
---|