PARAMETER (IMAXG=648,JMAXG=324,IMAXMP2=IMAXM+2) PARAMETER (IMAXGP=IMAXG+1,JMAXGP=JMAXG+1,JMAXMP=JMAXM+1) COMMON/DVECDDD/dvec(IMAXGP,JMAXG,3,2),dddarr(IMAXGP,JMAXG) 1 ,be3arr(IMAXGP,JMAXG)