Question: how to get the last line fortran expression in the code generation?

Hello, recently I am working to write a bash shell program combined with maple to automatically produce the codes to calculate functional and functional derivatives values for some given functional expression(This is provided by the user in maple input file). Now I meet a problem.

Take the codes below as an example:

      t55 = 1.D0+RA-t54
      t56 = t55**(1.D0/3.D0)
      t60 = 1.D0-1.D0*RA+RB
      t61 = t60**(1.D0/3.D0)
      t68 = 1/(t4+0.5560951427D1*t5+0.180578D2)
      t71 = dlog(0.6203504908D0*t3*t68)
      t76 = dtan(0.4730926909D1/(t13+0.706042D1))
      t80 = (t20+0.325D0)**2
      t82 = dlog(t80*t68)
      t86 = dtan(0.1863094175D1*t5+0.706042D1)
      t95 = (RA-t54)**2
      t96 = t95**2
      t102 = t1*(t12+t19+t25+t30-0.1688686394D-1*t53*(0.1125D1*t56*t55+0
     #.1125D1*t61*t60-0.225D1)*(1.D0+(-0.1012574591D3*(0.1554535D-1*t71+
     #0.4639966D-1/t76+0.2247867096D-2*t82+0.6091733171D-2/t86-t12-t19-t
     #25-t30)/t53-1.D0)*t96))

      This is the machine generated codes. However, since the final value (here is t102) belongs to some data has a fixed name such as "D1F(POS_RA_RA)", hence I wish that I can obtain the last expression name. Do you know how can I do this in the maple program?

     Thanks very much

 

 

Please Wait...