if(.not.allocated(w)) allocate(w(maxres22),d0(maxres22)) !(maxres22)
! COMMON /POCHODNE/
!el allocate(DRDG(maxres22,maxres22)) !(MAXRES22,MAXRES)
if (.not.allocated(DDD)) allocate(DDD(maxres22)) !(maxres22)
if (.not.allocated(H)) allocate(H(nres,nres)) !(MAXRES,MAXRES)
if(.not.allocated(w)) allocate(w(maxres22),d0(maxres22)) !(maxres22)
! COMMON /POCHODNE/
!el allocate(DRDG(maxres22,maxres22)) !(MAXRES22,MAXRES)
if (.not.allocated(DDD)) allocate(DDD(maxres22)) !(maxres22)
if (.not.allocated(H)) allocate(H(nres,nres)) !(MAXRES,MAXRES)