! integer :: rescode
! double precision x(maxvar)
character(len=256) :: pdbfile
- character(len=320) :: weightcard
+ character(len=480) :: weightcard
character(len=80) :: weightcard_t!,ucase
! integer,dimension(:),allocatable :: itype_pdb !(maxres)
! common /pizda/ itype_pdb