johnson-secrest vibrational problem
 $rscattr  
   ered=8.0080807d-2,
   jtot=0,
   minvib=1,
   maxvib=9,
   ismtx=.true.,
   idbug=.true.,
   jmin(1)=0,
   jmax(1)=0,
   amass=4.0006d0,
   bmass=1.0d0,
   cmass=1.0d0,
   nstep=200,
   rbegin=0.65d0,
   rmin=6.0d0,
   rmax=12.5d0,
   drnow=0.05d0,
   noscil=9,
   nglegn=1,
   nhermt=20,
   ralfa=1.0d0,
   rx=1.0d0,
   npow=10,
   re=1.40142d0,
   wecm=4393.9263d0,
   wexecm=0.0d0,
   weyecm=0.0d0,
   becm=0.0d0,
   alfecm=0.0d0
   numder=f,
   toff=0.032d0,
   ialpha=4, 
   idbug=.false. 
   OutFil="Jonsec"
 $end
 
 $rpotbc 
   idbc=9,
   parbc(1)=1.40142d0,0.0d0,0.358734889683081d0,1.0d0  
 $end
 
 $rpotabc 
   iptabc=2,
   ntabc=1,
   npowr=2,
   typex=.false.,
   idabc(1)=7,7, 
   parabc(1,1,1)=2.5629689d0,8.5062119d0,0.0d0,
   parabc(1,1,2)=0.0,1.7958979d0,0.0 
 $end

 $rpotbc 
   idbc=9,
   parbc(1)=1.40142,0.0,3.58723e-1,1.0  
 $end