- double precision vbl,vblinv,vblinv2,vbl_cis,vbl0,vbld_inv
- integer loc_start,loc_end,ithet_start,ithet_end,iphi_start,
- & iphi_end,iphid_start,iphid_end,ibond_start,ibond_end,
- & ibondp_start,ibondp_end,ivec_start,ivec_end,iset_start,iset_end,
- & iturn3_start,iturn3_end,iturn4_start,iturn4_end,iint_start,
- & iint_end,iphi1_start,iphi1_end,itau_start,itau_end