【文章內(nèi)容簡(jiǎn)介】
e* vfo, double time, int dflag, int iflag, double* result){/* Assign readable variable names to passed parameters */ double c=vfoPAR[0]。 int ipar[3]={(int)vfoPAR[1], (int)vfoPAR[2],(int)vfoPAR[1]}。/* Local variables */ double vel[3]。 int nstates。 int errflg。/* call SYSARY for translation velocities TVEL */ c_sysary(TVEL, ipar, 3, vel, amp。nstates, am