implicit real*8 (a-h,o-z)
include 'DIMENSIONS'
include 'DIMENSIONS.ZSCOPT'
+ include 'DIMENSIONS.FREE'
include 'COMMON.FRAG'
include 'COMMON.LOCAL'
include 'COMMON.VAR'
character*80 card
double precision sccor(3,20)
integer rescode
+ logical lsecondary
efree_temp=0.0d0
ibeg=1
ishift1=0
implicit real*8 (a-h,o-z)
include 'DIMENSIONS'
include 'DIMENSIONS.ZSCOPT'
+ include 'DIMENSIONS.FREE'
#ifdef MPI
include "mpif.h"
#endif
implicit real*8 (a-h,o-z)
include 'DIMENSIONS'
include 'DIMENSIONS.ZSCOPT'
+ include 'DIMENSIONS.FREE'
#ifdef MPI
include "mpif.h"
#endif