+
+!-----------nucleic acid parameters--------------------------
+ integer :: nthetyp_nucl,ntheterm_nucl,ntheterm2_nucl,&
+ ntheterm3_nucl,nsingle_nucl,&
+ ndouble_nucl,nntheterm_nucl
+ integer,dimension(:),allocatable :: ithetyp_nucl !(-ntyp1:ntyp1)
+ real(kind=8),dimension(:,:,:),allocatable :: aa0thet_nucl
+!(-maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,2)
+ real(kind=8),dimension(:,:,:,:),allocatable :: aathet_nucl
+ real(kind=8),dimension(:,:,:,:,:),allocatable :: bbthet_nucl,&
+ ccthet_nucl,ddthet_nucl,eethet_nucl
+!(maxsingle,maxtheterm2,-maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,2)
+ real(kind=8),dimension(:,:,:,:,:,:),allocatable :: ffthet_nucl,ggthet_nucl
+