include 'COMMON.INTERACT'
include 'COMMON.HAIRPIN'
include 'COMMON.VAR'
- include 'COMMON.DISTFIT'
+ include 'COMMON.FRAG'
include 'COMMON.GEO'
include 'COMMON.CONTROL'
logical nicht_getan,nicht_getan1,fail,lfound
include 'COMMON.GEO'
include 'COMMON.VAR'
include 'COMMON.HAIRPIN'
- include 'COMMON.DISTFIT'
+ include 'COMMON.FRAG'
character*50 linia
integer isec(maxres)