real*8, parameter :: WSCCOR_LOW = 0.00000
C -- UNRES weight values names --
- character*7, parameter :: WNAME(19) = (/ 'WLONG','WSCP','WELEC', &
- &'WBOND','WANG','WSCLOC','WTOR','WTORD','WCORRH','WCORR4','WCORR5',&
- &'WCORR6','WEL_LOC','WTURN3','WTURN4','WTURN6', 'WVDWPP','WHPB', &
- &'WSCCOR' /)
+ character*7, parameter :: WNAME(19) = (/ 'WLONG ','WSCP ', &
+ &'WELEC ','WBOND ','WANG ','WSCLOC ','WTOR ','WTORD ', &
+ &'WCORRH ','WCORR4 ','WCORR5 ','WCORR6 ','WEL_LOC','WTURN3 ', &
+ &'WTURN4 ','WTURN6 ','WVDWPP ','WHPB ','WSCCOR ' /)