projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
dfa nfgtasks
[unres.git]
/
source
/
unres
/
src-HCD-5D
/
COMMON.DISTFIT
1
integer maxres22
2
c parameter (maxres22=maxres*(maxres+1)/2)
3
parameter (maxres22=1)
4
double precision w,d0,DRDG,DD,H,XX
5
COMMON /WAGI/ w(MAXRES22),d0(MAXRES22)
6
integer nx,ny,mask
7
COMMON /POCHODNE/ NX,NY,DRDG(MAXRES22,MAXRES),DD(MAXRES22),
8
1 H(MAXRES,MAXRES),XX(MAXRES)
9
COMMON /frozen/ mask(maxres)
10
COMMON /store0/ nhpb0