include "COMMON.NAMES"
include "COMMON.FREE"
include "COMMON.OBCINKA"
- character*64 nazwa
+ character*128 nazwa
character*16000 controlcard
integer i,ii,ib,iR,iparm,ilen,iroof,nthr,npars
external ilen,iroof
include "COMMON.PROTFILES"
include "COMMON.PROT"
include "COMMON.FREE"
- character*64 bprotfile_temp
+ character*128 bprotfile_temp
character*3 liczba,liczba2
character*2 liczba1
integer iunit,islice
include "COMMON.SBRIDGE"
include "COMMON.OBCINKA"
real*4 csingle(3,maxres2)
- character*64 nazwa,bprotfile_temp
+ character*64 nazwa
+ character*128 bprotfile_temp
character*3 liczba
character*2 liczba1
integer i,j,ii,jj(maxslice),k,kk(maxslice),l,