* WRITE charges and radii file
*

$SET$

BOMBlev -2
 
! Topology & parameters
$LIB$

! Initial psf
OPEN unit 1 card READ name @path/scr/@name_complex.psf
READ psf card unit 1
CLOSE unit 1
! Initial coordinates
OPEN unit 1 card READ name @path/scr/@crd.crd
READ coor card unit 1
CLOSE unit 1

! Keeping a record of the radii
SCALAR radius store 1
SCALAR wmain recall 1

$RAD$


! Keeping a record of the charges
SCALAR charges store 2
SCALAR wmain recall 2
 
$CHA$


STOP